Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes
Autor
Nachricht
Kossy
Newbie
Newbie

Anmeldedatum: 31.05.2009
Beiträge: 1
Passwortabfrage
Verfasst am: 31.05.2009, 12:32
Hallo !

Ich programmiere gerade etwas in VB um ein
Access-Formular etwas zu verbessern. Dieser VB Code erzeugt mir eine Endlosschleife, solange der Benutzer keine Eingabe getätigt hat. Der Benutzer soll in einem Textfeld, welches auf einem Accessformular gesetzt ist, sein Passwort eingeben, dieses mit einem Command-Button bestätigen. Findet keine Eingabe statt und es wird trotzdem der Button angeklickt, so gibts ne Fehlermeldung. Anschließend soll
das Passwortfeld des Formulares automatisch wieder fokussiert werden,
so dass der Benutzer seine Passworteingabe wiederholen kann.

Die automatische Fokussierung habe ich mit Me.textfeldpasswort.SetFocus versucht, anscheinend wird diese Codezeile immer wieder ignoriert und ich bleibe in der Endlosschleife hängen. Kann mir vielleicht jemand weiterhelfen?

Ich benutze VB Version 6.0 (VBA Retail: 6.3.8863, Froms3: 2.01)

Hier der VB-Code:

Code:
Private Sub Befehl246_Click()

   Dim ctl As Control
   Dim bedingung As Integer
   Dim anzahl As Integer
   Dim durchlauf_eins As Integer
   Dim durchlauf_zwei As Integer
   Dim passwort As Variant
   Dim check As Boolean
   Dim i As Integer
           
   bedingung = 3
   durchlauf_eins = 0
   durchlauf_zwei = 0
                                 
   Do
             
        If durchlauf_eins = 0 Then
               
            passwort = Me.textfeldpasswort.Value
                                 
            If IsNull(passwort) Then
   
                check = True
                MsgBox ("Sie haben kein Passwort eingegeben ! Bitte machen Sie eine gültige Eingabe !")
                durchlauf_eins = durchlauf_eins + 1
   
            Else
   
                check = False
   
            End If
           
        End If
       
        If durchlauf_eins > 0 Then
       
            durchlauf_eins = durchlauf_eins + 1
           
            MsgBox ("Jetzt hier zum " & durchlauf_eins & "mal !")
       
            Me.textfeldpasswort.SetFocus
                       
            passwort = Me.textfeldpasswort.Value
               
            If IsNull(passwort) Then
                                                                                       
               check = True
               MsgBox ("Sie haben kein Passwort eingegeben X! Bitte machen Sie eine gültige Eingabe !")
                                 
            Else
             
               check = False
                                         
            End If
       
        End If
                   
   Loop While check

_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes

Tags: passwortabfrage, passwort, vba, button, eingabe, passworteingabe

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Passwort Generator 1525 08.07.2010, 00:32
Keine neuen Beiträge Passwort Schutz? 878 25.10.2007, 06:31
Keine neuen Beiträge Das passwort an die E-Mail von mir senden? 562 17.10.2007, 21:18
Keine neuen Beiträge Passwort Generator by sollniss 1267 28.11.2008, 17:03
Keine neuen Beiträge TUT zur Passwort abfrage 1011 10.08.2007, 15:06
 




[ Time: 0.2353s ][ Queries: 83 (0.1312s) ][ GZIP on - Debug on ]