Else WITHOUT IF Compile error

[jj1]

Private Sub WasIssueResolved_Click()
On Error Resume Next
If WasIssueResolved = True Then
Forms!UnsafeAct!CloseDate.Visible = True
CloseDate.Locked = True


' If IsNull(Me![ActionTakenBy PersonResponsible]) Then
' MsgBox "You must provide details of the Action Taken By Person Responsible.", vbOKOnly, "More Data Required!"
' Exit Sub
End If

Else
Forms!UnsafeAct!CloseDate.Visible = False
CloseDate.Locked = False
End If

End Sub


I am compiling this database and I don't know why I am getting Else without If compile error

[ranman256]

You have too many ELSEs or too many END IF. loose the endif in red

If WasIssueResolved = True Then
Forms!UnsafeAct!CloseDate.Visible = True
CloseDate.Locked = True
End If

Else
Forms!UnsafeAct!CloseDate.Visible = False
CloseDate.Locked = False
End If

[ranman256]

Remove all yours above for simpler code:

Forms!UnsafeAct!CloseDate.Visible = WasIssueResolved
CloseDate.Locked = WasIssueResolved