Translating Windows name into Real Name

[runthis457]

I have my form capturing the windows user name. If I have a table that associates the winusername with a real name is there a way to have access translate that windows name into a real life name and place the "real" name in a text or cbo box on a form?

[TheShabz]

How is Access provided with the winusername?

[runthis457]

I used theh FOSFunction

Function UserName() As String
    Dim lngLen As Long
    Dim strBuffer As String
    
    Const dhcMaxUserName = 255
    
    strBuffer = Space(dhcMaxUserName)
    lngLen = dhcMaxUserName
    If CBool(GetUserName(strBuffer, lngLen)) Then
        UserName = Left$(strBuffer, lngLen - 1)
    Else
        UserName = "NoUser"
    End If
End Function

[TheShabz]

assumptions:
table that contains the info = tblUsers
field that contains the windows name = winUserName
field that contains real names = realUserName
textbox that will hold the realUserName = txtUserName
the query that txtUserName is bound to = qryUserName

change the above from the code below to reflect your db

Dim strSQL As String
Dim qdfNew As DAO.QueryDef

strSQL = "SELECT realUserName FROM tblUsers WHERE winUserName = """ & UserName & """;"

With CurrentDb              
                                   
    .QueryDefs.Delete ("qryUserName")
                                    
    Set qdfNew = .CreateQueryDef ("qryUserName", strSQL)
    .Close

End With

Me.txtUserName.Requery

Give that a whirl and see what happens.

[runthis457]

Where in the VB Editor would I place this code? Would this need to be an oncurrent() Event?
table that contains the info = tbl_employeenames
field that contains the windows name = winUserName
field that contains real names = realUserName (I don’t have a field that holds these names, they are stored in my tbl_employeenames)
textbox that will hold the realUserName = txtUserName
the query that txtUserName is bound to = qryNames

[TheShabz]

Just include it in your UserName() function. put the declarations in with yours and the meat of the code after your "End If"

Also, you said
"If I have a table that associates the winusername with a real name"
However you have it setup, just make the strSQL contain the query that would get it. You set up the VBA, I'm going to assume you can put together a query that would get the join in the right place. Just add the WHERE condition like I had.

[runthis457]

I get this error message on this line of code:
Compile Error:
User-defined type not defined

Dim qdfNew As DAO.QueryDef

[TheShabz]

uhhhhhhhhh.

try declaring it as just a QueryDef

[runthis457]

Same thing.

I changed the code to

Dime qdfNew As QueryDef

and same error.

[runthis457]

Also at the bottom of the code I get a message that says Invalid use of Me. Keyword on the

Me.txtUserName.Requery

[TheShabz]

I honestly have no clue why the querydef isnt working. perhaps queryDefs? (add the s)

And yea, that's right. you cant use Me in your function. it's not a form control. my mistake. just refer to the form control directly.

[runthis457]

Anyway I input it, it is not liking the queryDefs or queryDef or the DAO.querydefs, DAO.QueryDefs, or DAO.QueryDef????

Thanks for trying!

[jo15765]

I used this code to get it to work on mine, but of course this was a LostFocus() Event but it works for me.

Dim t_name
    Dim t_cbo_name
    Dim strsql As String
    Dim rst As Recordset
    Dim db As Database
    Dim rec As Recordset
    Set db = CurrentDb
    Set rec = db.OpenRecordset("tbl_john")
    
    Do Until rec.EOF
    With rec
       If Trim(![Windows_Name]) = Trim(Me.txt_winusername) Then
        t_name = ![id]
        t_cbo_name = !Employee_Name
            If IsNull(Me.Record_Input_By) Then
            
                Me.Record_Input_By = t_cbo_name
            Else
            End If
        
       Else
       
       End If
       .MoveNext
        
    End With
    Loop
    
    Set rec = Nothing
    Me.WinUserName_box = txt_winusername
    Me.date_updated = Now()
   'Debug.Print t_name, Me.txt_winusername, t_cbo_name
  
      DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_issues_LostFocus:
    Exit Sub

[runthis457]

I am getting an error on all the

   Dim strsql As String
    Dim rst As Recordset
    Dim db As Database

Is it possible to do what I am after?
Dim rec As Recordset