Criterios en Sql.

pues podrias "jugar" con una cadena de texto que vaya formando la consulta, por ejemplo al cargar el form pon el inicio de la sentencia SQL

Código:

'variable global en el form
Dim Consulta as String
dim Cons1 as string
dim Cons2 as String
dim Cons3 as string
dim Cons4 as string

Private sub  Form_Load()
    Consulta = "SELECT * FROM tbl_Empleados WHERE "
end sub

en caso de que deshabilites un check quitas cosas

Código:

Private Sub Check1_Click()
     if check1.value = 0 then cons1 = ""
End Sub

Private Sub Check2_Click()
     if check2.value = 0 then cons2 = ""
End Sub

Private Sub Check3_Click()
     if check3.value = 0 then cons3 = ""
End Sub

Private Sub Check4_Click()
     if check1.value = 0 then cons4 = ""
End Sub

y en cada Combo le pones le pones cosas

Código:

Private sub Combo1_Click()
    Cons1 = "categoria = " & mid(combo1, 1, 3)  
end sub

Private sub Combo2_Click()
    Cons2 = "Otracategoria" & mid(combo2, 1, 3)
end sub

Private sub Combo3_Click()
    Cons3 = "Otracategoria" & mid(combo3, 1, 3)
end sub

Private sub Combo4_Click()
    Cons4 = "Otracategoria" & mid(combo4, 1, 3)
end sub

y ya en el procedimiento de filtrar pegas todo.

Código:


if cons1 <> "" then consulta = consulta & cons1 & " AND " 
if cons1 <> "" then consulta = consulta & cons2 & " AND "
if cons1 <> "" then consulta = consulta & cons3 & " AND "
if cons1 <> "" then consulta = consulta & cons4

' Esto es por si la cadena terminara en " AND "
if right(Consulta, 5) = " AND " then consulta = left(Consulta, len(consulta)-5)

consulta = consulta & " ORDER BY uncampo;"

' y ahora si haces la consulta
Dbpath = App.Path & "\" & DirectorioBase & "\" & Db_A_Name
Set Db = DBEngine.OpenDatabase(Dbpath, False, False, ";pwd=" & StrPass)
Set Rst = Db.OpenRecordset(Consulta)
              
While Not Rst.EOF      
          Set Item = Me.ListView2.ListItems.Add(, , Rst!legajo)
          Item.SubItems(1) = Rst!nombres '& ", " & Rst!Apelldos
          Rst.MoveNext
Wend
        
Hay_err_exit:
    
 Rst.Close
 Db.Close
 
 Set Rst = Nothing
 Set Db = Nothing
 
Hay_err_err:
    
 Select Case Err.Number
 Case 3024
 
            MsgBox "Es imposible encontrar la base de datos. " & vbCrLf & vbCrLf & "Verifique que exista o que se encuentre en la ruta:" & App.Path & "\bases" & "  e intente nuevamente", vbInformation + vbOKOnly, "Aviso!"
'            Exit Function
            
 Case 3078
            MsgBox "Es imposible encontrar la tabla: " & vbCrLf & vbCrLf & "Verifique que exista o que se encuentre en la base de datos" & "Base_Actual.mdb" & "e intente nuevamente", vbInformation + vbOKOnly, "Aviso!"
            'Exit Function
 End Select
 
End Sub