Hallo,
ich habe in meiner Datenbank einen Button integriert mit dem ich ein Formular nur über ein Passwort öffnen möchte.
Soweit so gut es funktioniert.
Beim eingeben des Passwortes in die Zeile wird aber das Passwort leserlich angezeigt. Ich möchte es aber gerne als Sterne angezeigt bekommen.
Was muss ich hier noch schreiben bzw umändern.?
gruß Ludwig
Private Sub personal_werkstatt_Click()
On Error GoTo Err_personal_werkstatt_Click
If InputBox("Bitte das Kennwort eingeben um das Formular zu öffnen !") = "zange" Then
DoCmd.OpenForm "Personal_form"
Else
MsgBox "Das Kennwort ist leider falsch."
End If
Exit_personal_werkstatt_Click:
Exit Sub
Err_personal_werkstatt_Click:
MsgBox Err.Description
Resume Exit_personal_werkstatt_Click
End Sub
Hi Ludwig,
wenn Du statt der Inputbox ein Formular mit einem Steuerelement nimmst, kannst Du bei diesem Steuerelement die Eigenschaft "Eingabeformat" = Kennwort nutzen.
aus der Hilfe:
"Die Einstellung der InputMask-Eigenschaft auf das Wort "Kennwort" erstellt ein Steuerelement zur Eingabe von Kennwörtern. Jedes in das Steuerelement eingegebene Zeichen wird zwar wie eingegeben gespeichert, jedoch als Sternchen (*) angezeigt. Sie verwenden das Eingabeformat Kennwort, um zu verhindern, dass die eingegebenen Zeichen auf dem Bildschirm angezeigt werden."
Harald
Hallo,
danke für deine Antwort. Also geht es über VBA nicht, sondern nur über ein Formular?
Dann werde ich mir mal eines anfertigen.
gruß Ludwig
Hallo,
ich habe mir jetzt mal ein kleines Formular gemacht mit einem Textfeld wo ich das Eingabeformat auf Kennwort geändert habe. Daneben einen kleinen Okay Button.
Muss ich für dass Kennwort eine Tabelle noch anfertigen, oder reicht hier der Button der die Eingabe des Textfeldes abfrägt?
Hi Ludwig,
soll die Tabelle dazu dienen, das im Formular eingetragene Kennwort zu speichern?
Wenn ja, ist auch ein anderer Weg denkbar:
1. im Modul eine globale Variable anlegen: Public MeinKennwort as String
2. im Formular nach der Eingabe (Ereignis "Nach Aktualisierung") die Zeile einfügen:
MeinKennwort = Me.Dein_Steuerelement_dass_die_Eingabe_enthaelt
3. in Private Sub personal_werkstatt_Click
If MeinKennwort = "zange" Then
DoCmd.OpenForm "Personal_form" ... usw.
PS in VBA eingetragene Kennwörter sind suboptimal zu pflegen. Hattest Du dafür die oben angesprochene Tabelle erwähnt?
Harald
Hallo Harald,
vielen Dank für deine rasche Hilfe.
Ich habe nun diesen Befehl eingegeben
Private Sub Kennworteingabe_AfterUpdate()
On Error GoTo Err_personal_werkstatt_Click
MeinKennwort = Me.Kennworteingabe
If MeinKennwort = "zange" Then
DoCmd.OpenForm "Personal_form"
Else
MsgBox "Das Kennwort ist leider falsch."
End If
Exit_personal_werkstatt_Click:
Exit Sub
Err_personal_werkstatt_Click:
MsgBox Err.Description
Resume Exit_personal_werkstatt_Click
End Sub
Es funktioniert einwandfrei.
Danke nochmals
gruß Ludwig
Hi Ludwig,
wenn die Kennworteingabe im selben Formular ist, kann das folgende
Zitat von: lukyluke68 am November 07, 2013, 15:45:17
MeinKennwort = Me.Kennworteingabe
If MeinKennwort = "zange" Then
vereinfacht werden zu:
If Me.Kennworteingabe = "zange" ThenHarald
Hallo,
ich möchte dieses Thema nochmals aufgreifen da ich keine Hilfe zu diesem Thema finde.
Ist es möglich das Eingabeformat = Kennwort eines Textfelds per VBA anzusprechen?
Mein Grund dafür ist, das Textfeld ist vorbelegt mit einem Standardwert z.B. "Kennwort alt". Erfolgt nun die Eingabe soll das Eingabeformat in "Kennwort" erfolgen. Wenn ich die Eigenschaft im Textfeld Eingabeformat = Kennwort setze, ist das "Kennwort alt" nicht mehr lesbar. Erscheint ebenfalls im Eingabeformat =Kennwort.
Ich hoffe mir kann da jemand weiterhelfen....
Gruß
Hallo,
Hilfe gibt es, wenn Du den Cursor in die Eigenschaftenzeile "Eingabeformat" setzt und F1 drückst.
So könnte die Lösung aussehen:
Private Sub txtPasswort_Enter()
Me!txtPasswort.InputMask = "Password"
End Sub