Hi User,

Ich habe einen Button in einem Formular denn ich mit einen Passwort belegen will, bei richtiger Eingabe soll er einen Filter von mir deaktivieren.

Der Code:

Code vb:

1 2 3 4 5 6

Private Sub deaktivieren_Click() If Inputbox ("Passwort eingeben")<> "MeinPasswort" Then MsgBox("Keine Berechtigung") Else: Me.FilterOn=False          myCriteria= "" End Sub

Leider funktioniert das ganze nicht. Ich vermute da ist was mit dem Else-Teil nicht in Ordnung. Wie kann ich angeben das dann den Teil ab Me.Filter bei richtiger Eingabe des PW ausgeführ wird . Wer kann mir bei dem Problem helfen?

Fuchsei

item: Me.FilterOn... ist das MS Access oder VB6?

item: ein END IF fehlt.

item: Mach doch mal zum Test eine MsgBox() in den else-Teil rein

Danke dir. End if wars, sorry bin heut anscheinend nicht bei der Sache.

Fuchsei