dvc17 respondió:
En la linea Adodc1.Recordset.Filter = Combo1 & " LIKE '*" + Text1 + "*'" Agrega esto: And Combo2 & LIKE '*" + Text2 + "*'" Combo2 seria el otro campo y quedaria asi: Adodc1.Recordset.Filter = Combo1 & " LIKE '*" + Text1 + "*'" & " And " & Combo2 &...
ifrancoz respondió:
Aquí tienes un ejemplo Private Sub Cargar_Combo Combodoc.Clear Set Lrec = Mibase.OpenRecordset("SELECT * FROM DOCTOS ORDER BY Doccod ASC;") Do While Not Lrec.EOF Combodoc.AddItem Lrec.Fields("Doccod") Lrec.MoveNext Loop Lrec.Close Set Lrec = Nothing...