Kimmer,
Is the report simply being run, and the differences (i.e. missing record) shown for all records, except the first?
As I said earlier, I may not be the best coach. I really am unfamiliar with reporting in Access.
I tried with the difference code in Detail_Paint(), like so, but I'm not sure that is the best way to go about it.
- Private Sub Detail_Paint()
-
On Err GoTo ohNo
-
-
Dim status1 As Variant
-
status1 = Me![Status]
-
-
If IsNull(status0) Then
-
Text2 = "s0: Null" & ASCII.CRLF & _
-
"same"
-
ElseIf (status0 = status1) Then
-
Text2 = "same: " & status0
-
Else
-
Text2 = "diff: " & status0 & " / " & status1
-
status0 = status1
-
End If
-
-
Exit Sub
-
-
ohNo:
-
MsgBox "Error here:" & ASCII.CRLF & Err.Description
-
End Sub
-
-
Private Sub Report_Open(Cancel As Integer)
-
status0 = Null
-
End Sub
-
The problem is that my initialization code in
Report_Open(...) is in the wrong place. I'm not sure where to put it.