MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Escrever em formulário do Access via VBA através do Excel

    MatheusAce
    MatheusAce
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 31/03/2016

    Escrever em formulário do Access via VBA através do Excel Empty Escrever em formulário do Access via VBA através do Excel

    Mensagem  MatheusAce 31/3/2016, 14:58

    Prezados bom dia,
    [Contexto]
    Estou desenvolvendo uma planilha na empresa onde trabalho, cujo os dados estão armazenados em um banco de dados do access, nesse banco possuo um formulário com os campos:

    Data Inicio [DTH_INI]
    Data Fim [DTH_FIM]

    Ao preencher esse formulário o access retorna os dados filtrados de acordo com a seleção do usuário, depois disso os dados são exportados para o Excel, as consultas desse banco são complexas pois fazem ligação com diversas tabelas e bancos da empresa via ODBC, no Excel eu simplesmente pego os valores que estão salvos resultado do formulário (SELECT * FROM KANBAN).

    Dúvida
    Existe alguma forma de fazer com que o Excel preencha esses campos do formulário do Access via macro?


    Formulário Access:
    Escrever em formulário do Access via VBA através do Excel 2zdzqcl

    Informações
    Pacote office 2007
    Com o código abaixo eu consigo abrir o access e o formulário:
    Código:

       LPath = "E:\Usuarios\ac47165\Desktop\KPIs Processo\Tabela.mdb"

       Set oApp = CreateObject("Access.Application")
       oApp.Visible = True

       oApp.OpenCurrentDatabase LPath


       'Open form called Categories filtering by CategoryID
         DoCmd.OpenForm "Formulário1", acNormal, , , , acDialog
      

    No mais agradeço desde já.

      Data/hora atual: 27/1/2023, 05:51