Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Erro de compilação Variável não definida - Pesquisa Multipla ListView
Moderador: joseA
Erro de compilação Variável não definida - Pesquisa Multipla ListView
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 291 vezes
- Reinaldo
- 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
"...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
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
[Resolvido]- Erro de compilação Variável não definida - Pesquisa Multipla ListView
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.
-
- 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
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
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
- Reinaldo
- 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
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
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