Help needed to get user id value using VBA. 1

[101287]

I have the code below and don't know how to correct the error. I'm getting "Can find DLL library".
Option Compare Database
' Declare for call to mpr.dll.
Declare Function WNetGetUser Lib "mpr.dll" _
Alias "WNetGetUserA" (ByVal lpName As String, _
ByVal lpUserName As String, lpnLength As Long) As Long
Public newName, eMail, copy As String
Public assignee, lpassigneename, issue, comment As String
Public ctrlname As String
Const NoError = 0 'The Function call was successful

Sub GetUserName()
Const lpnLength As Integer = 255
Dim Status As Integer
Dim lpName, lpUserName As String
lpUserName = Space$(lpnLength + 1)
Status = WNetGetUser(lpNa..........
What I'm trying to do is to get the user id of the person that sign on in the computer and then validate their user id.

Can someone please provide me some guidance to resolve this problem.

Thank you,

Luis

 

[dhookom]

Just use the code from

http://www.mvps.org/access/api/api0008.htm.

Duane MS Access MVP

 

[101287]

Thank you dhookom. Excellent guidance. It works like a champ.

Keep it up my friend.

Luis