Ir ao conteúdo
  • Cadastre-se
Kelvim

VBA EXCEL IMPORTAR DO ACCESS

Recommended Posts

Boa tarde

 

Eu estou tentando importar alguns valores do Access pelo vba para o EXCEL. Entretanto esta dando erro.

Gostaria de que se alguém soube-se como fazer postar.

 

Gostaria de importar apenas alguns valores que serão filtrados por exemplo.

 

Banco de dados

 

Tabela: ATENDIMENTO [Filtrar pela dada informada em um campo do formulário no Excel ex: Textbox1]

 

 

e pegar toda as linhas que tiverem aquela data XX/XX/XXXX, e importar para a planilha PESQUISA celula B2.

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa tarde,

 

O Campo que possui a data no access foi criado com qual formato? Texto ou Data mesmo?


Supondo que seja Data mesmo, teste esse código:

Sub Import()Dim db As DAO.DatabaseDim rs As DAO.RecordsetSet db = OpenDatabase("C:\TEMP\Arquivo Access")Set rs = db.OpenRecordset("SELECT * FROM ATENDIMENTO WHERE NomeDoCampoAqui=" & CLng(CDate(TextBox1.Value)))Sheets("PESQUISA").Range("B2").CopyFromRecordset rsEnd Sub

IMPORTANTE: O código não irá funcionar se você não ativar a referencia Microsoft Office 14.0 Access database engine Object Library, clicando em Ferramentas > Referencias

Compartilhar este post


Link para o post
Compartilhar em outros sites

você deixou o código dentro de um módulo e não no formulário, então é necessário especificar qual é o formulário que está o textbox a ser a utlilado. Atualize essa linha:

Set rs = db.OpenRecordset("SELECT * FROM ATENDIMENTO WHERE DATA=" & CLng(CDate(FRM_PROCURAR.TextBox1.Value)))
  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ola boa tarde

 

Eu usei a formula para filtrar por exemplo o campo ASSOCIADO 

entretanto está retornando o erro 

 

****************************************************

Parâmetros insuficientes. Eram esperados 1

****************************************************

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá,

Para dar uma resposta precisa eu necessito da sua planilha e do seu banco de dados, mas esse erro geralmente indica que o nome do campo digitado na sintaxe SQL não existe no seu arquivo access.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá,

Para dar uma resposta precisa eu necessito da sua planilha e do seu banco de dados, mas esse erro geralmente indica que o nome do campo digitado na sintaxe SQL não existe no seu arquivo access.

 

 

Bom dia

 

Segue em anexo a plan e banco de dados

LUIZ02.rar

Compartilhar este post


Link para o post
Compartilhar em outros sites

Caro Wendell Menezes

 

A sua ajuda foi muito importante.

Gostaria de pedir mais um auxilio seu.

 

Eu estava pensando em criar um botão para alterar o valor no banco de dados.

o botão ALTERAR teria a seguinte função

 

* Ele pesquisaria pelo código XXXX cadastrado no banco dados

* Depois ele importaria o cadastro para os campos xxxx do formulário

* Depois que o usuário alterasse os valores ele clicaria no botão OK

* E estes dados substituiriam os valores originais no banco de dados

 

Me da uma força nesta questão. 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×