Biographical fields are blanked out when using VBA macro with SessionContext

When using a VBA macro with SessionContext and all solicit codes added to a constituent record, all the biographical information of the underlying record is cleared out and hence cannot be saved. 

Article Number: 118868

Products:

  • VBA_API_RE
The following line of code will initialize a blank constituent, which is why the BIO form fields become blank.

oConstit.Init REApplication.SessionContext

Note: Initializing a constituent record after it has already been set to an object will be subject to behavior that isn't necessarily consistent with what somebody might expect.  That isn't to say that it will never work, but we can't guarantee that the results will work in every scenario.

If there is a question about whether or not oRec has been initialized I would add a check to see if oRec is Nothing before trying to do anything with it.  If it is nothing then you can initialize it, but if it is already an object then you don't want to run the risk of messing with the integrity of the object as you re-initialize the object that already has data.

Steps to Duplicate

Please place the code below in the ‘System_Macros’ module, save it and then perform the following steps:
  • Open any constituent record
  • Click on the Solicit code hyperlink to open the selection window on the lower left of BIO1 tab
  • Add all the solicit codes to the constituent
  • Click OK
  • Run the macro from the Run Macro button on the upper toolbar of the constituent form
Once the message box has closed you should see that the Biographical data has all been cleared. If you comment out the ‘oConstit.Init REApplication.SessionContext’ line, the code runs fine and the constituent data remains unaffected. The simple macro code is below.

Public Sub Test_SessionContext(oRec As IBBDataObject) 'Test Function    
If TypeOf oRec Is CRecord Then
       Dim oConstit As CRecord
       Set oConstit = oRec
       oConstit.Init REApplication.SessionContext
       If oConstit.SolicitCodes.Count > 0 Then
            MsgBox "This Constituent has Solicit Codes", vbOKOnly, "Message"
        Else
           MsgBox "This Constituent has no Solicit Codes", vbOKOnly, "Error"
      End If
      Set oConstit = Nothing
Else
      MsgBox "This macro must be fired from a constituent record"
End If 'End of Test Function
End Sub

Environment

 Raiser's Edge
 7.96

Was this article helpful?

Blackbaud Community

Connect and collaborate with fellow Blackbaud users.

Chat with Support

Chat with our experienced staff to receive help right away.

Connect

The Blackbaud team is online and ready to connect with you!