TechKnowledge-inhoud
Probleem Is het mogelijk om een knop toe te voegen aan een venster Met groot effenen en VBA-code een bestaande Microsoft Access-database te laten openen wanneer op deze knop
wordt geklikt?
Oplossing
Dit kan met Modifier en VBA.
1. Voeg met Modifier een nieuwe knop toe aan het gewenste venster Grote vlakten.
2. Geef deze knop een beschrijvende naam, zoals btnOpenAccessDb.
3. Verleen beveiliging aan dit gewijzigde venster en open het venster zelf in Great Plains.
4. Voeg het venster toe aan VBA en voeg vervolgens ook de nieuwe knop toe aan VBA.
5. Open de VBA-editor en navigeer naar de codesectie voor dit venster Grote vlakten. Hieronder volgt een codevoorbeeld dat u hier kunt gebruiken:
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 a database named
"db1.mdb" located in the C:\My Documents directory and can be changed as needed. Het appAccess-object moet worden gedimensioneerd in de sectie Algemene declaraties, zodat het blijft bestaan buiten het bereik van de knopklikgebeurtenis waarin de code wordt afvuren.
Dit artikel was TechKnowledge Document ID:32879