TechKnowledge Content
Problem Je li moguće dodati gumb u prozor Velike ravnice i imati VBA kod koji otvara postojeću bazu podataka programa
Microsoft Access kada se klikne taj gumb?
Rješenje
To se može učiniti pomoću modifikatora i VBA-a.
1. Dodajte novi gumb u željeni prozor Velike ravnice pomoću modifikatora.
2. Ovom gumbu dajte opisni naziv kao što je btnOpenAccessDb.
3. Dodijelite sigurnost ovom izmijenjenom prozoru, a zatim sam prozor otvorite u velikim ravnicama.
4. Dodajte prozor u VBA, a zatim dodajte i novi gumb u VBA.
5. Otvorite VBA uređivač i otvorite odjeljak koda za ovaj prozor Velike ravnice. Slijedi primjer koda koji se može koristiti ovdje: Mogućnost
Eksplicitno
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 po potrebi. Objekt appAccess trebao bi biti dimenzioniran u odjeljku Opće deklaracije da bi se i dalje nalazio izvan opsega gumba, kliknite događaj u kojem se kod ispaljuje.
Ovaj je članak bio TECHKnowledge DOCUMENT ID:32879