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

adaptação codigo pesquisa em listview

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
pedro_mexico
Consultor
Consultor
Mensagens: 285
Registrado em: Qua Dez 09, 2015 5:54 pm

adaptação codigo pesquisa em listview

Mensagem por pedro_mexico »

Boa tarde amigos,
estou a precisar de uma ajuda, pois nao estou a conseguir terminar este codigo.
tenho um formulario de pesquisa que esta a pesquisar por datas(data de inicio e data de fim) e depois com esse resultado, que aparece numa listview, consigo colocar uma combobox com valores(neste momento sao matriculas dos carros) e ele elimina os resultados anteriores ficando na listview oas dados referentes á matricula nas datas indicadas.
o codigo está feito para se a combobox estiver vazia ele consegue fazer a pesquisa atraves dos dados que estao nas textboxs das datas, mas eu queria adapta-lo, para poder so colocar o valor na combobox(matricula carro) e ele fazer a pesquisa na mesma, mas ele não esta a dar por que diz que as textboxs datas estao vazias.

já tentei colocar " if txt_fechaini or txt_fechafin <>"" then
goto fim (e colocar o "fim", onde começa o codigo que pesquisa por as matriculas, mas esta sempre a dar erro.

Podiam me dar uma ajuda para perceber onde posso adaptar o codigo.
Obrigado

Código: Selecionar todos

Private Sub Butao_Pesquisar_Click()
Dim Fila  As Long
Dim DatosA   As Long
Dim conteo   As Integer
Dim Fecha_Ini  As Date
Dim Fecha_Fin  As Date
Dim Lv
Dim I

Folha1.Activate
DatosA = Range("A" & Rows.Count).End(xlUp).Row + 1
Fila = 2
Fecha_Ini = Me.Txt_FechaIni
Fecha_Fin = Me.Txt_FechaFin



Me.ListView3.ListItems.Clear

    Do Until Folha1.Cells(Fila, 1) = ""
        If Cells(Fila, 4) >= Fecha_Ini And Cells(Fila, 4) <= Fecha_Fin Then
        Set Lv = ListView3.ListItems.Add(Text:=Folha1.Cells(Fila, 1))
        Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 2)
        Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 3)
        Lv.ListSubItems.Add Text:=CDate(Folha1.Cells(Fila, 4))

        
        Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 5)
        Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 6)
        Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 7)
        Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 8)
        Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 9)
        Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 12)
        Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 13)
        Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 14)
        Lv.ListSubItems.Add Text:=Format(Folha1.Cells(Fila, 15), "#,##0.00")
        Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 16)
        Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 17)


If ComboBoxMatriculasPesquisa.Value <> "" Then

    Dim Tmp As Long
        Dim A As Long
            Dim sContratante
        
        Tmp = UserForm_Menu.ListView3.ListItems.Count
                
        sContratante = ComboBoxMatriculasPesquisa.Text
        
        Tmp = UserForm_Menu.ListView3.ListItems.Count
        
        For A = 1 To Tmp
            
            With ListView3
           
                If .ListItems(A).SubItems(2) = sContratante Then
                     Tmp = Tmp '- 1
                         If A = Tmp Then Exit For
                             Tmp = UserForm_Menu.ListView3.ListItems.Count
                  Else
                       UserForm_Menu.ListView3.ListItems.Remove A
                         A = A - 1
                         Tmp = Tmp - 1
                             If A = Tmp Then Exit For
                                 Tmp = UserForm_Menu.ListView3.ListItems.Count
                 End If
                 
            End With
            
        Next
End If

conteo = conteo + 1
End If
Fila = Fila + 1
Loop

Set Lv = Nothing
Me.Lbl_registros = conteo
        
End Sub
Anexos
Sem Título.jpg
Sem Título.jpg (138.31 KiB) Exibido 1097 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.


Responder