Find_Click() Event Procedure

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