blakemckenna
Apr 9th, 2007, 03:49 PM
I have attached the Error Message as a Word Doc so it can be viewed. I'm not sure if the Selection Formula is syntactically correct. I've also included the code that generates the report below:
Public Sub TimeByProject(ByVal intMO As Integer, ByVal intYR As Integer)
Try
strModule = "modReporting"
Dim crDOC As New rptTimeByProject
Dim strSelectionFormula As String = ""
crConnectionInfo = New ConnectionInfo
With crConnectionInfo
.ServerName = "ServerName"
.DatabaseName = "SCTime"
.IntegratedSecurity = True
End With
crDB = crDOC.Database
crTables = crDB.Tables
For Each crTable In crTables
crTableLogOnInfo = crTable.LogOnInfo
crTableLogOnInfo.ConnectionInfo = crConnectionInfo
crTable.ApplyLogOnInfo(crTableLogOnInfo)
Next
frmReports.rptViewer.DisplayGroupTree = False
strSelectionFormula = "month({tblTimeSheetDetail.beginPeriodDate}) = " & intMO & " AND year({tblTimeSheetDetail.beginPeriodDate}) = " & intYR
crDOC.RecordSelectionFormula = strSelectionFormula
frmReports.rptViewer.ReportSource = crDOC
frmReports.ShowDialog()
crDOC = Nothing
crDB = Nothing
crTables = Nothing
crConnectionInfo = Nothing
Catch ex As Exception
End Try
End Sub
Public Sub TimeByProject(ByVal intMO As Integer, ByVal intYR As Integer)
Try
strModule = "modReporting"
Dim crDOC As New rptTimeByProject
Dim strSelectionFormula As String = ""
crConnectionInfo = New ConnectionInfo
With crConnectionInfo
.ServerName = "ServerName"
.DatabaseName = "SCTime"
.IntegratedSecurity = True
End With
crDB = crDOC.Database
crTables = crDB.Tables
For Each crTable In crTables
crTableLogOnInfo = crTable.LogOnInfo
crTableLogOnInfo.ConnectionInfo = crConnectionInfo
crTable.ApplyLogOnInfo(crTableLogOnInfo)
Next
frmReports.rptViewer.DisplayGroupTree = False
strSelectionFormula = "month({tblTimeSheetDetail.beginPeriodDate}) = " & intMO & " AND year({tblTimeSheetDetail.beginPeriodDate}) = " & intYR
crDOC.RecordSelectionFormula = strSelectionFormula
frmReports.rptViewer.ReportSource = crDOC
frmReports.ShowDialog()
crDOC = Nothing
crDB = Nothing
crTables = Nothing
crConnectionInfo = Nothing
Catch ex As Exception
End Try
End Sub