Private Sub DupeTest()

Dim oRecs As CRecords
Set oRecs = New CRecords

Dim sSQL As String
Dim sID As String

sID = "TEST"
sSQL = "RECORDS.CONSTITUENT_ID = " & "'" & sID & "'"

Debug.Print sSQL

oRecs.Init REApplication.SessionContext, tvf_record_CustomWhereClause, sSQL

oRecs.Count
Debug.Print oRecs.Item(1).Fields(RECORDS_fld_LAST_NAME)

oRecs.Closedown
Set oRecs = 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.