Code Understanding

  • Thread starter Randy via AccessMonster.com
  • Start date
R

Randy via AccessMonster.com

Can someone explain what actions would be taken relative to the following
code...

Option Compare Database

Const LinesPerPage As Integer = 15

Dim intExtra As Integer

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

intExtra = 0

End Sub
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If (Me.txtLineCount >= txtTotalLines) And ((Me.txtLineCount + intExtra)
Mod LinesPerPage <> 0) Then
' Done with regular data lines.
If intExtra = 1 Then
' Make data controls invisible
Me.Text122.Visible = False
Me.Text124.Visible = False
Me.Item_Amount.Visible = False
Me.Item_Fund.Visible = False
Me.Item_Object.Visible = False
Me.Item_Center.Visible = False
Me.Item_Loan_INV_NBR.Visible = False
Me.Item_Quantity.Visible = False
Me.Item_Unit.Visible = False
Me.Item_Description.Visible = False
' . . .
End If
intExtra = intExtra + 1
Me.NextRecord = False
End If
End Sub
 
Top