TechKnowledge Content
Проблем Възможно ли е да добавите бутон към прозорец "Чудесни равнини" и да имате КОД на VBA да отвори съществуваща база данни на
Microsoft Access, когато този бутон е щракнат?
Разделителна
способност Това може да се направи с помощта на модификатор и VBA.
1. Добавете нов бутон към желания прозорец "Големи равнини" с помощта на модификатор.
2. Дайте на този бутон описателно име, като например btnOpenAccessDb.
3. Дайте защита на този модифициран прозорец и след това отворете самия прозорец в "Големи равнини".
4. Добавете прозореца към VBA и след това добавете и новия бутон към VBA.
5. Отворете редактора на VBA и отидете до секцията за код за този прозорец "Чудесни равнини". Следва примерен код, който може да се използва тук:
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", който се намира в директорията C:\Моите документи и може да бъде променен, ако е необходимо. Обектът AppAccess трябва да бъде оразмерен в секцията Общи декларации, така че да остане извън обхвата на събитието за щракване на бутона, в което кодът се изстрелва.
Тази статия е techKnowledge Document ID:32879