none
VBA RRS feed

  • Pergunta

  • Boa noite Senhores,

     

     

     

    Estou montando um sistema em VBA e usando o Access como banco.

    Eu já criei as tabelas (raiz), e salvei como MDB.

    Agora estou querendo criar um formulário que busque os dados do banco.

    Ou seja, não sei se é a forma correta mas eu quero criar um formulário e através dos código eu faço vinculo com a tabela que esta em um arquivo MDB.

    Tem como eu fazer isso.

     

    Agradesso a todos..

     

     

     

     

    quinta-feira, 5 de julho de 2007 02:55

Respostas

  • Ainda assim, o mais simples seria vincular as tabelas e trabalhar como se fossem tabelas locais.

     

    Ou tra possibilidade é abrir um DAO.Recordset e atribuí-lo ao formulário:

     

    Dim db As Dao.Database

    Dim rst As Dao.Recordset

     

    Set db=OpenDatabase("c:\TuaPasta\Dados.mdb")

    Set rst=db.OpenRecodset("TuaTabela", dbOpenDynaset)

     

    Set Me.Recordset = rst

    domingo, 8 de julho de 2007 16:24
    Moderador

Todas as Respostas

  • Se está criando o formlário no próprio Access, basta configurar a propriedade Origem de Registro com o nome da tabela e arrastar os campos para a tela, não é necessário escrever código.
    sexta-feira, 6 de julho de 2007 01:48
    Moderador
  • Olá Luiz,

     

    Obrigado pela ajuda + eu tenho um arquivo chamado: dados.mdb e criei outro arquivo em access e sem tabelas criadas neste arquivo criarei direto um formulário e crio os botões que preciso e através desse botões por via evento eu quero buscar as tabelas que estão no outro arquivo (dados.mdb).

     

    Entendeu?

     

    Em um arquivo eu tenho sómente as tabela e no outro eu tenho o formulário com os botões, que deverão acessa os dados do outro arquivo(dados.mdb)

     

     

     

    Obrigado fique na PAZ.   

    domingo, 8 de julho de 2007 05:12
  • Ainda assim, o mais simples seria vincular as tabelas e trabalhar como se fossem tabelas locais.

     

    Ou tra possibilidade é abrir um DAO.Recordset e atribuí-lo ao formulário:

     

    Dim db As Dao.Database

    Dim rst As Dao.Recordset

     

    Set db=OpenDatabase("c:\TuaPasta\Dados.mdb")

    Set rst=db.OpenRecodset("TuaTabela", dbOpenDynaset)

     

    Set Me.Recordset = rst

    domingo, 8 de julho de 2007 16:24
    Moderador