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
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