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