Code to open report;
Option Compare Database
Option Explicit
Dim RetVal As Variant
Dim CloseDialog As Boolean
Dim SPTotal As Currency
Dim RptTotal As Currency
Private Sub GroupFooter2_Format(Cancel As Integer, FormatCount As Integer)
' txtSPTotal = SPTotal
End Sub
Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
'SPTotal = SPTotal + Me!AMOUNTCLOSED
'RptTotal = RptTotal + Me!AMOUNTCLOSED
End Sub
Private Sub GroupHeader1_Format(Cancel As Integer, FormatCount As Integer)
SPTotal = 0
End Sub
Private Sub Report_Close()
RetVal = SysCmd(5)
Call LogDocClose(Me)
End Sub
Private Sub Report_NoData(Cancel As Integer)
MsgBox "No claims match the report criteria."
Cancel = True
CloseDialog = False
End Sub
Private Sub Report_Open(Cancel As Integer)
Call LogDocOpen(Me)
RetVal = SysCmd(4, "This is the report based on the criteria chosen...")
End Sub
Private Sub Report_Resize()
DoCmd.Maximize
End Sub
Private Sub ReportFooter_Format(Cancel As Integer, FormatCount As Integer)
'txtRptTotal = RptTotal
End Sub
Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)
RptTotal = 0
End Sub