Add the following snippet of code to the MembershipScanning_BeforeDisplay event to display the constituent's annotation.





           Dim REService As REServices

           Set REService = New REServices

           REService.Init REApplication.SessionContext



           Dim oAnnotationForm As CAnnotationForm

           Set oAnnotationForm = REService.CreateServiceObject(bbsoAnnotationForm)

           oAnnotationForm.Init REApplication.SessionContext



           Dim oRecord As CRecord

           Set oRecord = New CRecord

           oRecord.Init REApplication.SessionContext



           Dim oMember As CMembership

           Set oMember = oScanDisplay.MembershipObject



           Set oRecord = oMember.Constituent



           oAnnotationForm.ShowAnnotationForm oRecord, Nothing



           oRecord.CloseDown

           Set oRecord = Nothing



           oAnnotationForm.CloseDown

           Set oAnnotationForm = Nothing

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.