Ein Anmeldeformular ist ein Muss für Datenbanken, die vertrauliche Informationen enthalten. Führen Sie die folgenden Schritte aus, damit Sie Ihr eigenes Anmeldeformular erstellen können, um Ihre Datenbank vor ungültigem Zugriff zu schützen.
Jetzt kostenlos herunterladen
Wenn Sie die Funktion so schnell wie möglich nutzen möchten, dann können Sie Folgendes tun:
Laden Sie jetzt die Beispieldatenbank mit VBA-Codes herunter
Andernfalls können Sie den folgenden Inhalt lesen, wenn Sie selbst basteln möchten.
Schritte zum Erstellen eines Anmeldeformulars in Access
1. Erstellen Sie eine Anmeldetabelle
Als erstes müssen wir eine Tabelle erstellen, in der alle Anmeldeinformationen gespeichert werden.
- Erstellen Sie eine neue Tabelle und benennen Sie sie als tbl_login.
- Öffnen Sie die Tabelle in der Entwurfsansicht.
- Fügen Sie die folgenden Felder mit den entsprechenden Datentypen hinzu:
| Feldname | Dateityp |
| Benutzeridentifikation | Auto Nummer |
| First | Kurzer Text |
| Nachname | Kurzer Text |
| UserName | Kurzer Text |
| Passwort | Kurzer Text |
- Bearbeiten Sie die Eingabemaske des Kennworts so, dass sie als eine Reihe von Sternchen (*) angezeigt wird.
- Wählen Sie das Feld Passwort.
- Gehen Sie zur Registerkarte Allgemein> Eingabemaske>…
- Wenn der Eingabemasken-Assistent angezeigt wird, wählen Sie Kennwort.
- Klicken Sie auf Fertig stellen.
- Öffnen Sie die Tabelle in der Datenblattansicht und geben Sie den ersten Datensatz (Ihre Anmeldedaten) ein.
- Schließen Sie die Tabelle und speichern Sie die vorgenommenen Änderungen.
2. Erstellen Sie das Anmeldeformular
Erstellen Sie ein leeres Formular mit 2 Textfeldern und 2 Befehlsschaltflächen (wie unten gezeigt). Überspringen Sie den Befehlsschaltflächen-Assistenten.
Wir werden später in unserem Code auf diese Formularsteuerelemente verweisen, daher ist es am besten, sie umzubenennen, damit sie leicht identifiziert werden können:
- txt_username
- txt_password
- cmd_login
- cmd_cancel
Ändern Sie als Nächstes die Eingabemaske des Kennworttextfelds so, dass sie auch als Sternchen (*) angezeigt wird.
- Wählen Sie in der Entwurfsansicht das Textfeld Kennwort aus.
- Öffnen Sie das Eigenschaftenblatt (ALT + Eingabetaste).
- Gehen Sie zur Registerkarte Daten> Eingabemaske.
- Wählen Sie Passwort und klicken Sie auf Fertig stellen.
Nun werden wir einige Eigenschaften des Formulars ändern, aus ästhetischen Gründen und vor allem, um sicherzustellen, dass Benutzer dieses Formular nicht umgehen können, ohne die korrekten Anmeldedaten einzugeben.
- Wählen Sie in der Entwurfsansicht das Formular aus (siehe Abbildung unten).
- Öffnen Sie das Eigenschaftenblatt (ALT + Eingabetaste) und aktualisieren Sie die folgenden Eigenschaften:
- Unter dem Format Tab
- Bildunterschrift: Login
- Datensatzauswahl: Nein
- Navigationstasten: Nein
- Bildlaufleisten: Weder noch
- Rahmenstil: Dialog
- Schließen-Taste: Nein
- Unter dem Andere Tab
- Pop Up: Ja
- Modal: Ja
- Kontextmenü: Nein
- Speichern Sie das Formular als frm_login.
3. Fügen Sie den Code hinzu
Fügen Sie der Anmeldeschaltfläche ein On-Click-Ereignis hinzu.
- Wählen Sie in der Entwurfsansicht die Schaltfläche Anmelden.
- Gehen Sie zum Eigenschaftenblatt> Registerkarte Ereignis> Klicken Sie auf>…
- Wählen Sie Code-Generator Klicken Sie im Menü Builder auswählen auf OK.
- Dadurch wird der VBA-Editor geöffnet.
- Kopieren Sie den folgenden Code.
Private Sub cmd_login_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
If Trim(Me.txt_username.Value & vbNullString) = vbNullString Then
MsgBox prompt:="Username should not be left blank.", buttons:=vbInformation, title:="Username Required"
Me.txt_username.SetFocus
Exit Sub
End If
If Trim(Me.txt_password.Value & vbNullString) = vbNullString Then
MsgBox prompt:="Password should not be left blank.", buttons:=vbInformation, title:="Password Required"
Me.txt_password.SetFocus
Exit Sub
End If
'query to check if login details are correct
strSQL = "SELECT FirstName FROM tbl_login WHERE Username = """ & Me.txt_username.Value & """ AND Password = """ & Me.txt_password.Value & """"
Set db = CurrentDb
Set rst = db.OpenRecordset(strSQL)
If rst.EOF Then
MsgBox prompt:="Incorrect username/password. Try again.", buttons:=vbCritical, title:="Login Error"
Me.txt_username.SetFocus
Else
MsgBox prompt:="Hello, " & rst.Fields(0).Value & ".", buttons:=vbOKOnly, title:="Login Successful"
DoCmd.Close acForm, "frm_login", acSaveYes
End If
Set db = Nothing
Set rst = Nothing
End Sub
Dieser Code wird:
- Überprüfen Sie, ob die Felder Benutzername und Passwort nicht leer bleiben. Wenn dies der Fall ist, wird eine Eingabeaufforderung angezeigt.
- Überprüfen Sie, ob die Anmeldedaten korrekt sind, indem Sie sie mit den Werten in der Anmeldetabelle (tbl_login) vergleichen.
- Sobald die Anmeldedaten überprüft wurden, wird eine Eingabeaufforderung angezeigt, in der der Benutzer begrüßt wird.
Der nächste Schritt besteht darin, den Code für die Schaltfläche Abbrechen hinzuzufügen, damit die Datenbank nach dem Klicken geschlossen wird.
- Fügen Sie der Schaltfläche Abbrechen ein On-Click-Ereignis hinzu (dasselbe Verfahren wie mit der Schaltfläche Anmelden).
- Kopieren Sie den folgenden Code.
Private Sub cmd_cancel_Click() DoCmd.Quit acQuitSaveAll End Sub
4. Legen Sie das Anmeldeformular als Anzeigeformular fest
Legen Sie abschließend das Anmeldeformular als Standardformular fest, das Benutzern beim Öffnen der Datenbank angezeigt wird.
- Gehen Sie zu Datei> Optionen> Aktuelle Datenbank.
- Setzen Sie das Anzeigeformular auf frm_login.
- Klicken Sie auf OK.
Sie müssen die Datenbank schließen und erneut öffnen, um zu sehen, wie sie funktioniert.
Stellen Sie Ihre Zugriffsdatenbank wieder her
Herzliche Glückwünsche! Sie wissen jetzt, wie Sie Ihre wertvolle Datenbank vor ungültigem Zugriff schützen können. Jetzt gebe ich Ihnen einen zusätzlichen Tipp. Wenn Ihre Datenbank aus einem unglücklichen Grund beschädigt wurde, geraten Sie NICHT in Panik. DataNumen Inc., ein Experte für Datenwiederherstellungstechnologien, bietet eine Software zur Reparatur an beschädigter Zugriff Datenbank. Ihre Datenbank kann weiterhin wiederhergestellt werden.
Einführung des Autors:
Jayme Stack ist ein Experte für Datenwiederherstellung in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL-Wiederherstellung und Excel-Wiederherstellungssoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX