2
Windows XP SP1, User unter VB in MS Access 2002 ermitteln
Hallo zusammen, ich bin neu hier und habe mit der Suchfunktion und mit Stöbern in den Foren nichts zu meiner Frage gefunden.
Im Büro im täglichen Arbeitsleben nutze ich MS-Access 2002. Die Datenbank-Anwendung die ich geschrieben habe, verzichtet auf die Nutzerverwaltung der Datenbank (ich begreife nicht wie das funktioniert).
Stattdessen wird ein Anmeldeformular geöffnet, indem der User seine Arbeitspaltzbezeichnung auswählen kann. Passwortabfrage erfolgt keine.
Anhand der ausgewählten Arbeitsplatzbezeichnung erfolgt auf dem Hauptformular die Sichtbarmachung verschiedener Schaltflächen zur Nutzung der Anwendung über Programmcode in dem Hauptformular.
Nachdem der Userkreis immer größer wird und ich den Anwendern größeren Komfort geben möchte, suche ich ein Routine, die als Programm in Access läuft.
Die Routine soll folgendes tun:
Beim Start der MS-Access-Datei mit Doppelklick schaut die Routine nach welcher XP-User sich am PC angemeldet hat und übergibt den Wert in die Tabelle erf-Dat.
Hat jemand eine Idee wie das geht?
Hinweis:
Es wird der englischsprache VB verwendet und es kann nicht hinzugefügt werden an dll, oder sonstiger Software
Grüßle
Thomas
Im Büro im täglichen Arbeitsleben nutze ich MS-Access 2002. Die Datenbank-Anwendung die ich geschrieben habe, verzichtet auf die Nutzerverwaltung der Datenbank (ich begreife nicht wie das funktioniert).
Stattdessen wird ein Anmeldeformular geöffnet, indem der User seine Arbeitspaltzbezeichnung auswählen kann. Passwortabfrage erfolgt keine.
Anhand der ausgewählten Arbeitsplatzbezeichnung erfolgt auf dem Hauptformular die Sichtbarmachung verschiedener Schaltflächen zur Nutzung der Anwendung über Programmcode in dem Hauptformular.
Nachdem der Userkreis immer größer wird und ich den Anwendern größeren Komfort geben möchte, suche ich ein Routine, die als Programm in Access läuft.
Die Routine soll folgendes tun:
Beim Start der MS-Access-Datei mit Doppelklick schaut die Routine nach welcher XP-User sich am PC angemeldet hat und übergibt den Wert in die Tabelle erf-Dat.
Hat jemand eine Idee wie das geht?
Hinweis:
Es wird der englischsprache VB verwendet und es kann nicht hinzugefügt werden an dll, oder sonstiger Software
Grüßle
Thomas
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 12008
Url: https://administrator.de/contentid/12008
Ausgedruckt am: 26.11.2024 um 18:11 Uhr
2 Kommentare
Neuester Kommentar
Tach Turbothomas,
also am Besten Du schaust dir mal folgende Links an...
Angemeldeten Benutzernamen ermitteln:
http://www.vbarchiv.net/archiv/tipp_details.php?pid=27
und
Angemeldete Benutzer ermitteln (ADO)
http://www.vbarchiv.net/archiv/tipp_details.php?pid=581
Funktioniert beides wunderbar in Access und in VB...
Gruß Siggi
also am Besten Du schaust dir mal folgende Links an...
Angemeldeten Benutzernamen ermitteln:
http://www.vbarchiv.net/archiv/tipp_details.php?pid=27
und
Angemeldete Benutzer ermitteln (ADO)
http://www.vbarchiv.net/archiv/tipp_details.php?pid=581
Funktioniert beides wunderbar in Access und in VB...
Gruß Siggi
Hallo Siggi Danke für die Tipps bin später am gestrigen Tag noch woanders fündig geworden:
Dim testobjekt, testobjekt_1 As Object
Dim anwender, rechner, haus As String
Sub user_ermitteln()
Set testobjekt = CreateObject("WScript.Network")
MsgBox "Im Moment ist der User " & testobjekt.Username & " angemeldet.", , "Angemeldeter User"
Set testobjekt_1 = CreateObject("WScript.Network")
anwender = testobjekt.Username
rechner = testobjekt.ComputerName
haus = testobjekt.Userdomain
MsgBox "Im Moment ist der PC" & rechner & " der Domäne " & haus & " mit dem User " & anwender & " angemeldet.", , "Angemeldeter User"
End Sub
und schon ist alles griffbereit.
Trotzdem Danke.
Grüßle Thomas
Dim testobjekt, testobjekt_1 As Object
Dim anwender, rechner, haus As String
Sub user_ermitteln()
Set testobjekt = CreateObject("WScript.Network")
MsgBox "Im Moment ist der User " & testobjekt.Username & " angemeldet.", , "Angemeldeter User"
Set testobjekt_1 = CreateObject("WScript.Network")
anwender = testobjekt.Username
rechner = testobjekt.ComputerName
haus = testobjekt.Userdomain
MsgBox "Im Moment ist der PC" & rechner & " der Domäne " & haus & " mit dem User " & anwender & " angemeldet.", , "Angemeldeter User"
End Sub
und schon ist alles griffbereit.
Trotzdem Danke.
Grüßle Thomas
