TechKnowledge'i sisu
Probleem. Kas selle nupu klõpsamisel saab lisada nupu aknasse Great Plains ja vba-koodi avada olemasoleva
Microsoft Accessi andmebaasi?
Lahendus
Seda saab teha modifikaatori ja VBA abil.
1. Lisage uus nupp soovitud suurde tasandikute aknasse, kasutades muuteklahvi (Modifier).
2. Andke sellele nupule kirjeldav nimi (nt btnOpenAccessDb).
3. Andke sellele muudetud aknale turve ja avage aken ise Great Plains'i aknas.
4. Lisage aken VBA-sse ja lisage uus nupp ka VBA-sse.
5. Avage VBA-redaktor ja liikuge selle suure tasandiku akna koodijaole. Järgnevalt on esitatud koodinäidis, mida saab siin kasutada:
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 can be needed. Objekt appAccess peaks olema jaotises Ülddeklaratsioonid mõõtmetega, nii et see ei ületaks nupu klõpsamise sündmust, kus kood käivitatakse.
See artikkel oli TechKnowledge Document ID:32879