Office: (Office 2007) Anmeldeformular mit Benutzer und evtl. Kennwort

Hallo!

Ist es möglich den Datenbankeinstieg so zu gestalten, dass man zuerst auf ein Anmeldeformular kommt, wo man seinen Benutzer auswählen muss (eine Passwortabfrage ist nicht zwingend erforderlich, aber wäre auch kein Problem) und anschließend kommt man erst zum Hauptmenüfenster (dies ist ebenso ein Formular).

Weiters möchte ich, dass zB bei Eingabe eines Wertes in einem Textfeld (zB Summe) automatisch der bereits beim Anmeldeformular gewählte Benutzername in ein Textfeld (in meinem Beispielfall; zB Summe_Benutzername) eingetragen wird.

Die Benutzerdaten sind in einer Tabelle (heißt: Benutzer) eingetragen und beinhaltet folgende Spalten (BenutzerID, Benutzername, Kennwort, Rechte).

Das Anmeldeformular besteht aus dem Kombinationsfeld „Benutzername“, dem Textfeld „Kennwort“ und der Schaltfläche „Login“. Die Eigenschaften des Kombinationsfeldes – Datenherkunft lauten: SELECT Benutzername FROM Benutzer ORDER BY Benutzername

Danke!

:)

 

Ja, ist möglich.
Wo genau brauchst Du Hilfe?

Die Themen wurden alle schon im Forum behandelt.
Ggf. mal über die Forumssuche nach Benutzerverwaltung suchen...

 

du legst das Anmeldeformular einfach als Startformular fest.

Welchen Informationsgehalt versprichst du dir davon?

 

Danke für die Antworten!

Das Formular habe ich bereits erstellt und ich habe das Anmeldeformular auch als Startformular unter Access-Optionen festgelegt.

Die Hilfe brauche ich, wie ich bewirken kann, dass nach richtiger Eingabe des Benutzernames und des Kennwortes das Bearbeitungsformular geöffnet wird, bzw. bei falscher Eingabe dieser Daten die Benutzernamen- und Kennwort-Eingabe nochmals verlangt wird.

Ebenso brauche ich Hilfe, wie ich ermöglichen kann, dass der Benutzername für spätere Eingaben (zB Summe,... wie bereits bei meinem Anfangsbeitrag bereits beschrieben) gespeichert bleibt und gegebenenfalls wieder geschrieben wird (zB. Summe_Benutzername).

Danke!

 

Das Kennwort könntest du via DLookUp überprüfen. Wenn richtig, dann Code:

Dazu könntest du beispielsweise das Anmeldeformular auf unsichtbar stellen und bei Bedarf darauf zugreifen, du könntest den Namen in einer globalen Variablen speichern, dem aufzurufenden Formular den Benutzer via OpenArgs übergeben...

 

Der erste Punkt mit der Benutzerverwaltung funktioniert bereits, doch die Benutzernamen weitergabe klappt noch nicht so wie ich's gerne hätte.

Ich habe es soweit mal wie folgt gelöst.

Dem Anmeldeformular habe ich folgende Prozedur gegeben:

PHP:

         Private Sub UserLogin_Click()
DoCmd.OpenForm "Bearbeitungsformular"
Forms!Bearbeitungsformular!Benutzern = Me!FtxtUser
Forms!Bearbeitungsformular.BenutzerUebernehmen
DoCmd.Close acForm, Me.Name
End Sub


 

Mit Benutzern_AfterUpdate rufst du doch ein Ereignis auf. Existiert das überhaupt?
wird der Benutzername nicht schon durch Code:

übergeben?

 

Ich habe jetzt schon viel herum probiert und auch versucht mich in den Foren schlau zu machen, doch ich schaffe es leider nicht. Darum bitte ich das Forum wieder mal um Hilfe.

Meine Benutzerdaten-Tabelle (Tbl_User) beinhaltet die Felder „ID_User“, „txtUserName“ und „txtUserPasswort“. Nun möchte ich von meinem Anmeldeformular (Frm_Login) bei Eingabe des Benutzernamens (Kombinationsfeld „FtxtUser“) und –passwortes (Textfeld „FtxtPasswort“) durch Klick auf die Schaltfläche „FbtnLogin“, dass eine Überprüfung zwischen den eingegebenen Daten im Formular (Frm_Login) im Kombinationsfeld (FtxtUser) und Textfeld (FtxtPasswort) und der Felder (txtUserName und txtUserPasswort) der Tabellen (Tbl_User) gestartet wird. Wenn diese Daten übereinstimmen, soll das Bearbeitungsformular gestartet werden, wenn die Werte falsch sind bzw. nicht übereinstimmen, soll das Anmeldeformular wieder geladen werden.

Meine derzeitige Prozedur lautet:

PHP:

         Private Sub cmdLogin_Click()
Dim BenutzerID As Long
BenutzerID = Nz(DLookup("ID_User", _
"Tbl_User", "txtUserName = '" _
& Me!FtxtUser _
& "' AND txtUserPasswort = '" _
& Me!FtxtUserPasswort & "'"), 0)
If BenutzerID = 0 Then
Forms!Anmeldeformular!Benutzern = Me!FtxtUser
Else
Forms!Bearbeitungsformular!Benutzern = Me!FtxtUser
End If
End Sub


 

wo wird denn das Bearbeitungsformular geöffnet?

 

Sorry, da habe ich beim Abschreiben eine Zeile ausgelassen.

Die richtige Prozedur lautet:

PHP:

         Private Sub cmdLogin_Click()
Dim BenutzerID As Long
BenutzerID = Nz(DLookup("ID_User", _
"Tbl_User", "txtUserName = '" _
& Me!FtxtUser _
& "' AND txtUserPasswort = '" _
& Me!FtxtUserPasswort & "'"), 0)
If BenutzerID = 0 Then
DoCmd.OpenForm "Anmeldeformular"
Forms!Anmeldeformular!Benutzern = Me!FtxtUser
Else
DoCmd.OpenForm "Bearbeitungsformular"
Forms!Bearbeitungsformular!Benutzern = Me!FtxtUser
End If
End Sub


 

Code:

ist schon mal überflüssig weil du das Formular offen hast.

und wo hakt es jetzt genau? Gibts trotz richtiger Passwörter eine 0 bei BenutzerID zurück?

 

Mir wird nach Eingabe des Benutzernamens und Passwortes und Klick auf die Schaltfläche "Login" der Laufzeitfehler "2467" (In den von Ihnen eingegebenen Ausdruck wird auf ein Objekt verwiesen, das geschlossen oder nicht vorhanden ist.)

Nach Klick auf DEBUGGEN wird der Bereich

Code:

gelb hinterlegt.

 

gibt es Me!FtxtUser und Me!FtxtUserPasswort denn auch? Oder heißen die vielleicht anders... Ob DLookup so einen Fehler erzeugt wenn die Tabelle nicht existiert weiß ich jetzt nicht...

 

Ja, FtxtUser und FtxtUserPasswort gibt es.

FtxtUser ist das Kombinationsfeld im Formular Frm_Login (Anmeldeformular)
FtxtUserPasswort ist das Textfeld im Formular Frm_Login (Anmeldeformular)

Die Tabelle lautet Tbl_User und beinhaltet die Felder "ID_User", "txtUserName" und "txtUserPasswort".

 

Hallo
weiss nicht ob Dir das in meiner PDF-datei noch Hilft:
lies hier:
http://cid-0838611f737bd3d9.office.l...unterlagen.pdf
auf ab Seite : (168) 169

user / Passwort für Test der MDB aus dem Anhang
123 / 123 gewöndlicher Benutzer
321 / 321 Admi