Runtime Error in Access

[jason0522]

Hello, Im new to coding VBA and running into a snag. The transferspreadsheet command gives a runtime error 3027. Database or object is read-only. Any ideas?? Thanks in advance


Private Sub Command5_Click()
Dim rs As ADODB.Recordset
Set rs = CurrentProject.Connection.Execute("Store_List")
rs.MoveFirst
Do While Not rs.EOF
Me.Text0.Value = rs.Fields(0)
DoCmd.OpenQuery "KSN", acViewNormal, acEdit DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "KSN", "C:\Spaceman" & Me.Text0.Value & ".csv"
DoCmd.Close

rs.MoveNext
Loop

End Sub

 

[boblarson]

1. You don't need the close command as you don't need to open the query to export it.

2. What is Store_List? Is it just a query or table?

Which line is highlighted if you click DEBUG on the error message?

 

[jason0522]

"Store_List" is a query that lists the unique entries of a field in a table. "KSN" is a query that looks at the textbox to filter a table on that field. I want to create a csv file for each unique "KSN" query.

It highlights the line below:
DoCmd.OpenQuery "KSN", acViewNormal, acEdit DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "KSN", "C:\Spaceman" & Me.Text0.Value & ".csv"

Thanks!

 

[boblarson]

Change this:

DoCmd.OpenQuery "KSN", acViewNormal, acEdit DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "KSN", "C:\Spaceman" & Me.Text0.Value & ".csv"

to this

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "KSN", "C:\Spaceman" & Me.Text0.Value & ".csv"

you had two commands bunched together and you can't do that and, like I had said, you do not need to open the query to export it.

 

[jason0522]

I tried that which didn't work but i tried the following with success! I am not sure why this command worked and the other did not. But thanks for all of your help!!

DoCmd.TransferText acExportDelim, , "KSN", "C:\Spaceman\" & Me.Text0.Value & ".csv"