Public Sub Addgift(orecord As IBBDataObject)
 
       Dim oConstit As CRecord
       Set oConstit = orecord
  
       Dim ogift As CGift
       Set ogift = New CGift
       ogift.Init REApplication.SessionContext
  
       With ogift
           .Fields(GIFT_fld_Amount) = 50
           .Fields(GIFT_fld_Constit_ID) = oConstit.Fields(RECORDS_fld_ID)
           'Enter the Fund ID or Fund Description depending on the User option _
           'selected for Funds.
           .Fields(GIFT_fld_Fund) = "Library"
           .Fields(GIFT_fld_Date) = "5/1/02"
           .Fields(GIFT_fld_Type) = "Cash"
           .Save
  
       End With
  
       ogift.CloseDown
       Set ogift = 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.