Conținut TechKnowledge
Problemă Este posibil să adăugați un buton într-o fereastră Great Plains și să faceți ca codul VBA să deschidă o bază de date Microsoft Access existentă atunci când se
face clic pe acest buton?
Rezoluție
Acest lucru se poate face utilizând Modificator și VBA.
1. Adăugați un buton nou în fereastra Great Plains dorită, utilizând Modificatorul.
2. Dați acestui buton un nume descriptiv, cum ar fi btnOpenAccessDb.
3. Acordți securitate acestei ferestre modificate, apoi deschideți fereastra propriu-zisă în Great Plains.
4. Adăugați fereastra la VBA, apoi adăugați noul buton și la VBA.
5. Deschideți editorul VBA și navigați la secțiunea de cod pentru această fereastră Great Plains. Urmează un exemplu de cod care poate fi utilizat aici:
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 -Acest
exemplu de cod este proiectat să deschidă o bază de date numită "db1.mdb" situată în directorul C:\My Documents și poate fi modificat după cum este necesar. Obiectul appAccess trebuie dimensionat în secțiunea de declarații generale, astfel încât să persiste dincolo de domeniul de acțiune al evenimentului de clic pe buton în care se executa codul.
Acest articol a fost TechKnowledge Document ID:32879