Vba 运行时错误';3073';:操作必须使用可更新的查询
我有一些vba代码,我正试图使用它们来导出查询结果,每次我的代码尝试导出时,它都会抛出一个错误,Vba 运行时错误';3073';:操作必须使用可更新的查询,vba,ms-access,export,runtime-error,ms-access-2000,Vba,Ms Access,Export,Runtime Error,Ms Access 2000,我有一些vba代码,我正试图使用它们来导出查询结果,每次我的代码尝试导出时,它都会抛出一个错误,运行时错误“3073”:操作必须使用可更新的查询,我不知道为什么。导出其他表和查询可以很好地工作,即使使用相同的规范。您知道我遇到了什么样的问题吗?单步执行确认它在DoCmd.TransferText行中遇到问题 Public Function exportJobDetailRecs(dateStr As String) 'Docmd.TransferText(acexport,specName,Ta
运行时错误“3073”:操作必须使用可更新的查询,我不知道为什么。导出其他表和查询可以很好地工作,即使使用相同的规范。您知道我遇到了什么样的问题吗?单步执行确认它在DoCmd.TransferText
行中遇到问题
Public Function exportJobDetailRecs(dateStr As String)
'Docmd.TransferText(acexport,specName,TableName, FileName,HasfieldNames,HTMLTableName)
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(directory + CStr(dateStr + "_OrderStatus_jobdets.txt")) Then
Set temp = fso.createTextFile(directory + CStr(dateStr + "_OrderStatus_jobdets.txt"))
temp.Close
Else
MsgBox "It looks like you have already run the report (or partially run the report) today. Please Remove all remnants of the text output files and re-run." + vbNewLine + directory + CStr(dateStr + "_OrderStatus_jobdets.txt"), vbOKOnly, "Previously Run exports"
Exit Function
End If
Dim fnameStr As String
fnameStr = CStr(dateStr + "_OrderStatus_jobdets.txt")
DoCmd.TransferText acExport, _
"JobDetail", _
"2_JobDetail", _
directory + fnameStr
exportJobDetailRecs = fnameStr
End Function
我不认为这是查询本身,因为右键单击导出具有相同规范的查询效果很好,但是access查询生成的SQL是TransferType acExport,可能需要是以下msdn.microsoft.com/en-us/library/office/ff194227.aspx之一。您的查询看起来像一个select,因此我认为该错误可能是误报。TransferType acExport可能需要是以下内容之一。您的查询看起来像一个select,所以我认为该错误可能是误报。看起来我是个白痴。我尝试了acExport这个词,我需要对应于acExportDelimited的数字。作为答案提交,我会给你打分!为你辩护,这是一个糟糕的错误,我以前也犯过。