Vídeo recomendado
https://youtu.be/diWPPPhW-9E

frmPesquisa não funciona [Resolvido]

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
DuMoraes
Colaborador
Colaborador
Mensagens: 15
Registrado em: Qua Set 26, 2018 5:05 pm

frmPesquisa não funciona [Resolvido]

Mensagem por DuMoraes »

Senhores, Boa Tarde!

Continuo com o problema no frmPesquisa. Resolvi a questão da biblioteca "Microsoft.ACE.OLEDB.12.0". Porém, ao clicar no botão filtro não acontece nada.
Também no botão exportar retorna com o erro 91 na linha do código anexo.

Private Sub Exportar()
Dim i As Integer
Dim NewWorkBook As Workbook
Dim rst As ADODB.Recordset
' Preenche o RecordSet com os filtros atuais
Set rst = PreecheRecordSet(txtNomeEmpresa.Text, txtNomeContato.Text, txtEndereco.Text, txtTelefone.Text, txtRegiao.Text)
'cria um novo Workbook
Set NewWorkBook = Application.Workbooks.Add
' Efetua loop em todos os campos, retornando os nomes de campos
' à planilha.
For i = 0 To rst.Fields.Count - 1
NewWorkBook.Sheets(1).Range("A1").Offset(0, i).Value = rst.Fields(i).Name
Next i

NewWorkBook.Sheets(1).Range("A2").CopyFromRecordset rst
NewWorkBook.Activate
End Sub
Anexos
Exportar.png
Exportar.png (23.14 KiB) Exibido 7614 vezes
Editado pela última vez por DuMoraes em Ter Out 09, 2018 2:06 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: frmPesquisa não funciona

Mensagem por Reinaldo »

Disponibilize seu modelo (planilha e banco) com poucos registros (ficticios se necesario) mas que sejam representativos de sua estrutura/realidade


DuMoraes
Colaborador
Colaborador
Mensagens: 15
Registrado em: Qua Set 26, 2018 5:05 pm

Re: frmPesquisa não funciona

Mensagem por DuMoraes »

OK!
Como posso enviar os arquivos?


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: frmPesquisa não funciona

Mensagem por webmaster »

Comprima os arquivos usando zip, rar ou 7z


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


DuMoraes
Colaborador
Colaborador
Mensagens: 15
Registrado em: Qua Set 26, 2018 5:05 pm

Re: frmPesquisa não funciona

Mensagem por DuMoraes »

Amigo,

anexo o arquivo

Grato
Anexos
VBA.rar
(62.04 KiB) Baixado 382 vezes


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: frmPesquisa não funciona

Mensagem por Reinaldo »

Experimente:
Onde aparece altere, alem do Jet... para Ace...; tambem Excel 8.0 para 12.0:
De:

Código: Selecionar todos

With conn
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .ConnectionString = "Data Source=" & caminhoArquivoDados & ";Extended Properties=Excel 8.0;"
        .Open
    End With
Para:

Código: Selecionar todos

    With conn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" & caminhoArquivoDados & ";Extended Properties=Excel 12.0;"
        .Open
    End With


DuMoraes
Colaborador
Colaborador
Mensagens: 15
Registrado em: Qua Set 26, 2018 5:05 pm

Re: frmPesquisa não funciona

Mensagem por DuMoraes »

Reinaldo, Bom dia

Ficou perfeito meu amigo.

Grato pela ajuda.
Estou aprendendo para um dia poder ajudar tb

Abraço


DuMoraes
Colaborador
Colaborador
Mensagens: 15
Registrado em: Qua Set 26, 2018 5:05 pm

Re: frmPesquisa não funciona

Mensagem por DuMoraes »

como faço para colocar [RESOLVIDO]


LorDz
Acabou de chegar
Acabou de chegar
Mensagens: 8
Registrado em: Qua Jan 03, 2018 8:41 pm

Re: frmPesquisa não funciona

Mensagem por LorDz »

DuMoraes escreveu: Qua Out 03, 2018 11:22 am como faço para colocar [RESOLVIDO]
Vai no seu primeiro post e clica no lapis ( Imagem ) depois na frente do nome do tópico você coloca [Resolvido]


DuMoraes
Colaborador
Colaborador
Mensagens: 15
Registrado em: Qua Set 26, 2018 5:05 pm

Re: frmPesquisa não funciona

Mensagem por DuMoraes »

Obrigado Amigo


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder