Stel, je moet op basis van de domein login een dienst kiezen in uw query van uw access database.
in een module
Private Declare Function apiGetUserName Lib “advapi32.dll” Alias _ “GetUserNameA” (ByVal lpBuffer As String, nSize As Long) As Long
Function dkmagicUserName() 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
dkmagicUserName = Left$(strUserName, lngLen – 1)
else
dkmagicUserName = vbNullString
End If
End Function
je kan dan dkmagicusername gebruiken in uw query’s. je moet dus instellen dat het veld “dienst” gelijk is aan dkmagicusername()