Office: Passwort in Inputbox als Sternchen ?

Hi Leute,

ich habe mir da eine Passwortabfrage für gewisse Formulare gebastelt, die bereits beim Öffnen des Formulares gestartet wird.
Nun möchte ich das Passwort, welches im Klartext in der Inputbox erscheint,
gerne als ******* dargestellt bekommen.
Optional auch ein Symbol Eingabe = mehrere * Ausgabe
Benutze Access2000.
Anbei mal der PW Code

:)

 

Anstelle der Inputbox kannst du dir auch hierfür ein kleines Formular mit einem Textfeld erstellen. Dem Textfeld kannst du dann als Format "Passwort" zuweisen. Dadurch wird die Eingabe automatisch als Sternchen angezeigt.
Die Prüfung, ob das PW gültig ist kann hier in der Eigenschaft nach Aktualisieren im Textfeld durchgeführt werden. Wenn richtig, neues Form öffnen und das PW-Form schliessen, ansonsten Eingabe wiederholen (?)

 

Hallo Sebastian,

entweder, Du machst es wie Jan (der einfachere Weg), oder Du verwendest folgendes:

Code:

Code:

 

Danke für eure Antworten, hab Jan's Vorschlag mal ausprobiert, hat mir aber vom Aussehen net so Gefallen *Bin ein Optik Fetischist, gebs ja zu* *biggrin.gif*

Leider war ich nicht fähig deinen Code einzubinden Heiko. Naja bin halt nur
en dumme Azubi *fg*
Aber der Wunsch des Users hat sich zur Inputbox ohne Sternchen geändert.
*Smilie

PS: Wäre toll wenn du mir nochmal den Code, eingebunden in meinen posten könntest, bin da net so vesiert drin *confused.gif*

 

hallo Sebastian,
wo speicherst du dein Passwort ab ??
ich selber möchte auch nur einzelne Formulare Passwortabhängig öffnen, es ist eine Datenbank ohne Useranmeldung .... natürlich soll das Passwort änderbar sein. wenn du deine Passwörter NICHT in einer Tabelle abspeicherst, wäre es nett, wenn du mir deine Lösung mal zeigen könntest ...

mfg

Jürgen

 

Hi Jürgen,

ich speichere die Passwörter NICHT in einer Tabelle, sondern im VB Code des eigentlichen Formulares.
So das bei FormOpen gleich die Passwortabfrage erscheint, ohne Passwort kein Zutritt, ohne Zutritt kein PW auslesen.
Naja zumindest in der Theorie *biggrin.gif*
Aber für meine User ausreichend *wink.gif*

Hier meine Lösung :

Code:

 

Hier mein Code:

Private Sub Form_Open(Cancel As Integer)
Dim x As String
Dim stDocName As String
Dim stLinkCriteria As String
x = InputBox("Bitte geben Sie das Passwort ein: ")
If x = "PASSWORT" Then
DoCmd.Restore
Else
DoCmd.Close
MsgBox ("Falsches Passwort!")
stDocName = "Menü"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

End Sub


will da auch gerne sternchen anstatt eines Buchstaben!
bitte um hilfe

 

Und ich will, dass hier die Leute auch nicht nur fordern, sondern wenigstens einmal die Threads aufmerksam lesen und somit die Lösung selber finden. S. Jans (racoon0506) Antwort. *rolleyes.gif*

SCNR