title image


Smiley Re: Passwortabfrage für Formulare
Danke für die schnelle Antwort.



Das funktioniert soweit ganz gut.



Doch das ganze hat noch einen kleinen Schönheitsfehler,

denn es wird leider nicht auf die Groß. -und Kleinschreibung vom Passwort überprüft.



Ich dachte, durch die Einstellung vom Textfeld auf "PASSWORT" wird das mit kontrolliert.



Danke für deine Hilfe



Gruß:

Null-Ahnung



Private Sub Befehl2_Click()

On Error GoTo Err_Befehl2_Click



Dim Passwort As String

Dim Eingabe As String

Dim AdminPasswort As String



txtPasswort.SetFocus



AdminPasswort = "Admin"

Passwort = "Test"

Eingabe = txtPasswort



If Eingabe = Passwort Or Eingabe = AdminPasswort Then



Dim stDocName As String

Dim stLinkCriteria As String



stDocName = "Formular 2"

DoCmd.OpenForm stDocName, , , stLinkCriteria



Else



MsgBox "Das Passworrt stimmt nicht mit der Region überein"

txtPasswort.SetFocus

Exit Sub

End If



Exit_Befehl2_Click:

Exit Sub



Err_Befehl2_Click:

MsgBox Err.Description

Resume Exit_Befehl2_Click



End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: