Compile Error: End If without block If?

J

Jen

Why do I keep getting this error End If without block If from the code
below?

Private Sub ReportFooter_Format(Cancel As Integer, FormatCount As Integer)
Me.NumCopiesPrinted = Me.NumCopiesPrinted + 1

If FormatCount = 1 Then
Select Case NumCopies
Case 1
Me.WhichCopy.Visible = False
Case 2
Me.WhichCopy.Caption = "Own Copy"
Me.WhichCopy.Visible = True
Case 3
Me.WhichCopy.Caption = "Accounting Copy"
Me.WhichCopy.Visible = True
Case 4
Me.WhichCopy.Caption = "Supervisor Copy"
Me.WhichCopy.Visible = True

End If
End Sub
 
C

chas

Hi Jen,

you have missed out the End Select statement that needs to
go before the End If statement.

hth

chas
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

"You can't assign a value to this object", Access report 1
Compile Error: End If without block If? 4
Hiding Labels in Reports if Field Blank 2
Report printing 3
Sum amount at report footer is wrong 3
Forcing font to Italic? 3
Change Bold to Itallic 2
Page numbering 4

Top