title image


Smiley Re: Meinst du...
Öffne das passwortzuschützende Formuar im Entwurfs-Modus

Dann einen Rechts-Klick außerhalb d. Formularsbereichs (d.h. i. d. dunkelgrauen Bereich)

Wähle Eigenschaften, lege "BeimÖffnen" ein Ereignis an und setze folgenden Code dort rein:







Dim PassStr As String



'Anmerkung: das Passwort heißt: BlaBla

Geheim = "BlaBla"

PassStr = InputBox("Bitte Passwort:", "Bitte nicht raten!")



If PassStr <> Geheim Then

  'Dieses Formular schließen

   DoCmd.Close acForm, "FormularMitPasswort"

End If

End Sub





Code eingefügt mit Syntaxhighlighter 4.0



Fertig










Gruß Highnoon

Feedback ist die beste Möglichkeit zu sagen, ob die Antwort geholfen hat!

So lange man zum "Beenden" von Windows erst auf den Start-Button drücken muß,
braucht man sich über Bug's nicht zu wundern.

Aber: "Geht nicht" ist weder eine Fehlermeldung, noch ein Bug der MS-Software!

Access2003- (noch) mit DAO

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: