TechKnowledge Content
Probléma: Felvehet egy gombot a Great Plains ablakba, és egy VBA-kód megnyit egy meglévő Microsoft Access-adatbázist, amikor erre a gombra kattint? Megoldás: Ezt a módosítót és a VBA-t használva lehet.1. Vegyen fel egy új gombot a kívánt Egyszerűs ablakba a Módosítóval. 2. Adjon ennek a gombnak egy jól leíró nevet, például btnOpenAccessDb. 3. Adja meg a biztonságot ennek a módosított ablaknak, majd nyissa meg magát az ablakot Nagy egyszerű formátumban. 4. Adja hozzá az ablakot a VBA-hoz, majd adja hozzá az új gombot a VBA-hoz is.5. Nyissa meg a VBA-szerkesztőt, és keresse meg a Great Plains ablak kódszakaszát. Az alábbi kódminta használható itt: 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 -Ez a kódminta a C:\Dokumentumok könyvtárban található "db1.mdb" adatabase megnyitására lett tervezve, és szükség szerint módosítható. Az appAccess objektumot az Általános deklarációk szakaszban kell dimenziózva lennie, hogy a gomb hatókörén kívül ne lásson olyan kattintási eseményt, amelyben a kód megfelelő.Ez a cikk a következő volt: TechKnowledge Document ID:32879
