G
Guest
I have an Access DB exporting schedule data to MS Project via code. It works
fine on my laptop. The DB and Project files are on a server. When anyone else
runs the export function in the DB from another PC it reports a syntax error
at the "Set oProject = GetObject(PathName)" statement below and won't export
data to the Project file. I had the same problem on my PC at first but adding
the DAO 3.6 library and couple of others fixed the problem. The added
references are there regardless of which other PC I open the DB with. Also
checked the ones in MS Project and they all match what my PC shows too.
Any idea what's causing the error and how to fix it so other Users can run
the export function from their PC's?
Function Main_Update_Project(PathName As String, TableName As String)
'This is the second procedure called.
'Assign this as a recordset variable.
Dim rstExportTable As Recordset
'Now fill the recordset with the records in the table identified by the
TableName argument
Set rstExportTable = CurrentDb.OpenRecordset(TableName)
Set oProject = GetObject(PathName)
Call Sub_Update_Project(oProject, rstExportTable, PathName)
'Set oProject = Nothing
Set rstExportTable = Nothing
fine on my laptop. The DB and Project files are on a server. When anyone else
runs the export function in the DB from another PC it reports a syntax error
at the "Set oProject = GetObject(PathName)" statement below and won't export
data to the Project file. I had the same problem on my PC at first but adding
the DAO 3.6 library and couple of others fixed the problem. The added
references are there regardless of which other PC I open the DB with. Also
checked the ones in MS Project and they all match what my PC shows too.
Any idea what's causing the error and how to fix it so other Users can run
the export function from their PC's?
Function Main_Update_Project(PathName As String, TableName As String)
'This is the second procedure called.
'Assign this as a recordset variable.
Dim rstExportTable As Recordset
'Now fill the recordset with the records in the table identified by the
TableName argument
Set rstExportTable = CurrentDb.OpenRecordset(TableName)
Set oProject = GetObject(PathName)
Call Sub_Update_Project(oProject, rstExportTable, PathName)
'Set oProject = Nothing
Set rstExportTable = Nothing