Insætte direkte i tabel

Hvor er VBA koden placeret?

Docmd.Setwarnings false
docmd.RunSQL "Update User Set PCIdent = '" & Me![PC-navn] & "' Where UserID = " & Me!UserID
Docmd.SetWarnings True

Dette fungere hvis koden kaldes fra formularen og Me!UserID er primærnøgle i User-tabellen

Hvis koden ikke kaldes fra en formular, må du erstatte Me![PC-navn] og Me!UserID med de respektive værdier

Jeg er ikke helt med.

koden er placeret i en function:

Private Declare Function apiGetComputerName Lib "kernel32" Alias _
    "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function PCIdent() As String

Dim lngLen As Long, lngX As Long
Dim strCompName As String
    lngLen = 16
    strCompName = String$(lngLen, 0)
    lngX = apiGetComputerName(strCompName, lngLen)
    If lngX <> 0 Then
        PCIdent = Left$(strCompName, lngLen)
    Else
        PCIdent = ""
    End If
End Function

Function PCIdent() As String

Dim lngLen As Long, lngX As Long
Dim strCompName As String
    lngLen = 16
    strCompName = String$(lngLen, 0)
    lngX = apiGetComputerName(strCompName, lngLen)
    If lngX <> 0 Then
        PCIdent = Left$(strCompName, lngLen)
    Else
        PCIdent = ""
    End If

Docmd.Setwarnings false
docmd.RunSQL "Update User Set PCIdent = '" & PCIdent & "'"
Docmd.SetWarnings True

End Function

This is maybe more corrrect

Function PCIdent() As String

Dim lngLen As Long, lngX As Long
Dim strCompName As String
    lngLen = 16
    strCompName = String$(lngLen, 0)
    lngX = apiGetComputerName(strCompName, lngLen)
    If lngX <> 0 Then
        PCIdent = Left$(strCompName, lngLen)

Docmd.Setwarnings false
docmd.RunSQL "Update User Set PCIdent = '" & PCIdent & "'"
Docmd.SetWarnings True

    Else
        PCIdent = ""
    End If

End Function

Hej.

Ja, jeg kan godt se at jeg har klokket
lidt i det.

Så derfor deler I pointene.
Tak for hjælpen.

!