Just nu i M3-nätverket
Jump to content

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


GreenGrove

Recommended Posts

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!

 

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...