Office: (Office 2016) Login Formular

Hallo Leute,

ich bin mit meiner Login-Form am verzweifeln. Das Login-Formular funktioniert bei 4 von 5 Clients ohne Probleme. Beim 5. Client passiert nichts, wenn man den Login-Button drückt und ich komm nicht dahinter, warum das so ist. Der Client hat die gleiche Access Version wie die anderen auch. Sicherheitseinstellungen hab ich schon geprüft *frown.gif*

Hier der Code vom Formular

PHP:

         Option Compare Database

Private Sub Login_Click()
Dim User As String
Dim UserLevel As Integer
Dim TempPass As String
Dim ID As Integer
Dim UserName As String
Dim TempID As String


If IsNull(Me.Benutzer) Then
MsgBox "Bitte Benutzername eingeben", vbInformation, "DB Info"
Me.Benutzer.SetFocus
ElseIf IsNull(Me.Passwort) Then
MsgBox "Bitte Passwort eingeben", vbInformation, "DB Info"
Me.Passwort.SetFocus
Else
If (IsNull(DLookup("Benutzer", "Benutzer", "Benutzer = '" & Me.Benutzer.Value & "' And Passwort = '" & Me.Passwort.Value & "'"))) Then
MsgBox "Logindaten inkorrekt. Bitte versuchen Sie es erneut.", vbExclamation, "DB Info"
Else
TempID = Me.Benutzer.Value
UserGroup = DLookup("[Gruppe]", "Benutzer", "[Benutzer] = '" & Me.Benutzer.Value & "'")
TempPass = DLookup("[Passwort]", "Benutzer", "[Benutzer] = '" & Me.Benutzer.Value & "'")
UserLogin = DLookup("[Benutzer]", "Benutzer", "[Benutzer] = '" & Me.Benutzer.Value & "'")
FullName = DLookup("[Voller_Name]", "Benutzer", "[Benutzer] = '" & Me.Benutzer.Value & "'")
DoCmd.Close
open different form according to user level
MsgBox "Willkommen " & FullName & "", vbInformation, "DB Info"
DoCmd.OpenForm "f_start_" & UserGroup & ""
End If
End If
End Sub

Private Sub Form_Load()
Me.Benutzer.SetFocus
End Sub


:)

 

Setze vor der ersten Zeile einen Haltepunkt. Im danach geöffneten VBA-Editor kommst Du mit einem Druck auf die Taste [F8] weiter...

 

Hab ich gerade ausprobiert, da passiert nix *frown.gif*

 

Hallo,

in der ersten Zeile sollte auf jeden Fall 'Option Explicit' stehen und dann zunächst den Code kompilieren.

Die Kommentarzeile "open different form according To user level" auch wieder als solche definieren und wieso werden unnötigerweise mit DLookup Werte aus einer Tabelle ausgelesen, welche nirgendwo weiter verwendet werden?

Ulrich

PS:
wenn schon Einrückungen, dann doch bitte konsistent.

 

Was bedeutet "nichts"?
Du hast in jedem Abfragezweig eine MsgBox. Keine zeigt sich?

Ist VBA-Code ausführbar (vertrauenswürdige Speicherorte)?

 

Es passiert rein gar nichts, ich kann den Button 1000x drücken und es passiert nichts, weder eine Fehlermeldung noch eine Msgbox noch sonst was. Ich habe im Trustcenter zum testen alles auf ignorieren gesetzt und zusätzlich die Speicherorte eingefügt.

Ich habe aber gerade folgendes festgestellt: Auf den 4 anderen PCs ist die Syntaxsprache in Abfragen auf deutsch (wenn) und auf dem einen auf Englisch (If), kann es daran liegen?

Edit: Ich kann nicht mal eine Abfrage auf dem PC ausführen, Syntaxfehler (wohl wegen der Sprache?).

 

Servus DeathSoldier01,
abgesehen von Deinem Problem bleibt die Feststellung, dass diese wertvollen Daten völlig ungeschützt in Deiner Tabelle vorliegen, anstatt sie zumindest
codiert darin abzulegen. Die Accesstabellen sind halt sehr einfach von ausserhalb der DB einsehbar. Empfehlenswert wäre zumindest eine HASH
Verschlüsselung, bei welcher selbst der Verschlüssler die Daten nicht mehr rückwärts auslesen kann.