problem msgbox

[mariec_06]

In excel, I have a userform with a lot of combo/text boxes, and a button "save".

I would like that when the user press "ad" or "save":
if "net o/t" box <>"" and "Nor_date"="" then a message box (with just OK button) saying "nor date is empty" appear, once OK press then focus goes to NOR_DATE box to allow user to fill it in

Here below my code under "save button", however this code make appears the msgbox but does not allow the user to fill in the empty box, it simply continues the code to SAVE_DATA....Can someone help?

Private Sub SAVECMD_Click()

If Me.OT_NET_QTY_BBLS <> "" And Me.COD_DATE.Value = "" Then
 MsgBox "COD DATE IS EMPTY"

        End If
       Me.COD_DATE.SetFocus
      
If Me.OT_NET_QTY_BBLS <> "" And Me.NOR_DATE.Value = "" Then
 MsgBox "NOR DATE IS EMPTY"
 
        End If
      
        Me.NOR_DATE.SetFocus

SAVE_DATA

End Sub

[BadlySpelledBuoy]

Does this work?

Private Sub SAVECMD_Click()

If Me.OT_NET_QTY_BBLS <> "" And Me.COD_DATE.Value = "" Then
    MsgBox "COD DATE IS EMPTY"
    Me.COD_DATE.SetFocus
    Exit Sub
End If  

If Me.OT_NET_QTY_BBLS <> "" And Me.NOR_DATE.Value = "" Then
    MsgBox "NOR DATE IS EMPTY"
    Me.NOR_DATE.SetFocus
    Exit Sub
End If

SAVE_DATA

End Sub

BSB

[mehmetcik]

Private Sub SAVECMD_Click()

If Me.OT_NET_QTY_BBLS <> "" and  Me.COD_DATE.Value = "" Then

MsgBox "COD DATE IS EMPTY"

Me.COD_DATE.SetFocus

Else

 SAVE_DATA

 End If
      

End Sub