Office: Systemvariable "Username" in Access ("Tabelle

Hallo,

ich arbeite gerade an einer komplexen Datenbank und stecke gerade fest!
Ist es möglich bzw. wie ist es möglich die Systemvariable "Username" in Access in Form eines Tabellenfeldes wiederzugeben?

Vielen Dank
:?: :-( :?:

 

Hi,

so ganz verstehe ich nicht, was Du machen willst. :?: :?: :?:

Das musst Du genauer beschrieben...

 

Ich will eine Tabelle aufbauen die unter anderem ein Feld "Anwender"enthällt!
Dieses Feld soll sich automatisch die Systemvariable "Username" ziehen (Anmeldename) des momentan angemeldeten Users!

Ich hoffe ich konnte es dieses mal etwas verständlicher formulieren

Danke Gruss Nicky

 

Hi,

dann erstell dir eine Tabelle. Ich gehe davon aus, dass es dort immer nur einen Datensatz gibt - der des angemeldeten Users.

Dann kannst du es mit dieser Funktion machen:

Code:

Function Anmeldung()

Dim db      As DAO.Database
Dim rs      As DAO.Recordset

Set db = CurrentDb

Set rs = db.OpenRecordset("tbl_Anmeldung", dbOpenDynaset)
    If rs.EOF And rs.BOF Then
        rs.AddNew
        rs("Anmeldung") = Environ("Username")
        rs.Update
    Else
        rs.MoveFirst
        rs.Edit
        rs("Anmeldung") = Environ("Username")
        rs.Update
    End If
    
rs.Close
Set rs = Nothing
Set db = Nothing


End Function

Der aktuelle Username des Systems wird in die Tabelle "tbl_Anmeldung" geschrieben. Das Feld in der Tabelle heißt "Anmeldung".

Hier wird mit "ENVIRON" gearbeitet - das ist nicht immer ganz sicher. Besser ist noch den Usernamen mit einer API-Funktion auszulesen...Wenn Du das wünscht sag Bescheid!

 

Habe die Funktion dementsprechend eingegeben und die Tabelle ebenfals so angelegt, er hat mir weder eine Fehlermeldung wie z.b. Fehler beim kompelieren oder sonstiges, Leider ist das Feld in der Tabelle auch leer geblieben! Ich arbeite mit MSAccess 2000

Gibt es eine Alternative oder einen Grund dafür?!

Vielen Dank erst mal

Grüße aus Frankfurt

 

Hi,

sicher wird es einen Grund geben...

Wie rufst du die Funktion denn auf? Stimmt denn auch der Feldname?

Teste doch mal, was in der Variablen "ENVIRON("Username")" steht?

 

Hi nochmal,

Du musst im VBA-Editor einen Verweis auf das "Microsoft DAO 3.51 Object Library" setzen (die Nummer kann auch anders sein).

Schau Dir mal die DB im Anhang an...dort habe ich dann noch die API-Funktion eingebaut...

 

Tausend Dank hat geklappt

:-D :-D :-D :-D :-D :-D

Schöne Grüsse aus Frankfurt Nicky