Kofax DM API - Manual (Page 36)

16 C HAPTER 1
DM Search Transactions
'Versions (dn)
End If
End Sub
Performing a
Simple Search
The following example demonstrates how to do a simple search.
.
.
.
Private Sub cmdCancel_Click()
Me.Hide
End Sub
Private Sub cmdDoLookup_Click()
cboDocType.Clear
Call LookupDocType(cboDocType)
End Sub
Private Sub cmdSearch_Click()
Dim rec As New PCDSearch
Dim i As Long
Dim count As Long
Dim row As String
Screen.MousePointer = vbHourglass
rec.SetDST DST
rec.AddSearchLib library
'This example uses the CYD_DEFPROF form.
rec.SetSearchObject "CYD_DEFPROF"
If txtAuthor <> "" Then
rec.AddSearchCriteria "AUTHOR_ID", _
Chr(34) & txtAuthor & Chr(34)
End If
If txtApp <> "" Then
rec.AddSearchCriteria "APP_ID", Chr(34) _
& txtApp & Chr(34)
End If
If cboDocType <> "" Then
rec.AddSearchCriteria "TYPE_ID", Chr(34) _
& cboDocType & Chr(34)
End If
rec.AddReturnProperty "DOCNUM"
rec.AddReturnProperty "APP_ID"