Filter listview

[JJCHCK]

Hi everyboy
i have a listview where I can't filter it with a combo

what i have to do?

Public Sub FillSales()
    On Error GoTo ErrorHandler
    Dim rs As DAO.Recordset
    Dim db As Database
    Dim lstItem As ListItem
    Dim strsql As String
    Dim strClie As String
    
   ' strClie = [Maschera1]![Form]![Testo1]
    
    Set db = CurrentDb()
    
    strsql = "SELECT * FROM Storico WHERE (Rt1Codcli = '" & [Maschera1]![Form]![Testo1] & "')  order by Rt1Codcen"
      
    Set rs = db.OpenRecordset(strsql)
    
   ' rs.Filter = "Rt1Codcli   =  '" & strClie & "'"
    
    With Form_Maschera1.lsvClienti
       
       .View = lvwReport
       .GridLines = True
       .FullRowSelect = True
       .ListItems.Clear
       .ColumnHeaders.Clear
        
    End With
 
                                            
    With Form_Maschera1.lsvClienti.ColumnHeaders
        .Add , , "Anno", 1000, lvwColumnLeft
        .Add , , "Codcen", 2000, lvwColumnLeft
        .Add , , "Codcli", 2000, lvwColumnLeft
        .Add , , "Ragso1", 2000, lvwColumnLeft
        .Add , , "Nome", 2000, lvwColumnLeft
        .Add , , "quantità", 2000, lvwColumnLeft
        .Add , , "fatturato", 2000, lvwColumnLeft
    End With
    
    rs.MoveFirst
    Do Until rs.EOF
        Set lstItem = Form_Maschera1.lsvClienti.ListItems.Add()
        
        lstItem = Nz(Trim(rs!Anno))
        lstItem.SubItems(1) = Format(rs!Codcen, "<")
        lstItem.SubItems(2) = Format(rs!Codcli, "<")
        lstItem.SubItems(3) = UCase(Format(rs!Ragso1, "<"))
        lstItem.SubItems(4) = UCase(Format(rs!Nome, "<"))
        lstItem.SubItems(5) = Format(rs!quantità, "##,##0.00#")
        lstItem.SubItems(6) = Format(rs!fatturato, "##,##0.00#")
        rs.MoveNext
    Loop
    
    rs.Close
    DoCmd.Echo True
ErrorHandlerExit:
    Exit Sub
ErrorHandler:
    If Err = 3021 Then
        Resume Next
    Else
        MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
        Resume ErrorHandlerExit
    End If
End Sub

[stmoong]

You can use the On Click event of the combo box to run some VBA code to run the query and set the new values. Probably you have to clear the values from the listbox first.

[JJCHCK]

Hi atthache my mdb...could you look it ...i don't understand how to do

tkhs for answer