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
