Question

我有一个在旧的MS Access数据库中运行的早晨进程。在VBA代码中运行的进程之一是将数据导出到文本文件。

DoCmd.TransferText acExportFixed, "Rest Export Specification", "RestExport", "\\xxx\yyy\srest.txt", False, ""

从上周开始，当代码遇到此过程时，我突然收到错误消息。我每次遇到此查询时都会收到Run-error 3024: Could not find file。奇怪的是，它在早上运行时运行失败但如果我手动运行它我没有错误。

有没有人对我应该注意什么来解决这个问题？

由于

编辑：

基于一些讨论我觉得他们似乎已经对保存到的目录进行了某种权限更改。所以我需要进行代码更改以在本地保存文件，然后将CopyFile复制到正确的目录。

Answer 1

我找到了一种让它发挥作用的方法。通过将其本地添加到c：驱动器然后复制到最终位置，我们绕过了错误。

Public Sub Export()

    Dim oFiles As FileSystemObject
    Dim strSource As String
    Dim strDest As String

    DoCmd.TransferText acExportFixed, "Rest Export Specification", "RestExport", "C:temp\srest.txt", False, ""

    'copy file to NAS drive
    strSource = "C:\Temp\srest.txt"
    strDest = "\\xxx\yyy\srest.txt"

    DoCmd.Hourglass True

    Set oFiles = New FileSystemObject
    oFiles.CopyFile strSource, strDest
    Set oFiles = Nothing

    DoCmd.Hourglass False

End Sub

传输文本上的新MS Access错误

1 个答案: