TechKnowledge Content
Проблема Чи можна додати кнопку до вікна Great Plains і відкрити наявну базу даних Microsoft Access після натискання цієї
кнопки?
Вирішення.
Це можна зробити за допомогою модифікатора та VBA.
1. Додайте нову кнопку до потрібного вікна Great Plains за допомогою Modifier.
2. Дайте цій кнопці описовне ім'я, наприклад btnOpenAccessDb.
3. Надайте захист цьому зміненому вікні, а потім відкрийте сам вікно у форматі Great Plains.
4. Додайте вікно до VBA, а потім додайте нову кнопку до VBA.
5. Відкрийте редактор VBA і перейдіть до розділу коду для цього вікна Great Plains. Нижче наведено зразок коду, який можна використовувати тут:
Option Явний
Dim appAccess As Object
Private Sub btnOpenAccessDb_BeforeUserChanged(KeepFocus As Boolean, CancelLogic As Boolean)
Dim docAccess
Set appAccess = CreateObject("Access.Application")
docAccess = appAccess.OpenCurrentDatabase("C:\My Documents\db1.mdb", True)
appAccess.Visible = True End Sub Note –Цей
зразок коду призначено для відкриття adatabase з іменем db1.mdb, розташованого в каталозі C:\My Documents, і його за потреби можна змінити. Об'єкт appAccess слід виміряти в розділі Загальні оголошення, щоб він не починав дія кнопки, у якій вистріляли код.
Ця стаття: TechKnowledge Document ID:32879