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

Hallo Forum!

Beim Klicken auf meinen Button hab ich folgenden Code hinterlegt:

Private Sub Befehl30_Click()

passwort = InputBox("Bitte geben Sie das notwendige Passwort ein:")

If passwort = "AGI" Then _
DoCmd.OpenForm "frmFuhrpark", acNormal, "", "", , acNormal


End Sub

Wie kann ich bei der Eingabe, das eingegeben mit ****** anzeigen lassen?

Liebe Grüsse
Thomas

:)

 

In einer Input nicht! Erstelle ein kleines Formular und stelle Input Mask des Textfeldes auf Password!

 

Hi,

das geht mit einer InputBox nicht. Dazu musst du ein eigenes Formular erstellen und in diesem ein Textfeld mit dem Format Password erstellen.

 

na das mit dem formular ist mir doch ein bissl zuviel aufwand.
hab gedacht, dass das vielleicht auch anders zu lösen ist.

vielen dank für die hilfe!!

lg
thomas

 

Ich habe gerade etwas gefunden (auf http://www.office-loesung.de/viewtop...?p=17958#17958 ):

Code:

So wird die Inputbox dann aufgerufen...
Code:

Testen kann das jemand anderes. *bye

 

\@ Arne

Hallo.

Ich habe auch Interesse an diesem Thema und habe Deinen Vorschlag ausprobiert.

Ich möchte den Aufruf der InputBox über eine Schaltfläche starten.

Access meckert allerdings über:

Weißt Du, woran das liegen kann?
Muss das Modul (was Du hier verschwiegen hast *tongue.gif* !) einen bestimmten Namen haben?

 

\@PeerT:
Welche Access-Version benutzt du denn?
Ich glaube, dass A97 mit dem "AddressOf TimerProc"-Parameter noch nicht
klar kam. In Access 2000 funktioniert es einfach genial *grins.

 

Hallo.

Habe noch einmal im Internet rumgeschaut, bezüglich "AdressOf".

Vielleicht hilft ja der Beitrag weiter.

 

Hi,

Al B. ähm Thomas hat recht, unter ACCESS97 gibt es den AddressOf-Befehl noch nicht. Dazu ist hier bei Ask Dr MOF eine Ersatzfunktion beschrieben. Diese muss nur in ein globales Modul kopiert werden und der Aufruf in der schon bekannten Funktion angepasst werden. *wink.gif*

 

Hallo,

hier in diesem Thread ist das Problem für A97 gelöst:
http://www.ms-office-forum.net/forum...982#post638982

 

Hallo @ all,

vielen Dank erst mal für den regen Zuspruch. *top

In der Tat benutze ich Access97

Ich werde eure Tips, Links, etc. jetzt erst mal ausprobieren.

Melde mich dann wieder.

 

Ich habe als erstes TommyK´s Vorschlag ausprobiert, da es auch hier behandelt wurde.

Habe

in

geändert.

Bei Betätigung der Schaltfläche erscheint die Fehlermeldung, dass die Sub oder Function nicht definiert wurde.

Muss das Modul auch noch angepasst werden? *confused.gif*

 

Hallo.

Wenn du Tommys Links gefolgt wärest, wärest du auch irgendwann hier gelandet.

Die Funktion AddrOf() musst du natürlich auch noch reinkopieren.

 

Sorry Thomas,

wer lesen kann, ist klar im Vorteil. *upps

Jetzt funktioniert es soweit erst mal.
Auch, wenn die Inputbox nicht die Schönste ist.
Allerdings ist mir folgendes aufgefallen:

1. Drückt man bei der Inpubox "OK" ohne Passworteingabe öffnet sich eine weitere Box, mit dem Hinweis, dass das Kennwort falsch ist. Nach drücken von "OK" bin ich wieder am Anfang und muss die Inputbox erneut aufrufen.
Man wird quasi rausgeworfen aus der Passworteingabe.
Werde mich mal versuchen, dass sich die Inputbox dann wieder sofort öffnet.
Ich fände es in diesem Fall allerdings auch besser, dass man darauf hingewiesen wird, dass man gar keinen Eintrag vorgenommen hat.
Bitte jetzt kein Kommentar, dass keine Eingabe auch eine falsche Eingabe ist!!!!

2. Drückt man "Abbrechen" (egal ob mit richtigem, falschen oder ohne Passwort) öffnet sich ebenfalls die Box, dass das Passwort falsch ist!
Das ist doch unsinnig, denn ich möchte die Passworteingabe ja abbrechen.
Werde mich auch daran mal versuchen, dass zu ändern.

Trotzdem erst mal vielen Dank an Alle.

 

Mit der Funktion StrPtr() kannst du Abbrechen/OK mit fehlender Eingabe unterscheiden:
http://www.dbwiki.de/wiki.php?title=VBA_Tipp:_Inputbox