Använda Windows Login för inloggning i Access-databas.

[GreenGrove]

Hej,

 

jag undrar hur man går tillväga för att använda Windowsloginet som inloggning i en Access-Databas.

 

Med följande kodsnutt kan tar jag reda på vem som är inloggad just nu, men hur kopplar jag det till användarkonton i Access?

 

Option Compare Database
Option Explicit

'Används av GetCurrentUserName
Public Declare Function WNetGetUser Lib "mpr" _
   Alias "WNetGetUserA" (ByVal lpName As String, _
   ByVal lpUserName As String, lpnLength As Long) As Long

'Returnar WindowsLoginet
Public Function GetCurrentUserName() As String
On Error Resume Next

   Dim strRawName As String * 255
   Dim strRawUserName As String * 255
   Dim lngReturn As Long
   Dim intNullPos As Integer
   lngReturn = WNetGetUser(strRawName, strRawUserName, 255)
   intNullPos = InStr(strRawUserName, vbNullChar)
   If intNullPos = 0 Or lngReturn <> 0 Then
       GetCurrentUserName = "{Okänt}"
   Else
       GetCurrentUserName = Left(strRawUserName, intNullPos - 1)
   End If

End Function

 

Tack på förhand!

 

[Ech]

Hur får du denna kod att visa användaren?

 

[GreenGrove]

Jag anropar GetCurrentUserName() från en textbox i ett formulär. Exakt hur funktionen fungerar vet jag inte riktigt då jag inte skrivit den själv.

 

[inlägget ändrat 2006-10-31 09:31:40 av GreenGrove]