VBA EXCEL IMPORTAR DO ACCESS

[Kelvim]

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.

 

 

[Wendell Menezes]

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

[Kelvim]

Ola esta dando O objeto é obrigatório.

 

O que será que estou errando.

 

Att

[Wendell Menezes]

Não sei, poste a sua planilha para eu ver.

[Kelvim]

LUIZ02.rar

 

 

 

Segue 

[Wendell Menezes]

Pode compartilhar a senha do projeto ou postar ela novamente sem a senha?

[Kelvim]

Foi mal nem vi que foi com senha 

35114041

[Wendell Menezes]

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)))

[Kelvim]

 Obrigado

 

Att

Kelvim B Gomes

[Kelvim]

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

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

[Wendell Menezes]

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.

[Kelvim]

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

[Wendell Menezes]

Tente assim:

Set rs = db.OpenRecordset("SELECT * FROM ATENDIMENTO WHERE ASSOCIADO='" & FRM_PROCURAR.TextBox2.Value & "'")

[Kelvim]

Opa funcionou corretamente.

 

Obrigado.

Att

[Kelvim]

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. 

[Basole]

@Kelvim, veja se é isso que deseja: 

 

 

LUIZ_06-Basole.zip