Kofax DM API - Manual (Page 84)

64 C HAPTER 3
PCDLookup
vbCr & "you selected in the Typist field?"
strAns = MsgBox(strPrompt, vbYesNo, strTitle)
intAns = CInt(strAns)
If intAns = 6 Then
'User answered "Yes." Broaden search.
objLookup. AddSearchCriteria “TYPIST_ID", J_SMITH
'Also, delete filter on author name so it
'does not exclude J_SMITH as typist.
objLookup. ClearUserFilterCriteria
Else If intAns = 7
'User answered "No." Search is OK as is.
MsgBox "No change to search criteria."
End If
'Set the sort order for results.
strTitle = "SORT ORDER"
strPrompt = "Select the number of “ _
& “the Sort Order: " _
& vbCr & " 1 - Author, ascending sort " _
& vbCr & " 2 - Author, descending sort " _
& vbCr & " Other - Unsorted results "
strAns = InputBox(strPrompt, strTitle)
If IsNumeric(strAns) Then
intAns = CInt(strAns)
Else
intAns = 9 'Can be any integer.
End If
Select Case intAns
Case 1
'Sort by author, ascending order.
'The Boolean value that follows AUTHOR_ID can be
'anything except zero (or an expression that
'evaluates to zero).
objPCDLookup. AddOrderByProperty "AUTHOR_ID", 1
Case 2
'Sort by author, descending order.
objPCDLookup. AddOrderByProperty "AUTHOR_ID", 0
Case Else