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
