Report header code looping for unknown reason

E

EJO

Hello and thanks for the help. This is my first foray into Access (2k)
reports and i'm having a hard time of it. In this particular report,
there is a report header, page footer and report footer where there
exists a subreport (I think of this report as a cover sheet used only
under certain circumstances). In the report header, my code loops for
no apparent reason, at least, not one that I understand. This is the
code:

Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As
Integer)

Dim intResponse As Integer

intResponse = Len(Nz(Me.comboDev)) + Len(Nz(Me.comboDevRem)) +
Len(Nz(Me.comboDevUpdate))

If intResponse = 0 Then
Me.comboDev.Visible = False
Me.Text69.Visible = True
Me.Text69 = InputBox("The Engineering Change Control has detected
that " & _
"there are no hardware
changes, please enter the " & _
"device's configuration
that is to be updated.", "Configuration Change")
Else
Me.comboDev.Visible = True
Me.Text69.Visible = False
End If

End Sub
 

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

Top