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 =

        'to get the ID
of the user uncomment the following

        'GetTheUserName =


    Set oService = Nothing

    Set oCode = Nothing

End Function

To call the function use the following syntax:


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.