Code:
Private Sub txtClaimIDSearch_AfterUpdate()
Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.FindFirst "ClaimID = " & Me.txtClaimIDSearch
If rst.NoMatch Then
MsgBox ("No such claim exists")
Me.txtClaimIDSearch.SetFocus
Leave a comment: