I am attempting to create an if statement with multiple variables. I have a form that user will fill out but I do not want them to be able to save any information if any number of the three controls are left blank.


Private Sub cmdSave_Click()


On Error GoTo HandleError
If me.txtdate.value <> "" And Me.cboShift.Value <> "" And me.cboSection.value <> = "" Then

intResponse = MsgBox("Are you sure you want to save the shift summary information " & Me.cboShift And "shift - " & me.cboSection & " for " & Me.txtDate & ".", vbYesNo)


Exit Sub

Else


'Call CheckMaintanceSchedule


If lngShiftSummary = 0 then



Call InsertShiftSummary


Else



Call UpdateShiftSummary



Call Form_Load



End If


End If
Else

MsgBox "A date, shift, and section must be provided in order to save the shift summary information on the form. Please provide this information.", vbOKOnly

Me.txtDate.SetFocus
End If

HandleError:

If Err.Number <> 0 Then


GeneralErrorHandler Err.Number, Err.Description, SHIFT_SUMMARY_DETAILS_FORM, "cmdSave_Click"


Exit Sub
End If

End Sub


The code appears to runs through the IF statement fine but then skips the "intResponse line and immediately jumps to the Handle error code. Does anyone have any suggestions?

Well there are three problems. First, your Error handling code should produce an message telling you what the problem is. Somewhere youy need a like like this:
MsgBox Err.Number & "-" & Err.Description

But the problem appears to be in your building of the text string for the MsgBox function. You have:


intResponse = MsgBox("Are you sure you want to save the shift summary information " & Me.cboShift And "shift - " & me.cboSection & " for " & Me.txtDate & ".", vbYesNo)

It should be:

intResponse = MsgBox("Are you sure you want to save the shift summary information " & Me.cboShift & " shift - " & me.cboSection & " for " & Me.txtDate & ".", vbYesNo)
You typed the word AND instead of an &.

The third problem is a minor point. You don't need the intReponse=. You are not doing anything with the user response to the MsgBox so you can use the Msg Box statement just replace the parentheses with spaces.