Quantcast
Channel: Microsoft Access Forum
Viewing all articles
Browse latest Browse all 880

Access Benutzerverwaltung fehlerhaft

$
0
0

Guten Abend zusammen,

probiere schon seit Stunden das umzusetzen aber irgendwie klappt es nicht so wie ich will. Habe ungebundene Felder Benutzername Passwort welches über ein Formular läuft, welches in einem Marko autoexec geladen wird. Der Vergleich schlägt auch bei korrekter Eingabe fehl warum? Hier mal mein Code.

Private Sub abbrechen_Click()
If MsgBox("Wollen Sie die Anwendung wirklich beenden?", vbYesNo + vbExclamation, "Anwendung beenden") = vbYes Then DoCmd.Quit
End Sub
Private Sub Login_Click()
Dim abgleich
abgleich = "SELECT tbl_accounts.benutzer, tbl_accounts.passwort FROM tbl_accounts"
If abgleich = Me.benutzer Then
DoCmd.OpenForm ("frm_Hauptmenu")
End If
If abgleich = Me.Passwort Then
DoCmd.OpenForm ("frm_Hauptmenu")
Else
MsgBox ("Falscher Benutzername oder falsches Passwort")
End If
End Sub


Viewing all articles
Browse latest Browse all 880


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>