Bekannte Inhalte von TechKnow
Problem Ist es möglich, einem Great Plains-Fenster eine Schaltfläche hinzuzufügen und VBA-Code eine vorhandene Microsoft Access-Datenbank zu öffnen, wenn auf diese
Schaltfläche geklickt wird?
Lösung
Dies kann mithilfe von Modifikator und VBA geschehen.
1. Fügen Sie dem gewünschten Fenster "Great Plains" mithilfe von Modifikator eine neue Schaltfläche hinzu.
2. Geben Sie dieser Schaltfläche einen aussagekräftigen Namen, z. B. btnOpenAccessDb.
3. Gewähren Sie diesem geänderten Fenster Sicherheit, und öffnen Sie dann das Fenster selbst in Great Plains.
4. Fügen Sie das Fenster zu VBA und dann die neue Schaltfläche auch zu VBA hinzu.
5. Öffnen Sie den VBA-Editor, und navigieren Sie zum Codeabschnitt für dieses Great Plains-Fenster. Das folgende Codebeispiel kann hier verwendet werden:
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
adatabase named "db1.mdb" located in the C:\My Documents directory and can be changed as needed. Das appAccess-Objekt sollte im Abschnitt "Allgemeine Deklarationen" dimensioniert werden, damit es über den Bereich des Klickereigniss für die Schaltfläche hinaus beibehalten wird, in dem der Code schiehiert wird.
Dieser Artikel wurde unter "TechKnownownowanzeige Dokument-ID:32879"