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
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:
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
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.
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
Alles bestens, Danke!