Add the following function to the code:

Public Function GetTheUserName(ByVal Session As
IBBSessionContext) As String



    Dim oService As FE_Services

    Dim oCode As IBBUtilityCode



    Set oService = New FE_Services

    oService.Init Session



    Set oCode = oService



        GetTheUserName =
oCode.UserGetName(Session.CurrentUserID)

        'to get the ID
of the user uncomment the following

        'GetTheUserName =
oCode.UserGetID(Session.CurrentUserID)




    oService.CloseDown

    Set oService = Nothing

    Set oCode = Nothing



End Function



To call the function use the following syntax:



    GetTheUserName(FE_Application.SessionContext)



An example would be:




Public Sub GLProject_BeforeOpen(oRecord As Object)

    'oRecord : record object being opened

    Debug.Print GetTheUserName(FE_Application.SessionContext)

End Sub


 

Disclaimer: We provide programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes you are familiar with Microsoft Visual Basic and the tools used to create and debug procedures. Our Customer Support can help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality. If you are interested in learning more about the VBA and API modules, contact your account manager.