Office: zwei Klicks bei Anmeldung

Hallo zusammen,
habe eine Frage zu folgendem VBA-Code:
Private Sub cmdAnmelden_Click()
On Error GoTo Err_cmdAnmelden_Click

Dim tbBenutzer As String
Dim tbpw As String
Dim stDocName As String
Dim stLinkCriteria As String


'Benutzername und Passwort aus tblBenutzer holen, wenn Null = falscher Benutzer
If tbBenutzer = (Nz(DLookup("[ben_name]", "tblBenutzer", "[ben_name] = '" & Me.formBenutzer & "'"))) Then
MsgBox "Sie haben einen falschen Benutzer eingegeben!"
Else
tbBenutzer = DLookup("[ben_name]", "tblBenutzer", "[ben_name] = '" & Me.formBenutzer & "'")

tbpw = DLookup("[ben_passwort]", "tblBenutzer", "[ben_name] = '" & Me.formBenutzer & "'")

End If


'wenn Benutzer aus Tabelle mit Eingabe übereinstimmt
If tbBenutzer = Me.formBenutzer Then
'wenn Kennwort falsch eingegeben
If tbpw <> Me.formKennwort Then
MsgBox "Sie haben ein falsches Kennwort eingegeben!"
'wenn beide Werte richtig
Else
tbpw = DLookup("[ben_passwort]", "tblBenutzer", "[ben_name] = '" & Me.formBenutzer & "'")

stDocName = DLookup("[ben_rechte]", "tblBenutzer", "[ben_name] = '" & Me.formBenutzer & "'")
DoCmd.OpenForm stDocName
DoCmd.Close acForm, "frmAnmeldung", acSaveYes

End If
End If


Exit_cmdAnmelden_Click:
Exit Sub

Err_cmdAnmelden_Click:
MsgBox Err.Description
Resume Exit_cmdAnmelden_Click

Es funktionieren alle Varianten bestens. Ich muss allerdings doppelt auf den Button "Anmelden" klicken um mich anzumelden. Habe bisher bei Button immer einfach Anklicken müssen. Habe unterschiedliche Button miteinander verglichen, finde aber keinen Unterschied.
Danke schon mal für Eure Antwort.
Harry

End Sub

 

Hallo Harry,

was mir aufgefallen ist:

Vermutlich wird obige Makro-SUB cmdAnmelden_Click() im Codemodul des Formulars "frmAnmeldung" enthalten sein.
Wenn du nun dieses Formular mittels
DoCmd.Close acForm, "frmAnmeldung", acSaveYes
schließt, noch bevor das darin enthaltene Makro zu Ende gewerkelt hat, wird dem Makro der Boden unter den Füßen weg gezogen....?