Доступ к функции «Сохранить как» с данными базы данных

Я пытаюсь сохранить шаблон в определенном месте. Например, если продукт имеет GnrSerie = 1000, он должен перейти в эту папку, а затем, если Gnr = E2000, он должен перейти в эту папку и затем назвать файл GnrSerie + "-" + Gnr.

Я использую следующий код для сохранения файла:

  .SaveAs "CAN'T SHOW THIS\" & rst![GnrSerie] & "\" & rst![Gnr] & "\" & rst![GnrSerie] & "-" & rst![Gnr], wdFormatDocument

Более того, я подключен к базам данных/таблицам, где размещены GnrSerie и Gnr.

Dim rst As DAO.Recordset
Dim sql As String
Dim db As Database

Set db = CurrentDb

sql = "SELECT * FROM Projektdata WHERE Sagsnr Like '*" & Forms!Sag_Form!SagNr & "*'"
Set rst = db.OpenRecordset(sql, dbOpenDynaset)

Когда я запускаю его, он просто выскакивает и спрашивает меня, где я хочу сохранить файл.


vba ms-access save-as ms-access-2007
person Uppah    schedule 29.12.2015    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Вероятно, вам также придется указать диск:

.SaveAs "D:\CAN'T SHOW THIS\" & rst![GnrSerie] & "\" & rst![Gnr] & "\" & rst![GnrSerie] & "-" & rst![Gnr], wdFormatDocument
person Gustav    schedule 29.12.2015
comment
Дело в том, что я должен сохранить его на онлайн-диске, а не на локальном. - person Uppah; 05.01.2016
comment
Также я получаю сообщение об ошибке. Это действие не может быть выполнено, потому что приложение () не отвечает. Выберите переключатель На, чтобы активировать и устранить проблему. Когда я нажимаю кнопку «Переключить», я получаю окно, в котором могу сохранить его там, где хочу, а это не то, что мне нужно. - person Uppah; 05.01.2016
comment
Кажется, что нет способа указать полный путь. Таким образом, вы должны получить этот путь перед вызовом .SaveAs. - person Gustav; 05.01.2016