Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Lukas А что если попробовать так:
Public Function OpenOtherDB(strFileDBName As String) Dim appAccess as Object Dim strFiltr As String strFiltr ="Тут Ваш фильтр на запись" Set appAccess = CreateObject("Access.Application") appAccess.OpenCurrentDatabase strFileDBName, True ' здесь добавил appAccess.DoCmd.OpenForm "FormName", , , strFiltr, , acDialog appAccess.CloseCurrentDatabase appAccess.DoCmd.Quit Set appAccess = Nothing Exit Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.