Vsebina TechKnowledge
Težava Ali je mogoče dodati gumb v okno »Odlične navadne vrstice« in s kodo VBA odpreti obstoječo Microsoft Accessovo zbirko podatkov, ko kliknete ta gumb? Rešitev To lahko narediti z modifikatorjem in kodo VBA.1. Dodajte nov gumb v želeno okno »Velike navadne oblike« s modifikatorjem. 2. Temu gumbu dodajte opisno ime, na primer btnOpenAccessDb. 3. Posojajte varnost za to spremenjeno okno in nato odprite samo okno v odličnih preprostih barvah. 4. Dodajte okno v VBA in nato dodajte nov gumb tudi v VBA.5. Odprite urejevalnik VBA in se pomaknite v razdelek s kodo za to okno »Odlične navadne«. Spodaj je vzorec kode, ki ga lahko uporabite tukaj: 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. Predmet appAccess mora biti dimenzija v razdelku Splošne deklaracije, tako da se ohrani zunaj obsega klika gumba, v katerem se koda zaganja.Ta članek je bil TechKnowledge DOCUMENT ID:32879
