Passworteingabe mit Stern - keine Buchstaben

[lukyluke68]

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

[bahasu]

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

[lukyluke68]

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

[lukyluke68]

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?

[bahasu]

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

[lukyluke68]

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

[bahasu]

Hi Ludwig,

wenn die Kennworteingabe im selben Formular ist, kann das folgende

MeinKennwort = Me.Kennworteingabe

    If MeinKennwort = "zange" Then

vereinfacht werden zu:

Code (vb) [Auswählen] Erweitern

    If Me.Kennworteingabe = "zange" Then

Harald

[ProVBA]

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ß

[DF6GL]

Hallo,

Hilfe gibt es, wenn Du den Cursor in die Eigenschaftenzeile "Eingabeformat" setzt und F1 drückst.

So könnte die Lösung aussehen:

Code [Auswählen] Erweitern

Private Sub txtPasswort_Enter()
Me!txtPasswort.InputMask = "Password"
End Sub