передать параметр запроса на обновление из Excel в Access

[R Dmitry]

Сообщение от Sergey112233

R Dmitry,
"Логика?!.... она где то рядом..."
Первым мне попался пример с сохраненным запросом с параметром.
За Ваш вариант спасибо. А как правильнее сделать, что быстрее работает? Или дело вкуса? Этого я не знаю. Вот и спрашиваю.

быстрее будет открыть рекордсет......... хотя его придется каждый раз find...ом прочесывать для поиска записи, поэтому оптимальней будет все же метод любезно предоставленный мной .
Да, у меня работает у Вас нет.... .. куда уж наглядней.

ps... Как Вы думаете как быстро открывается приложение access???

[999alex]

Сообщение от gluk_fm

Выполнения модуля (можно добавить передачу параметра):

Set appAccess = CreateObject("Access.Application")

appAccess.Visible = True
Call appAccess.OpenCurrentDatabase("путь и имя базы")
appAccess.Run "имя модуля"
appAccess.Application.Quit

А вот я пытаюсь открыть форму Access:
Sub displayformKod_Vos()
Dim strDB As String

strDB = "C:\CHACKNEW\KOD_VOS.MDB"
' Create new instance of Microsoft Access.
Set appAccess = _
CreateObject("Access.Application")
' Open database in Microsoft Access window.
appAccess.OpenCurrentDatabase strDB
' Open Orders form.
appAccess.DoCmd.OpenForm "kod_vos", View:=acFormDS

End Sub

Форма открывается, но упорно игнорирует View:=acFormDS, как мне открыть ее в виде таблицы?

[999alex]

Уже решил вопрос заменой открытия формы на открытие таблицы:
appAccess.DoCmd.Opentable "kod_vos"