Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
frmPesquisa não funciona [Resolvido]
frmPesquisa não funciona [Resolvido]
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
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 (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.
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: frmPesquisa não funciona
Disponibilize seu modelo (planilha e banco) com poucos registros (ficticios se necesario) mas que sejam representativos de sua estrutura/realidade
Re: frmPesquisa não funciona
Amigo,
anexo o arquivo
Grato
anexo o arquivo
Grato
- Anexos
-
- VBA.rar
- (62.04 KiB) Baixado 382 vezes
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: frmPesquisa não funciona
Experimente:
Onde aparece altere, alem do Jet... para Ace...; tambem Excel 8.0 para 12.0:
De:
Para:
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
Código: Selecionar todos
With conn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "Data Source=" & caminhoArquivoDados & ";Extended Properties=Excel 12.0;"
.Open
End With
Re: frmPesquisa não funciona
Reinaldo, Bom dia
Ficou perfeito meu amigo.
Grato pela ajuda.
Estou aprendendo para um dia poder ajudar tb
Abraço
Ficou perfeito meu amigo.
Grato pela ajuda.
Estou aprendendo para um dia poder ajudar tb
Abraço
Re: frmPesquisa não funciona
Vai no seu primeiro post e clica no lapis ( ) depois na frente do nome do tópico você coloca [Resolvido]