Set the FilterOnLoad property to Yes or change the RecordSource to:
SELECT TemmisTagT.* FROM TemmisTagT WHERE (((TemmisTagT.SignedOut)=True));
This code almost works:
Code:
Private Sub Report_Page()
Dim intRows As Integer
Dim intLoop As Integer
Dim intTopMargin As Integer
Dim intDetailHeight As Integer
intRows = 25
intDetailHeight = Me.Section(0).Height
intTopMargin = 2150
For intLoop = 0 To intRows
Me.CurrentX = 20
Me.CurrentY = intLoop * intDetailHeight + intTopMargin
'Me.Print intLoop + 1
Me.Line (3, intLoop * intDetailHeight + intTopMargin)-Step(Me.Width, intDetailHeight), , B
Next
End Sub
I am not able to figure out how to get the correct record count. When I try:
intRows = 25 - Me.Count
the count is 32, not 3
Wish I could find the reference I used long time ago to get this working with my db. Unfortunately, I discarded the code because my report became too complicated and I decided the blank rows were not important.
A working example can be downloaded from http://www.access-programmers.co.uk/...d.php?t=183782