TechKnowledge Content
Problem Da li je moguće dodati dugme u prozor "Velika čistoća" i da VBA kôd otvori postojeću Microsoft Access bazu podataka kada se klikne na
ovo dugme?
Rezolucija
Ovo možete da obavite pomoću programa Modifier i VBA.
1. Dodajte novo dugme u željeni prozor "Velike čistoće" pomoću programa Modifier.
2. Dajte ovom dugmetu opisno ime kao što je btnOpenAccessDb.
3. Odobrite bezbednost ovom izmenjenom prozoru, a zatim otvorite sam prozor u velikim čistoćama.
4. Dodajte prozor u VBA, a zatim dodajte novo dugme i u VBA.
5. Otvorite VBA uređivač i pređite na odeljak sa kodovima za ovaj prozor "Velike čistoće". Sledi uzorak koda koji se može koristiti ovde:
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 -Ovaj uzorak koda je dizajniran za otvaranje
adatabase pod imenom "db1.mdb" koja se nalazi u direktorijumu C:\My Documents i može da se promeni po potrebi. Objekat appAccess treba da bude dimenzijen u odeljku Opšte deklaracije, tako da nastavlja izvan opsezi dugmeta klika na događaj pri kojem se kôd ispaljuje.
Ovaj članak je techKnowledge Document ID:32879