Private Sub GetBenefitsforGift()
Dim oConstit As CRecord
Dim oGift As CGift
Dim oBenefit As IBBBenefit
Set oConstit = New CRecord
oConstit.Init REApplication.SessionContext
oConstit.Load 280
For Each oGift In oConstit.Gifts
For Each oBenefit In oGift.Benefits
MsgBox oBenefit.Fields(BENEFIT_fld_Benefit)
Next oBenefit
oGift.CloseDown
Next oGift
Set oBenefit = Nothing
Set oGift = Nothing
oConstit.CloseDown
Set oConstit = Nothing
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. 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.