How do I break out of an "If" statement?

[kawi6rr]

I have two if statements below, is anything returns null on the first if statement I want it to stop and proceed to the form. But as is both if statements run and I end up on the nutrition screen.


If IsNull(Me.Catheter.Form!Combo81) Or IsNull(Me.Catheter.Form!Combo58) Then
MsgBox "You have missing fields in Catheter"
Me.Catheter.Visible = True
End If
If IsNull(Me.Nutrition.Form!Combo29) Then
MsgBox "You have empty fields in Nutrition"
Me.Nutrition.Visible = True
End If

Any help is appreciated, thanks!

 

[bob fitz]

I have two if statements below, is anything returns null on the first if statement I want it to stop and proceed to the form. But as is both if statements run and I end up on the nutrition screen.


If IsNull(Me.Catheter.Form!Combo81) Or IsNull(Me.Catheter.Form!Combo58) Then
MsgBox "You have missing fields in Catheter"
Me.Catheter.Visible = True
End If
If IsNull(Me.Nutrition.Form!Combo29) Then
MsgBox "You have empty fields in Nutrition"
Me.Nutrition.Visible = True
End If

Any help is appreciated, thanks!

Not sure if this is what you want:

If IsNull(Me.Catheter.Form!Combo81) Or IsNull(Me.Catheter.Form!Combo58) Then
MsgBox "You have missing fields in Catheter"
Me.Catheter.Visible = True
ElseIf IsNull(Me.Nutrition.Form!Combo29) Then
MsgBox "You have empty fields in Nutrition"
Me.Nutrition.Visible = True
End If

 

[boblarson]

You can use

Exit sub

After the visible code.

 

[vbaInet]

See the part in red

If IsNull(Me.Catheter.Form!Combo81) Or IsNull(Me.Catheter.Form!Combo58) Then
    MsgBox "You have missing fields in Catheter"
    Me.Catheter.Visible = True
[COLOR=Red]ElseIf [/COLOR]IsNull(Me.Nutrition.Form!Combo29) Then
    MsgBox "You have empty fields in Nutrition"
    Me.Nutrition.Visible = True
End If

 

[vbaInet]

Well, this has to be a record. Three replies at the same time.

 

[mdlueck]

Perhaps protect the second if statement inside an else block?

If IsNull(Me.Catheter.Form!Combo81) Or IsNull(Me.Catheter.Form!Combo58) Then
   MsgBox "You have missing fields in Catheter"
   Me.Catheter.Visible = True
[B][COLOR=Red]ElseIf[/COLOR][/B] IsNull(Me.Nutrition.Form!Combo29) Then
   MsgBox "You have empty fields in Nutrition"
   Me.Nutrition.Visible = True
End If

But what if nothing evaluates true... or or or...

Perhaps this will be a start at least.

 

[mdlueck]

Well, this has to be a record. Three replies at the same time.

Ei, four... mine took a while to get back across the pond...

 

[vbaInet]

Michael wanted to join the party too but caught the late train

 

[bob fitz]

Well, this has to be a record. Three replies at the same time.

Indeed I wondered what was happening when I saw there were so many replies straight after I posted.

 

[kawi6rr]

Thanks everyone!