C
Cuda
Shows every record:
Private Sub Report_Open(Cancel As Integer)
Dim stDocName As String
Dim strInvoicing As String
Dim strSites As String
strInvoicing = "InvPercent"
strSites = "Base List.Subform!SiteComplete"
Shows one page of report but fields are blank....
Private Sub Report_Open(Cancel As Integer)
Dim stDocName As String
Dim strInvoicing As String
Dim strSites As String
strInvoicing = "InvPercent"
strSites = "Base List.Subform!SiteComplete"
stDocName = "Open Projects"
DoCmd.OpenReport stDocName, acPreview, wherecondition:=strInvoicing &
strSites = "<1"
End Sub
stDocName = "Open Projects"
DoCmd.OpenReport stDocName, acPreview, wherecondition:=strInvoicing <= 1
& strSites <= 1
End Sub
Private Sub Report_Open(Cancel As Integer)
Dim stDocName As String
Dim strInvoicing As String
Dim strSites As String
strInvoicing = "InvPercent"
strSites = "Base List.Subform!SiteComplete"
Shows one page of report but fields are blank....
Private Sub Report_Open(Cancel As Integer)
Dim stDocName As String
Dim strInvoicing As String
Dim strSites As String
strInvoicing = "InvPercent"
strSites = "Base List.Subform!SiteComplete"
stDocName = "Open Projects"
DoCmd.OpenReport stDocName, acPreview, wherecondition:=strInvoicing &
strSites = "<1"
End Sub
stDocName = "Open Projects"
DoCmd.OpenReport stDocName, acPreview, wherecondition:=strInvoicing <= 1
& strSites <= 1
End Sub