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
