Contenuto techknowledge
Problema È possibile aggiungere un pulsante a una finestra di Great Plains e impostare il codice VBA per aprire un database di Microsoft Access esistente quando si fa clic
su questo pulsante?
Risoluzione
Questa operazione può essere eseguita con Modificatore e VBA.
1. Aggiungere un nuovo pulsante alla finestra Great Plains desiderata usando Modifier.
2. Assegnare a questo pulsante un nome descrittivo, ad esempio btnOpenAccessDb.
3. Concedere la sicurezza a questa finestra modificata e quindi aprire la finestra stessa in Great Plains.
4. Aggiungere la finestra a VBA e quindi aggiungere il nuovo pulsante anche a VBA.
5. Aprire l'editor VBA e passare alla sezione di codice per questa finestra di Great Plains. Di seguito è riportato un esempio di codice che può essere usato qui:
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 -
Questo esempio di codice è progettato per aprire un database denominato "db1.mdb" che si trova nella directory C:\Documenti e può essere modificato in base alle esigenze. L'oggetto appAccess deve essere quotato nella sezione Dichiarazioni generali in modo che persista oltre l'ambito dell'evento clic sul pulsante in cui viene generato il codice.
Questo articolo è stato ID documento TechKnowledge:32879