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.