Новая ошибка MS Access при передаче текста - PullRequest
Новая
       37

Новая ошибка MS Access при передаче текста

0 голосов
/ 06 июня 2011

У меня есть утренний процесс, который выполняется в старой базе данных MS Access.Одним из процессов, который выполняется в коде VBA, является экспорт данных в текстовый файл.

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

Начиная с прошлой недели, я внезапно получаю сообщение об ошибке, когда код попадает в этот процесс.Я получаю Run-error 3024: Could not find file каждый раз, когда он попадает в этот запрос.Странно то, что он не работает при утреннем процессе, но если я запускаю его вручную, я не получаю никаких ошибок.

Кто-нибудь есть какие-либо предложения о том, что я должен посмотреть, чтобы исправить это?

Спасибо

РЕДАКТИРОВАТЬ:

На основе некоторых обсуждений у меня было этопохоже, что они сделали какое-то изменение разрешений для каталога, в который они сохраняются.Поэтому мне нужно изменить код, чтобы сохранить файл локально, а затем сделать CopyFile в правильном каталоге.

1 Ответ

0 голосов
/ 16 июня 2011

Я нашел способ заставить это работать.Добавляя его локально на диск 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
...