Populate Form Field With Value from Function

[gammaman]

I want to populate the employee_seq field on my form fwith the value returned by the following function.



If I tie the function to an unbound form field it works fine. I need it to be tied to the bound field "employee_seq".

Function GetUserFullName() As String

    Dim WSHnet As Object
    Dim UserName As String
    Dim TheUser As Object
    Dim UserDomain As String
    Dim UserFullName As String
    Dim fName As String
    Dim Lname As String
   
    Set WSHnet = CreateObject("WScript.Network")
    UserName = WSHnet.UserName
    UserDomain = WSHnet.UserDomain
    Set TheUser = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
    UserFullName = TheUser.FullName
  '  GetUserFullName = UserFullName
    Lname = Left(UserFullName, InStr(UserFullName, ",") - 1)
    fName = Mid(UserFullName, InStr(UserFullName, ",") + 2)
    GetUserFullName = fName & " " & Lname
   
End Function

[ItsMe]

I would use some VBA behind the Form. Maybe something like ...
Me.emplyee_seq.Value = GetUserFullName

[gammaman]

I tried exactly that and it did not work.

[ItsMe]

It didn't? What happened? How do you know it did not work?

You can test the function via the immediate window (Ctrl + G). Paste the following into the immediate window and hit Enter
?GetUserFullName

[gammaman]

When I run in the immediate window, it does nothing. However as stated before, when I tie the function to an unbound form field, the function correctly displays the user logged into windows.

[ItsMe]

When I run in the immediate window, it does nothing...

In order for a function to be available globally throughout the app, it needs to be placed within a Standard Module. Of course, there are exceptions. However, that is the basic way to implement a Public Function.

Place you function in a Standard Module for it to be available from multiple forms and or reports.