Mismatch error ...

[Margaret]

Hi,

I am getting type mismatch error. The txtDONO (Delivery Number) property set to text. Using MS Access database and the following is the code:

Private Sub txtDONO_Lostfocus()
If txtDONO <> 0 Then
txtSNO.SetFocus
 
Else
 
Dim MB As String
MB = MsgBox("First enter the Delvery Number", vbYes, "Enter D.O. Number")
 
If MB = vbYes Then
txtDONO.SetFocus
End If
End If
End Sub

Margaret