fOSUserName_Err

    Dim lngLen As Long, lngX As Long
    Dim strUserName As String

    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)

    If lngX <> 0 Then
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = ""
    End If


fOSUserName_Exit:
    Exit Function

fOSUserName_Err:
    MsgBox Error$
    Resume fOSUserName_Exit
End Function

Step 3. Add an unbound text box control to your form: Set the Default Value for this control to name of this function: =FOSUserName()

Adding the control to the form to capture the username
Adding the control to the form to capture the username


Showing the default value property of the unbound textbox.

Step 4. View your completed form: You should now see the network username visible on the form.

Viewing the completed form including the username