Vba Help IF STATEMENT

[aamer]

The following code is to notify the required fields are not left blank.

If I use the following statement it works fine.


Private Sub NewEntryBtn_Click()

If IsNull(Me.ItmBookNo) Then
MsgBox "Please Enter Book #", vbOKOnly
Exit Sub
End If
DoCmd.GoToRecord , "", acNewRec


Exit Sub
If Not IsNull(Me.ItmBookNo) Then
End If

End Sub





I tried the following and is not working.


Private Sub NewEntryBtn_Click()


If IsNull(Me.ItmBookNo) Then
MsgBox "Please Enter Book #", vbOKOnly
Exit Sub
End If
DoCmd.GoToRecord , "", acNewRec


Exit Sub
If Not IsNull(Me.ItmBookNo) Then
End If


If IsNull(Me.ItemUsedInArea) Then
MsgBox "Please Enter Area Used At", vbOKOnly
Exit Sub
End If
DoCmd.GoToRecord , "", acNewRec


Exit Sub
If Not IsNull(Me.ItemUsedInArea) Then
End If




If IsNull(Me.ItmCatagory) Then
MsgBox "Please Enter Contractor Name", vbOKOnly
Exit Sub
End If
DoCmd.GoToRecord , "", acNewRec


Exit Sub
If Not IsNull(Me.ItmCatagory) Then
End If


End Sub

[Micron]

Please post code between code tags (use # button on posting toolbar) to maintain indentation and readability. Harder to follow without it, but I cannot see how you ever expect anything after Exit Sub to run. "Not working" is of zero help to anyone attempting to help you.
EDIT - BTW, IF blocks like this one do nothing

If Not IsNull(Me.ItmBookNo) Then
End If

[CarlettoFed]

Private Sub NewEntryBtn_Click()

  
If IsNull(Me.ItmBookNo) Then
MsgBox "Please Enter Book #"
elseIf IsNull(Me.ItemUsedInArea) Then
MsgBox "Please Enter Area Used At"
elseIf IsNull(Me.ItmCatagory) Then
MsgBox "Please Enter Contractor Name"
else
DoCmd.GoToRecord , "", acNewRec
End If
 
End Sub