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

Erro de compilação Variável não definida - Pesquisa Multipla ListView

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

RobertoCM
Colaborador
Colaborador
Mensagens: 51
Registrado em: Sáb Set 28, 2019 9:57 am

Erro de compilação Variável não definida - Pesquisa Multipla ListView

Mensagem por RobertoCM »

Bom dia a todos aqui deste fórum adaptei um listview cujo exemplo veio do Renan Ruthes, modifiquei e fiz uma pesquisa múltipla com 4 tipos de consultas simultâneas além da pesquisa pos data, estava funcionando perfeitamente inclusive relatórios, e atendia as necessidades, agora ele carrega os dados porém esta dando um erro em qualquer tipo de pesquisa, a mensagem de erro é : Set List = ListView1.ListItems.Add(Text:=banco(0)) 'id Erro de compilação variável não definida. Já estudei todos os pontos do código durante horas não consegui resolver alguém pode me ajudar? Por favor.
Anexos
Filtros Multiplos.rar
(216.89 KiB) Baixado 271 vezes


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: Erro de compilação Variável não definida - Pesquisa Multipla ListView

Mensagem por Reinaldo »

"...estava funcionando perfeitamente..."
estranho aparentemente os filtros não estavam funcionando

Efetuei algumas alterações inclusive para utilizar a rotina inicial de CarregarDados para os filtros tambem, experimente/teste e veja se atende
Filtros Multiplos.zip
(236.67 KiB) Baixado 293 vezes


RobertoCM
Colaborador
Colaborador
Mensagens: 51
Registrado em: Sáb Set 28, 2019 9:57 am

[Resolvido]- Erro de compilação Variável não definida - Pesquisa Multipla ListView

Mensagem por RobertoCM »

Ficou perfeito, inclusive a filtro entre datas que antes precisava digitar alguma letra no nome depois apagar para filtrar, agora só digitar a data final já funciona e todos os outros funcionando perfeitamente muito obrigado pela ajuda amigo, tudo de bom ai pra vcs.


gilcimar.1649
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qui Dez 05, 2019 10:25 am

Re: Erro de compilação Variável não definida - Pesquisa Multipla ListView

Mensagem por gilcimar.1649 »

Saudações amistosas!
Estou tentando fazer um filtro em três colunas entre datas e alimentar o
resultado no listview. O problema é que o meu filtro só varre uma coluna
de datas na planilha, quando eu gostaria que varresse as três colunas.

Segue o código:

Sub Filtro_Data()

If TextBox1 = "" Or TextBox2 = "" Then
MsgBox "Escolher data de início e fim!", vbCritical, "DATA"
Exit Sub
End If

Dim linha As Integer
Dim Linhalist As Integer
Dim Data As Date
Dim Inicio As Date
Dim Fim As Date

Inicio = TextBox1
Fim = TextBox2

Linhalist = 0
linha = 2

ListView1.ListItems.Clear

Plan2.Select

With Plan2

While .Cells(linha, 2).Value <> ""

Data = .Cells(linha, 10).Value

If Data >= Inicio And Data <= Fim Then

With ListView1

Set Lista = ListView1.ListItems.Add(Text:=Cells(linha, "a").Value)

Lista.ListSubItems.Add Text:=Cells(linha, "b").Value
Lista.ListSubItems.Add Text:=Cells(linha, "c").Value
Lista.ListSubItems.Add Text:=Cells(linha, "d").Value
Lista.ListSubItems.Add Text:=Cells(linha, "f").Value
Lista.ListSubItems.Add Text:=Cells(linha, "j").Value
Lista.ListSubItems.Add Text:=Cells(linha, "k").Value
Lista.ListSubItems.Add Text:=Cells(linha, "l").Value
End With

Linhalist = Linhalist + 1

End If

linha = linha + 1
Wend

End With

End Sub


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: Erro de compilação Variável não definida - Pesquisa Multipla ListView

Mensagem por Reinaldo »

Gilcimar,
infelizmente não há uma "receita" única e direta; cada caso é um caso. Depende muito da disposição de dados em seu projeto e do tipo de resultado esperado/bem como o porque desse resultado

No chutometro; talvez se tiver algo +/- assim

Código: Selecionar todos

Data = .Cells(linha, 10).Value
Data1=.Cells(linha,11).value
Data2=.Cells(linha, 12).Value

If Data >= Inicio And Data <= Fim or Data >= Inicio And Data1 <= Fim or Data >= Inicio And Data2 <= Fim Then


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