Visual - Access - Combos

[valentino_m]

Utiliza este modulo

Public Sub CargoCombo(ElCombo As ComboBox, Campo As String, Tabla As String, Filtro As String, Orden As String)

If Trim(Filtro) <> "" Then
Filtro = " AND " & Filtro
End If
If Trim(Orden) <> "" Then
Orden = " ORDER BY " & Campo
End If

funsql = "SELECT DISTINCT " & Campo & " as Campo FROM " & Tabla & " WHERE MarcaBaja = 0 " & Filtro & Orden
If FncAux.State = 1 Then FncAux.Close

FncAux.Open funsql, Cn, adOpenDynamic, adLockOptimistic
If FncAux.EOF = False Then
FncAux.MoveFirst
ElCombo.Clear
Do While FncAux.EOF = False
ElCombo.AddItem Trim("" & FncAux!Campo)
FncAux.MoveNext
Loop
End If
ElCombo.AddItem ""
End Sub

luego en el Evento Load del form lo llamas y listo
CargoCombo Combo1(Nombre del COmbo seria), "Nombre del Campo", "Nombre De La Tabla", "Aca deja vacio", "Nombre del Campo(nuevamente)"
donde Nombre del Campo es el nombre del campo de la base

suponte campo Nombre