Erstellen eines Login-Formulars mit Tabellen in Access 2007

Question

Ich habe ein Login erstellt, darin habe ich ein "Benutzername" -Feld Ich habe es geschafft, einen Code zu finden, der den in diesem Feld eingegebenen Wert (Benutzername) vergleicht und als Ergebnis angezeigt eine Nachricht

Was kann ich nicht tun, ist der Wert in der „username“, eingereicht an einer vorhandenen Tabelle

eingegeben Erläuterung verbinden:
ich habe eine Tabelle von Benutzern und Berechtigungen (jeder Benutzer hat die Erlaubnis)
Zum Beispiel:
Treffer 1: Benutzername = 1, Erlaubnis = normal
Record 2: Benutzername = 2, permission = Sonder

Ich möchte Code oder ein Makro schreiben, die den Wert in die "username" Feld eingegeben nehmen und vergleichen Sie es diese Tabelle und dann wird es angezeigt eine entsprechende Meldung

zum Beispiel:
Wenn der Benutzer Schreib 1 die Nachricht wird sein: „Welcome normalen Benutzer“
Wenn der Benutzer Schreib 2 die Nachricht sein wird: „Hey spezieller Benutzer "

Was zählt ist Ich möchte, dass auf dem Code nicht durch 1 oder 2, aber mit Erlaubnis filtern

Dies ist der Code, den ich im ersten Teil verwendet haben:

Private Sub B15_Click()  
    Username.SetFocus  
    If Username = "1" Then  
     MsgBox "Welcome regular user"  
     DoCmd.Close  
    Else  
     If Username = "2" Then 
      MsgBox "Hey there special user"  
     End If  
    End If  
End Sub 

Answer 1

Sie können DLookUp verwenden, aber Sie sollten verstehen, das alles bietet keine Form von Sicherheit.

Private Sub B15_Click() 
    Dim sPermission As String 

    ''Not needed: Username.SetFocus 

    ''If username is text, you will need quotes: "Username='" & Username & "'" 
    sPermission = DLookUp("Permission", "UserTable", "Username=" & Username) 

    ''You should first check that something is returned in sPermission 

    MsgBox "Welcome " & sPermission & " user" 

    DoCmd.Close 

End Sub