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