"TechKnowledge" turinys
Problema Ar galima įtraukti mygtuką į langą Didžiosios lygumos ir turėti VBA kodą, kai spustelėsite šį mygtuką, atidarytumėte esamą
"Microsoft Access" duomenų bazę?
Sprendimas
Tai galima padaryti naudojant modifikatorių ir VBA.
1. Įtraukite naują mygtuką į norimą langą Didžiosios lygumos naudodami modifikatorių.
2. Suteikite šiam mygtukui aprašomąjį pavadinimą, pvz., btnOpenAccessDb.
3. Suteikite šio modifikuoto lango saugą, tada atidarykite patį langą didžiuoju lygumų formatu.
4. Įtraukite langą į VBA ir įtraukite naują mygtuką į VBA.
5. Atidarykite VBA rengyklę ir pereikite į šio didžiosios lygumos lango kodo sekciją. Toliau pateikiamas kodo pavyzdys, kurį galima naudoti čia:
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. Objektas "appAccess" turi būti matuojamas dalyje Bendrosios deklaracijos, kad jis neišsitęs už mygtuko spustelėjimo įvykio, kuriame yra kodas, taikymo srities.
Šis straipsnis buvo "TechKnowledge" dokumento ID:32879