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
↧
Access Benutzerverwaltung fehlerhaft
↧