Office: Eingabe in Input box mit ****** anzeigen

Arne Dieckmann · 9. Januar 2005

Hier mal eine denkbare Lösung:
Code:

Dim strEingabe As String
'Anpassen:
Const cKennwort = "GeheimesKennwort"

Do While strEingabe cKennwort
'hier AddressOf anpassen (ich kann nur mit Access 2000 dienen):
SetTimer Application.hWndAccessApp, NV_INPUTBOX, 10, AddressOf TimerProc
strEingabe = InputBox("Bitte Kennwort eingeben",MyCaption)
If StrPtr(strEingabe) = 0 Then
MsgBox "Es wurde 'Abbrechen' angeklickt'", _
vbInformation, "Kennworteingabe abbrechen"
Exit Do
Else
If strEingabe = "" Then
MsgBox "Es wurde nichts eingegeben", _
vbInformation, "Fehlendes Kennwort!"
Else
If strEingabe cKennwort Then
MsgBox "Es wurde '" & strEingabe & "' eingegeben", _
vbInformation, "Falsches Kennwort!"
Else
MsgBox "Endlich korrekt"
End If
End If
End If
Loop
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

[Edit] Ups - dummerweise sieht man so wieder den Klartext in der Inputbox. Bzw. hier funktioniert es gerade nicht. Grübel [/Edit]

Noch ein [Edit]: Für den Titel muss die Konstante "MyCaption" eingesetzt werden und die SetTimer-Zeile muss in der Schleife vorhanden sein. [/Edit]

PeerT · 9. Januar 2005

Hallo Arne,

mein Code sieht jetzt so aus (Du warst schneller!):

Code:

Private Sub Befehl4_Click()

Dim eingabewert As String
SetTimer Application.hWndAccessApp, NV_INPUTBOX, 10, AddrOf("TimerProc")

eingabewert = InputBox(MyMessage, MyCaption)

If StrPtr(eingabewert) = 0 Then
MsgBox "Die Passworteingabe wird abgebrochen!"
Else
If eingabewert = "" Then
MsgBox "Es wurde keine Eingabe vorgenommen!" & vbCrLf & "Bitte geben Sie das korrekte Kennwort ein!"
Else
If eingabewert = "Geheim" Then
DoCmd.OpenForm "frm_Testauswahl_Datum, Vertragstyp, Kundenberater"
Else
MsgBox "Das Kennwort ist falsch!" & vbCrLf & "Bitte geben Sie das korrekte Kennwort ein!"
End If
End If
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe Deinen jetzt nicht ausprobiert.
Gelangt man durch Deinen bei einer Falscheingabe oder bei "keine Eingabe" sofort wieder zurück zur Inputbox?

Arne Dieckmann · 9. Januar 2005

Gelangt man durch Deinen bei einer Falscheingabe oder bei "keine Eingabe" sofort wieder zurück zur Inputbox?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja, dafür ist die Do While-Schleife zuständig.

PeerT · 9. Januar 2005

OK,
werde mal versuchen, dass in meinen Code zu implementieren.

Noch eine Frage:

Ich habe das "vbInformation" aus Deinem Code getestet und habe mit Erstaunen festgestellt, dass sich das Aussehen der MessageBox geändert hat.
Gibt es in dieser Hinsicht noch andere Möglichkeiten (z.B. etwas für die falsche Eingabe)?

Arne Dieckmann · 9. Januar 2005

Das kannst du in der VBA-Hilfe zur Msgbox nachschlagen. Die möglichen Konstanten hier alle aufzuführen ist mir gerade zu mühselig.

Als Tipp: Um eine Msgbox mit Ausrufezeichen und den 2 Schaltflächen "Ja/Nein" zu erhalten, wobei dann "Nein" schon markiert sein soll (die 2 Schaltflächen sind hier zwar nicht unbedingt sinnvoll):
Code:

MsgBox "Es wurde Abbrechen angeklickt", _
vbExclamation + vbYesNo + vbDefaultButton2
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

PeerT · 9. Januar 2005

Vielen Dank für den Tip.

Werde mir das mal anschauen.

Dank auch an alle Anderen noch mal

Office: Eingabe in Input box mit ****** anzeigen

Eingabe in Input box mit ****** anzeigen

Eingabe in Input box mit ****** anzeigen

Eingabe in Input box mit ****** anzeigen

Eingabe in Input box mit ****** anzeigen - Similar Threads - Eingabe Input box

Während der Eingabe überprüfen ob Zahl oder Text

Inhaltssteuerelemente - Textfarbe nach (!) erfolgter Eingabe

Eingaben in mehreren Spalten und Zeilen per Knopfdruck löschen

gezielt Daten aufzählen und zuordnen

Über Eingabefelder bestimmte Zellen füllen, wohl VBA

Datum nach Eingabe automatisch in Zelle einfügen

Input-Funktion (Eingabe)