Aktuel Bruger.

Vel ved at logge på med at andet bruger ID and Admin. Det kræver selvfølgelig at du har oprettet de andre brugere, og at du kører med sikkerhed på brugerniveau
.

Anbring koden i et Modul og kald den med GetUserName()

Option Compare Database

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function GetUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If lngX <> 0 Then
        GetUserName = Left$(strUserName, lngLen - 1)
    Else
        GetUserName = ""
    End If
End Function

skov_p->Din kode henter Windows eller netbruger navnet, men giver vel ikke mulighed for at logge på Access med at andet brugernavn?

Der er en guide til at angive/definere brugere for databasen. Jeg er ikke sikker på at jeg forstår hvad du mener.

Gå til Funktioner/Sikkerhed/Bruger- og gruppekonti. Vælg Skift logon-adgangskode og indtast en adgangskode for Admin.
Herefter skal alle brugere logge på med brugernavn og password.
(Husk at oprette dem først i ovennævnte form på fanen Brugere)

skov_p->Jeg mente bare, at hvis man skal logge på som noget andet end Admin i databasen, vil den kode, du gav, ikke hjælpe stort, da den jo ikke handler om logon, men om at finde ud af, HVEM DER ER logget på.

Så skal du bruge guiden der er i Access

En tilføjelse til Fdata's indlæg:
Du opretter brugere under menuen Funktioner->Sikkerhed->Bruger- og gruppekonti.
Hvis du ikke ønsker at ændre adgangskode for Admin (hvis man f.eks. sidder og tester sikkerhed og derfor blot skal prøve at logge på som en anden bruger) kan du lave en shortcut, som logger på som en anden bruger:
Shortcut'en kan se således ud:
"C:\Programmer\Microsoft Office\Office\MSAccess.exe" C:\Dokumenter\DinDatabase.mdb /User RM

Husk at definere en anden bruger som administrator, fjern rettighederne fra brugeren admin og fra gruppen brugere, luk db'en, lav en ny db under et nyt navn, importer den gamle db så den nye bruger bliver ejer af db-en. Herved fjernes rettighederne for brugeren admin (som du ikke kan slette) til at tildele sig selv rettigheder. Når du opretter brugere, så husk at gemme userID som skal bruges hvis du vil re-generere en ny .mdw fil (hvis den går tabt). Ønsker du yderligere sikkerhed, bør du sikre adgangen på netværksniveau, filniveau, lave et generelt database password (er gemt krypteret i selve databasen) og til sidt kryptere hele gøjemøget (gøres inde fra Access menuerne). Det står alt sammen i hjælpe dokuen.

... og husk at checke lokalet for skjulte kameraer  ;o))

Kan man se af teksten at jeg har arbejdet inden for IT sikkerhed med sindsyge Amerikanske sikkerhedsregler udført med Tysk grundighed ?