Einzelnen Beitrag anzeigen
Alt 11.01.2017, 18:31   #5
Lanz Rudolf
MOF Guru
MOF Guru
Standard

Hallo
Dank auch Dir

das ist doch klar er kommt auf On Error und damit auf Err_OKButton_Click:

hier die ganze SUB
Code:

Private Sub OKButton_Click()
On Error GoTo Err_OKButton_Click
Dim dbP             As Database
Dim rsP             As Recordset
Dim StrK            As String
Dim stDocName       As String
Dim stLinkCriteria  As String
Dim StrMSG          As String
    Set dbP = CurrentDb
    Set rsP = dbP.OpenRecordset("TblDiv", dbOpenDynaset)
    rsP.MoveFirst
    StrK = "User = " & Chr(34) & Me!User & Chr(34)
    rsP.FindFirst StrK
    If rsP.NoMatch Then
        UserCount = UserCount + 1
        If UserCount > 2 Then
            StrMSG = "Benuzer ungültig" & vbCrLf & " Letzer Versuch !!!!" & " Versuche"
        Else
            StrMSG = "Benuzer ungültig" & vbCrLf & " Sie noch " & (3 - UserCount) & " Versuche"
        End If
        MsgBox (StrMSG), vbOKOnly
        If UserCount > 2 Then
            DoCmd.Quit
        End If
        Me!User.SetFocus
        GoTo Exit_OKButton_Click
    Else
        GUser = rsP!User
        GUserGruppe = rsP!UserGruppe
        GPW = rsP!Pw
        If ((GUserGruppe = "Administrator") And (Not IsMDE)) Then
            AllowQuit = True
        End If
    End If
    PWE = ModDiv(Nz(Me![Pw]))
    If Nz(PWE) = Nz(GPW) Then
        rsP.Edit
            rsP!CompName = GCompName
        rsP.Update
    Else
        PWCount = PWCount + 1
        If PWCount > 2 Then
            StrMSG = "Passwort ungültig" & vbCrLf & " Letzer Versuch !!!!" & " Versuche"
        Else
            StrMSG = "Passwort ungültig" & vbCrLf & " Sie noch " & (3 - PWCount) & " Versuche"
        End If
        MsgBox (StrMSG), vbOKOnly
        If PWCount > 2 Then
            DoCmd.Quit
        End If
        Me!Pw = ""
        Me!Pw.SetFocus
        GoTo Exit_OKButton_Click
    End If
    rsP.Close
    DoCmd.Close
    stDocName = "Switchboard"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_OKButton_Click:
    Exit Sub
Err_OKButton_Click:
    MsgBox Err.Description
    Resume Exit_OKButton_Click
End Sub

__________________


Gruss
Ruedi

WICHTIG Hilfe findet man auch hier:
http://www.donkarl.com/ ;http://www.yaccess.de/ ; und natürlich MS Office Forum Ask Dr. Mof http://www.ms-office-wissen.de/askdrmof/index.php;
Umgang mit NULL ; hier downloaden
Datenrettung;http://www.access-rettung.de/info.htmMeine Doc;Meine Doc
Lanz Rudolf ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten