Kleine Benutzerverwaltung

[pjo12345]

Moin,

so wieder ein kleines Problem.

Ich möchte mir eine kleine Benutzerverwaltung für meine DB erstellen. Passwortabfrage soll nicht dabei sein.
So habe ich mir das gedacht:

Eine Tabelle mit Username (das ist der Windows-Benutzername), Klarname, Abteilung

Jetzt möchte ich mit dem Windows-Benutzername(Code vorhanden und funktioniert) in der Tabelle suchen und den entsprechenden Klarnamen und Abteilung anzeigen. Versucht habe ich das jetzt mit RecordSetClone.FindFirst und Bookmark aber ich komme da nicht so richtig zu einem Ergebnis.

Ein kleiner Denkanstoß wäre super.

Danke...
mfg pjo12345

[DF6GL]

Hallo,

"in der Tabelle suchen und den entsprechenden Klarnamen und Abteilung anzeigen."

WIE soll das erledigt werden?

Als Abfrage:
Select Klarname, Abteilung from EineTabelle where Username = "MaxMusti"


als VBA-Code-Schnippsel:

Code [Auswählen] Erweitern


Dim UName as String, RS as DAO.Recordset

UNname= GetWinUsername()
Set rs=Currentdb.Openrecordset("Select Klarname, Abteilung from EineTabelle where Username = '" & UName & "'",dbOpenSnapshot)
If rs.Recordcount > 0 then
Msgbox "Mitarbeiter " & rs!Klarname & " gehört zu Abteilung " & rs!Abteilung
Else
Msgbox "User " & UName & " gibt es nicht."
End If
rs.Close:Set rs=Nothing


[pjo12345]

Danke für deine Antwort. Aber es gibt da noch ein paar Probleme:

1. Dim UName as String, RS as DAO.Recordset
    Fehler: Benutzerdefinierter Typ nicht definiert --> geändert in RS as Recordset  OK?

2. Set RS = CurrentDb.Openrecordset("Select Klarname, Abteilung from tbl_Benutzer where Username = '" & UName & "'", dbOpenSnapshot)
    Fehler bei dbOpensnapshot  Variable nicht definiert --> keine Lösung  :-(

Kannst ihr mir hier weiterhelfen? Danke...

PS: Ich arbeite mit Access2007 für Access2003.

[database]

Hallo,

sieh mal im VBA-Editor im Menü Extras unter Verweise nach  ---  mir scheint da fehlt der Verweis auf die  Microsoft DAO 3.6 Object Library

Grüße
Peter

[pjo12345]

Alles bestens, Danke!