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

[ganeshmoorthy]

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

[cssriraman]

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

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