Gemme brugernavn i tabel

via login! what do you mean?

Lets say a user Logs in with the name "testUser". If you save this in a global variable then you can use this to "gem" in a new/altered record but only if you alter the record through a form If you alter the record directly in the tabel then you can NOT do this.

In a form you would place the code in the forms BEFORE UPDATE event

EXAMPLE:

Me.AlteredBy = gUser

Me.Altered by is the name of the field on the form which contains the user who is altering/creating the record.
gUser is the glabal varaible for storing the users login.

Hvis det er et netværk, hvor hver bruger har brugernavn og en password (dvs. lohin) så kan du hente brugernavnet vha. en API kald:
1- Opret en Modul og indsæt nedenstående kode i:
Declare Function GetUserName Lib "advapi32" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

2- lav en tekstboks og kald det tekst22,

Private Sub bruger()
    Dim Status As String
    Dim Status1 As String     

        Dim sUserName As String
        Dim lSize As Long
       
        lSize = 20
        sUserName = Space(20)
        Call GetUserName(sUserName, lSize)   
        'trim off the trailing spaces
        sUserName = Trim(sUserName)
       
        'trim off the trailing null
        sUserName = Left(sUserName, Len(sUserName) - 1)
        Tekst22.Value = Status & sUserName
End Sub

Det afhænger lidt af hvilken bruger du tænker på.

Hvis det er et brugernavn som er indtastet i en form
og valideret af dig, så skal du bruge Terrys metode
og hente den fra en global variabel.

Hvis det er Windows brugernavn skal du bruge Hoessins metode.

Men hvis det er et Access brugernavn (valideret mod MDW), så skal
du bruge CurrentUser() !