438 Error: Code check

[Guest]

Apologies for double posting but I need a response to this.

Can anyone tell me what is wrong with this code? I am getting a "438" error.
I was told to put double quotes in the last row but I am still getting the
same error.

DoCmd.TransferSpreadsheet acExport, _
acSpreadsheetTypeExcel9, "Report_Errors", _
"""S:\ASSET DATA SERVICES\CUSTOMER SATISFACTION TEAM\Queries Database
2007\New Database\" & [Forms]![menu]![Reports menu].Forms![SavePath], , ,
"Errors"

Thanks

 

[Douglas J. Steele]

You haven't closed the double quotes. See whether that makes a difference:

DoCmd.TransferSpreadsheet acExport, _
acSpreadsheetTypeExcel9, "Report_Errors", _
"""S:\ASSET DATA SERVICES\CUSTOMER SATISFACTION TEAM\Queries Database
2007\New Database\" & [Forms]![menu]![Reports menu].Forms![SavePath] &
"""", , ,
"Errors"

 

[Guest]

The last line was wrong. At the moment it is:

"""S:\ASSET DATA SERVICES\CUSTOMER SATISFACTION TEAM\Queries Database
2007\New Database\" & [Forms]![menu]![Reports menu].Forms![SavePath] &
".xls""", , , "Errors"

and I still get the error.

You haven't closed the double quotes. See whether that makes a difference:

DoCmd.TransferSpreadsheet acExport, _
acSpreadsheetTypeExcel9, "Report_Errors", _
"""S:\ASSET DATA SERVICES\CUSTOMER SATISFACTION TEAM\Queries Database
2007\New Database\" & [Forms]![menu]![Reports menu].Forms![SavePath] &
"""", , ,
"Errors"


--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)

Apologies for double posting but I need a response to this.

Can anyone tell me what is wrong with this code? I am getting a "438"
error.
I was told to put double quotes in the last row but I am still getting the
same error.

DoCmd.TransferSpreadsheet acExport, _
acSpreadsheetTypeExcel9, "Report_Errors", _
"""S:\ASSET DATA SERVICES\CUSTOMER SATISFACTION TEAM\Queries Database
2007\New Database\" & [Forms]![menu]![Reports menu].Forms![SavePath], , ,
"Errors"

Thanks

 

[Douglas J. Steele]

That should be

[Forms]![menu]![Reports menu].Form![SavePath]

(You have Forms in both places)

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)

The last line was wrong. At the moment it is:

"""S:\ASSET DATA SERVICES\CUSTOMER SATISFACTION TEAM\Queries Database
2007\New Database\" & [Forms]![menu]![Reports menu].Forms![SavePath] &
".xls""", , , "Errors"

and I still get the error.

You haven't closed the double quotes. See whether that makes a
difference:

DoCmd.TransferSpreadsheet acExport, _
acSpreadsheetTypeExcel9, "Report_Errors", _
"""S:\ASSET DATA SERVICES\CUSTOMER SATISFACTION TEAM\Queries Database
2007\New Database\" & [Forms]![menu]![Reports menu].Forms![SavePath] &
"""", , ,
"Errors"


--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)

Apologies for double posting but I need a response to this.

Can anyone tell me what is wrong with this code? I am getting a "438"
error.
I was told to put double quotes in the last row but I am still getting
the
same error.

DoCmd.TransferSpreadsheet acExport, _
acSpreadsheetTypeExcel9, "Report_Errors", _
"""S:\ASSET DATA SERVICES\CUSTOMER SATISFACTION TEAM\Queries Database
2007\New Database\" & [Forms]![menu]![Reports menu].Forms![SavePath], ,
,
"Errors"

Thanks