Liang
25 de Agosto del 2003

Sub resetrs()
Data1.RecordSource = "productos"
End Sub


Sub llenarcombo()
With Data1
.DatabaseName = App.Path + ".base.mdb"
.RecordSource = "SELECT DISTINCT categoria FROM productos"
End With
End Sub

Private Sub Combo_cat_gotfocus()

llenarcombo
Data1.Recordset.MoveFirst
While Data1.Recordset.EOF = False
Combo_cat.AddItem Data1.Recordset.categoria
Data1.Recordset.MoveNext
Wend
resetrs
End Sub

Bueno ese es mi codigo para llenar un combobox con el campo categoria (sin que se repitan los los registros de las categorias) de la tabla productos .
Bueno lo del combo, me funcionaba bien hasta que me meti a tratar de que no hubieran registro duplicados en el combo con la consulata SQL y el famoso Distinct, que me tiene loco jajaja. weno eso seria too ojala alguien me pueda ayudar que ya se me va a quebrar la cabeza :-). Grax

Ricardo
25 de Agosto del 2003

te aconsejo que rellenes el combo nada mas cargar el formulario (en el form load) y no cuando tenga el foco

Fran
25 de Agosto del 2003

Sustituye la sentencia SQL por esta otra:
"SELECT categoria FROM productos Group by categoria"

Además carga el como en el evento load del formulario.