Option Compare Database
Sub cmd_anmelden_click()
    If IsNull(txt_benutzername) Then
        MsgBox "Bitte geben Sie Ihren Benutzernamen ein." 'Msg box wenn leer BN
    ElseIf IsNull(txt_kennwort) Then
        MsgBox "Bitte geben Sie ihr Passwort ein." 'Msg box wenn leer PW
        cmd_registrieren.Visible = True
    ElseIf txt_kennwort.Value = DLookup("kennwort", "tbl_benutzer", "benutzername = '" & txt_benutzername.Value & "'") Then 'Kontrolle ob Benutzername und Kennwort übereinstimmt
        MsgBox "Einloggen erfolgreich"
    Else
        MsgBox "Benutzer nicht gefunden"
    End If
End Sub