TechKnowledge Content
Ongelma Onko mahdollista lisätä painike Great Plains (Vain teksti) -ikkunaan ja antaa VBA-koodin avata aiemmin luodun Microsoft Access -tietokannan,
kun painiketta napsautetaan?
Ratkaisu
Tämä voidaan tehdä muunto-näppäimellä ja VBA:lla.
1. Lisää uusi painike haluttuun Great Plains -ikkunaan Modifierin avulla.
2. Anna painikkeelle kuvaava nimi, kuten btnOpenAccessDb.
3. Myönnä suojaus tälle muokatulle ikkunalle ja avaa sitten itse ikkuna Great Plainsissa.
4. Lisää ikkuna VBA:lle ja lisää sitten uusi painike myös VBA:lle.
5. Avaa VBA-editori ja siirry tämän Great Plains -ikkunan koodi-osaan. Seuraavassa on koodimalli, jota voidaan käyttää tässä:
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
-Tämä
koodimalli on suunniteltu avaamaan C:\My Documents -hakemistossa sijaitseva tietokanta nimeltä db1.mdb, ja sitä voidaan muuttaa tarvittaessa. AppAccess-objekti on mitatettava Yleiset ilmoitukset -osassa niin, että se jatkuu sen painikkeen napsautustapahtuman laajuuden ulkopuolella, jossa koodi on käynnistänyt koodin.
Tämä artikkeli oli TechKnowledge Document ID:32879