End if without block if error or Else without If error

[Holli]

I am trying to make it required that an Employee select their employee ID number with the following code that I just added in red. I keep getting a End if without Block If error. Cant see what I am doing wrong. Thanks for any help.

If Len(Me.EMP_ID & vbNullString) = 0 Then MsgBox "You must select your Employee ID"
Cancel = True
Me.EMP_ID.SetFocus
End If


Else
RunCommand acCmdSaveRecord
If MsgBox("Would you like to print your report?", vbYesNo) = vbYes Then
DoCmd.OpenReport "NAVAL ARCHITECTURE EMPLOYEE REPORT", acViewNormal, , "EmployeeID=" & Me.EmployeeID
Else
End If
If MsgBox("Would you like to continue?", vbQuestion + vbYesNo) = vbYes Then
Me.Requery
DoCmd.Close
Else
DoCmd.CloseDatabase
End If
End Sub


Holli

[June7]

Use indentation and structure is easier to read and debug. Maybe this is what you want.

If Len(Me.EMP_ID & vbNullString) = 0 Then
    MsgBox "You must select your Employee ID"
    Cancel = True
    Me.EMP_ID.SetFocus
Else
    If MsgBox("Would you like to print your report?", vbYesNo) = vbYes Then
        RunCommand acCmdSaveRecord
        DoCmd.OpenReport "NAVAL ARCHITECTURE EMPLOYEE REPORT", acViewNormal, , "EmployeeID=" & Me.EmployeeID, acDialog
    End If
    If MsgBox("Would you like to continue?", vbQuestion + vbYesNo) = vbYes Then
        Me.Requery
        DoCmd.Close
    Else
        DoCmd.CloseDatabase
    End If
 End If

[ssanfu]

Anything after "THEN" should be on a new line.
The first "Else" is in the wrong place. Should be between IF and END IF.

There are two forms of "IF..End IF ".
One is a single line...... example:

If Len(Me.EMP_ID & vbNullString) = 0 Then MsgBox "You must select your Employee ID"

I never use this form....

The other is the block form
If MsgBox("Would you like to continue?", vbQuestion + vbYesNo) = vbYes Then

  Me.Requery
  DoCmd.Close
Else
  DoCmd.CloseDatabase
End If

Not sure what you program flow should be. Tell us what should happen and when.

[Holli]

Perfect Thank you !!!

Holli