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
