Our Find click event procedure looks like:
Private Sub cmdFind_Click()
Dim FindClause As String
Dim SingleQuote As String
ErrMsg = ""
SingleQuote = "'"
On Error GoTo err_find
'build the find clause:
'make our query case insensitive by converting the names to upper case
FindClause = "UPPER(ename) = " & SingleQuote & UCase(txtEname) & SingleQuote
EmpDynaset.FindFirst FindClause
If EmpDynaset.NoMatch Then
MsgBox "Could not find record matching Employee Name " & txtEname
EmpDynaset.MoveFirst
End If
Call EmpRefresh
Exit Sub
err_find:
If ErrMsg <> "" Then
MsgBox ErrMsg
Else
MsgBox Error$
End If
End Sub
