Я получаю неизвестную ошибку пути к файлу и не могу понять, почему? - PullRequest
Новая
       83

Я получаю неизвестную ошибку пути к файлу и не могу понять, почему?

0 голосов
/ 29 апреля 2020

У меня есть раздел кода VBA в Access, который выполняет запрос, используя входные данные в форме (один ввод для запроса, другой для сохранения имени файла). По какой-то причине я получаю неверный путь к файлу, но путь, как я могу сказать, le git. Почему я получаю ошибку? FileName - это желаемое имя электронной таблицы, которая будет сохранена из формы. Вот что я получаю из доступа за ошибку:

enter image description here

Private Sub AllPaybacks_Click()
Dim getFolder As Object
Dim sLoc As String
Dim fileN As String

Set getFolder = Application.FileDialog(msoFileDialogFolderPicker)
With getFolder
    .AllowMultiSelect = False
    getFolder.InitialFileName = FileName.Value
    fileN = getFolder.InitialFileName
    If .Show = True Then
        sLoc = getFolder.SelectedItems(1) & "\"
    End If
End With

DoCmd.OpenQuery "PaybackQ"
DoCmd.TransferSpreadsheet acExport, , "PaybackQ", sLoc & fileN & ".xlsx", True
End Sub

1 Ответ

1 голос
/ 29 апреля 2020

Я использовал неправильный синтаксис для решения этой проблемы. Чтобы использовать данные из моего текстового поля в форме в качестве имени файла, мне нужно было сделать следующее: 

Private Sub AllPaybacks_Click()
Dim getFolder As Object
Dim sLoc As String
Dim fileN As String

Set getFolder = Application.FileDialog(msoFileDialogFolderPicker)
With getFolder
    .AllowMultiSelect = False
    fileN = Forms!PaybackSearchF!FileName
    If .Show = True Then
        sLoc = getFolder.SelectedItems(1) & "\"
    End If
End With

DoCmd.OpenQuery "PaybackQ"
DoCmd.TransferSpreadsheet acExport, , "PaybackQ", sLoc & fileN & ".xlsx", True

End Sub

fileN = Forms! PaybackSearchF! FileName соответствующим образом прочитал строку в текстовом поле из моя форма.

...