1: 2: 3: 4: 5: 6:
' Кодий ниже раскрывает внешнюю базу данных Установите acObj = CreateObject («Access.application») acObj.OpenCurrentDatabase CurrentProject.Path & «\ DatabaseB.mdb» acObj.Visible = True acObj.UserControl = True acObj.DoCmd.Maximize