Содержимое TechKnow вЕтвь
Проблема. Можно ли добавить кнопку в окно Great Plains и при нажатии этой кнопки открыть существующую базу данных Microsoft Access с кодом
VBA?
Разрешение.
Это можно сделать с помощью модификатора и VBA.
1. Добавьте новую кнопку в нужное окно "Отличные простоцы" с помощью модификатора.
2. Придай этой кнопке описательное имя, например btnOpenAccessDb.
3. Придать безопасности измененное окно, а затем открыть само окно в Great Plains.
4. Добавьте окно в VBA, а затем добавьте новую кнопку и на VBA.
5. Откройте редактор VBA и перейдите к разделу кода этого окна Great Plains. Ниже приводится пример кода, который можно использовать здесь:
Option Explicit
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 -This code
sample is designed to open adatabase named "db1.mdb"located in the C:\My Documents directory and can be changed as needed. Объект appAccess должен иметь размер в разделе Общие объявления, чтобы он не усекался при нажатии кнопки.
Эта статья была посвящена ид.: 32879