Public Sub GetUserID()

   Dim reS As REServices
   Set reS = New REServices
   Dim oUI As IBBUtilityCode
   Set oUI = reS
   Dim lID As Long
  

   reS.Init REApplication.SessionContext

   'Get the user ID by passing the User Name
   lID = oUI.GetUserID("Supervisor")
 
   MsgBox lID
 
   reS.CloseDown
   Set reS = Nothing
   Set oUI = Nothing

End Sub

Disclaimer: Blackbaud provides 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 Structured Query Language and the tools used to create and modify SQL statements and Crystal Reports. Blackbaud Customer Support may help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality.