Conteúdo techknowledge
Problema É possível adicionar um botão a uma janela grandes plains e fazer com que o código do VBA abra um banco de dados existente do Microsoft Access quando esse
botão é clicado?
Resolução
Isso pode ser feito usando Modificador e VBA.
1. Adicione um novo botão à janela Great Plains desejada usando Modificador.
2. Dê a este botão um nome descritivo como btnOpenAccessDb.
3. Conceda segurança a essa janela modificada e abra a própria janela em Great Plains.
4. Adicione a janela ao VBA e adicione o novo botão ao VBA também.
5. Abra o editor do VBA e navegue até a seção de código para esta janela grandes plains. A seguir está um exemplo de código que pode ser usado aqui:
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. O objeto appAccess deve ser dimensionado na seção Declarações Gerais para que ele persista além do escopo do evento de clique do botão no qual o código está disparando.
Este artigo foi TechKnowledge Document ID:32879