Find computer navn.

DLookup("[Computer navn]", "tabel1", "[Computer netværksnavn] = '" & "PC1" & "'")

Denne funktion finder desuden den aktuelle computers navn:

Private Declare Function apiGetComputerName Lib "kernel32" Alias _
    "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function GetMachineName() As String
'Returns the computername
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
        GetMachineName = Left$(strCompName, lngLen)
    Else
        GetMachineName = ""
    End If
End Function

Environ("USERDOMAIN") also returns PC name (I think)

Når jeg forsøger at gører det som følgende, virker det ikke.
Kan det lade sig gører på den måde.
Jeg har lagt det i Form_Load.

ReturnComputerName er computer netværksnavnet.

Text4 = DLookup("[PC Nummer]", "tabel1", "[Anlæg] = '" & ReturnComputerName & "'")

Jeg er rimelig ny i Access, så det kan godt tænkes at jeg har overset noget ganske elementært.

Det burde virke, men hvis ReturnComputerName  skifter værdi, når du skifter post, bør du flytte koden til Form_Current.

Jeg bruger denne funktion.

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


Function ReturnComputerName() As String
Dim rString As String * 255, sLen As Long, tString As String
    tString = ""
    On Error Resume Next
    sLen = GetComputerName(rString, 255)
    sLen = InStr(1, rString, Chr(0))
    If sLen > 0 Then
        tString = Left(rString, sLen - 1)
    Else
        tString = rString
    End If
    On Error GoTo 0
    ReturnComputerName = UCase(Trim(tString))
End Function

Rettet et par enkle fejl, så det kom til at virke.
Der skulle byttes om på Anlæg og PC Nummer.
Jeg bruger engelsk, så tabel1 skulle være table1.

Text4 = DLookup("[Anlæg]", "table1", "[PC Nummer] = '" & ReturnComputerName & "'")

Afprøver lige de andre forslag før jeg lukker.

Environ("USERDOMAIN") returnerer ikke det rigtige navn.
Det skal bruges i et stort firma netværk, så userdomain bliver til CORP.

Om man bruger din eller min funktion, giver det samme resultat.

Tak for hjælpen.

Selv tak :o)

Ja, de 2 funktioner gør præcis det samme.