Mismatch error ...

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:

VB 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

VB Code:

'Use
Dim MB As VbMsgBoxResult
'Instead of 
Dim MB As String

There is no need for declaration you can directly write as:

VB Code:

if MsgBox("First enter the Delvery Number", vbYes, "Enter D.O. Number") = vbYes Then
    txtDONO.SetFocus
End If