Contenido de TechKnowledge
Problema ¿Es posible agregar un botón a una ventana de Great Plains y hacer que el código vba abra una base de datos de Microsoft Access existente cuando se hace
clic en este botón?
Resolución
Esto se puede hacer con Modificador y VBA.
1. Agregue un nuevo botón a la ventana Great Plains que desee con Modificador.
2. Asigne a este botón un nombre descriptivo como btnOpenAccessDb.
3. Conceda seguridad a esta ventana modificada y, a continuación, abra la propia ventana en Great Plains.
4. Agregue la ventana a VBA y, a continuación, agregue el nuevo botón a VBA también.
5. Abra el editor de VBA y vaya a la sección de código de esta ventana de Great Plains. A continuación se muestra un ejemplo de código que se puede usar aquí:
Opción Explícita
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. El objeto appAccess debe estar dimensionado en la sección Declaraciones generales para que persista más allá del ámbito del evento de clic del botón en el que se está disparando el código.
Este artículo era TechKnowledge Document ID:32879