Originally Posted by
ScottGem
Perito is right about the error, but I think your solution may not the best choice. Rather than changing the name of a field, you would be better to fully qualify your field names.
In Access a fully qualified names is just [tablename].[fieldname]. So somewhere in the SQL statement was the fieldname FiscalYear. All you need to do is indicate what table that instance of FiscalYear was looking at by prefacing it with the tablename. If you want to post your SQL statement we can suggest where to change it.
I understand what your are saying but am still a little unsure of how to correct it in my sql statement. Again the error specifies it is in the FROM clause of my sql statement, however what fiscal year do I change.
Here is my sql statement:
'only Province, ProjectType and Status selected
If (budgetItemsTemp = " ") And (fiscalYearTemp = " ") And (categoryTemp = " ") Then
sql = "SELECT tblMain.ProjectCode, tblMain.EventDate, tblMain.Status, tblMain.OrganizationName, tblMain.Province, " _
& "tblMain.ProjectType " _
& "FROM tblMain "
'only cboBudgetItems and previous selected
ElseIf (fiscalYearTemp = " ") And (categoryTemp = " ") Then
sql = "SELECT tblMain.ProjectCode, tblMain.EventDate, tblMain.Status, tblMain.OrganizationName, tblMain.Province, " _
& "tblMain.ProjectType, tblBudgetItems.BudgetItems " _
& "FROM tblMain LEFT JOIN tblBudgetItems ON tblMain.ProjectCode = tblBudgetItems.ProjectCode "
'only cboCategory and original three selected
ElseIf (budgetItemsTemp = " ") And (fiscalYearTemp = " ") Then
sql = "SELECT tblMain.ProjectCode, tblMain.EventDate, tblMain.Status, tblMain.OrganizationName, tblMain.Province, " _
& "tblMain.ProjectType, tblCategory.PolicyArea, tblCategory.Priority, tblCategory.ScheduleAExceptions " _
& "FROM tblMain LEFT JOIN tblCategory ON tblMain.ProjectCode = tblCategory.ProjectCode "
'only cboFiscalYear and original three selected
ElseIf (budgetItemsTemp = " ") And (categoryTemp = " ") Then
sql = "SELECT tblMain.ProjectCode, tblMain.EventDate, tblMain.Status, tblMain.OrganizationName, tblMain.Province, " _
& "tblMain.ProjectType, tblFiscalBudget.FiscalYear, tblFiscalBudget.Budget " _
& "FROM tblMain LEFT JOIN tblFiscalBudget ON tblMain.ProjectCode = tblFiscalBudget.ProjectCode "
ElseIf (fiscalYearTemp = " ") Then 'all except cboFiscalYear selected
sql = "SELECT tblMain.ProjectCode, tblMain.EventDate, tblMain.Status, tblMain.OrganizationName, tblMain.Province, " _
& "tblMain.ProjectType, tblBudgetItems.BudgetItems, tblCategory.PolicyArea, tblCategory.Priority, " _
& "tblCategory.ScheduleAExceptions " _
& "FROM (tblMain LEFT JOIN tblBudgetItems ON tblMain.ProjectCode = tblBudgetItems.ProjectCode) " _
& "LEFT JOIN tblCategory ON tblBudgetItems.ProjectCode = tblCategory.ProjectCode "
ElseIf (budgetItemsTemp = " ") Then 'all except cboBudgetItems selected
sql = "SELECT tblMain.ProjectCode, tblMain.EventDate, tblMain.Status, tblMain.OrganizationName, tblMain.Province, " _
& "tblMain.ProjectType, tblFiscalBudget.FiscalYear, tblFiscalBudget.Budget, tblCategory.PolicyArea, " _
& "tblCategory.Priority, tblCategory.ScheduleAExceptions " _
& "FROM (tblMain LEFT JOIN tblFiscalBudget ON tblMain.ProjectCode = tblFiscalBudget.ProjectCode) " _
& "LEFT JOIN tblCategory ON tblFiscalBudget.ProjectCode = tblCategory.ProjectCode "
ElseIf (categoryTemp = " ") Then 'all except cboCategory selected
sql = "SELECT tblMain.ProjectCode, tblMain.EventDate, tblMain.Status, tblMain.OrganizationName, tblMain.Province, " _
& "tblMain.ProjectType, tblFiscalBudget.FiscalYear, tblFiscalBudget.Budget, tblBudgetItems.BudgetItems " _
& "FROM (tblMain LEFT JOIN tblBudgetItems ON tblMain.ProjectCode = tblBudgetItems.ProjectCode) " _
& "LEFT JOIN tblFiscalYear ON tblBudgetItems.ProjectCode = tblFiscalYear.ProjectCode "
Else 'everything selected
sql = "SELECT tblMain.ProjectCode, tblMain.EventDate, tblMain.Status, tblMain.OrganizationName, tblMain.Province, " _
& "tblMain.ProjectType, tblFiscalBudget.FiscalYear, tblFiscalBudget.Budget, tblBudgetItems.BudgetItems, " _
& "tblCategory.PolicyArea, tblCategory.Priority, tblCategory.ScheduleAExceptions " _
& "FROM ((tblMain LEFT JOIN tblFiscalBudget ON tblMain.ProjectCode = tblFiscalBudget.ProjectCode) " _
& "LEFT JOIN tblBudgetItems ON tblFiscalBudget.ProjectCode = tblBudgetItems.ProjectCode) " _
& "LEFT JOIN tblCategory ON tblBudgetItems.ProjectCode = tblCategory.ProjectCode "
End If