Приветствую всех: 2 дня я пытался понять это и пробовал различные техники с разочаровывающими результатами. Я пытаюсь запустить другую базу данных и закрыть / выйти из вызывающей (первой) базы данных. Я создал 2 подпрограммы с нажатием кнопки, один работает очень хорошо, а второй (который кажется идентичным) мигает новым Db, а затем сразу же возвращается в вызывающую базу данных. Вот код, который хорошо работает:
Dim objLeaveLookup As Object
Dim objOtherMenu As Object
Set objOtherMenu = GetObject("M:\QueryData\DBA Maintenance.mdb")
Set objLeaveLookup = GetObject("M:\QueryData\DBA_LookUp.mdb")
' Open Maintenance menu & quit DBA_Lookup
objOtherMenu.DoCmd.OpenForm "frm_MaintMenu"
objLeaveLookup.Application.Quit
, а вот код мигает разными Db, а затем, к сожалению, сразу же возвращается к исходному Db:
Dim objLeaveLookup As Object
Set objOtherMenu = GetObject("M:\QueryData\PurchMenu.mdb", "Access.Application").Application
Set objLeaveLookup = GetObject("M:\QueryData\DBA_LookUp.mdb", "Access.Application").Application
' Open Purchasing menu & quit DBA_LookUp
objOtherMenu.DoCmd.OpenForm "frm_PurMenu"
objLeaveLookup.Application.Quit
Любая помощь для получения желаемого результаты будут БЛАГОДАРНЫ.