Programación General > Visual Basic 6.0 e inferiores

 Como Hacer Un Combo Dependiente

(1/1)

mx16200:
Hola a todos, estoy modificando un control de cheques y necesito crear combos dependientes, ne este caso yo selecciono la cuenta corriente en el combo1 y me aparecen los meses en que ha habido giros en el combo2
este es el codigo y al seleccionar un item del combo 1 no hace nada en el combo2:


--- Citar ---
Private Sub Form_Load()
cargarcombocuenta
End Sub

Public Sub cargarcombocuenta()
Dim base As Database
Dim Reg As Recordset
Set base = OpenDatabase(App.Path & "\datos.mdb")
Set Reg = base.OpenRecordset("SELECT DISTINCT cuenta FROM chequesgirados")
If Reg.RecordCount > 0 Then
Combo1.Clear
Combo2.Clear
Reg.MoveFirst
Do Until Reg.EOF = True
Combo1.AddItem Reg!cuenta
Reg.MoveNext
Loop
End If
End Sub

Private Sub Combo1_click()
Dim mes2 As String
Dim i As Integer
Dim base As Database
Dim Reg As Recordset
Set base = OpenDatabase(App.Path & "/datos.mdb")
Set Reg = base.OpenRecordset("SELECT distinct ano,mes FROM chequesgirados where cuenta = ' " & Combo1.Text & " ' ")
    If Reg.RecordCount > 0 Then
    Combo2.Clear
    Reg.MoveFirst
        Do Until Reg.EOF = True
           
                For i = 1 To 12
                If Reg!mes = i Then
                mes2 = MonthName(i)
                End If
                Next
                If Reg!ano < 10 Then
                Combo2.AddItem "" & mes2 & " 200" & Reg!ano
                Else
                Combo2.AddItem "" & mes2 & " 20" & Reg!ano
                End If
            Reg.MoveNext
           
        Loop
    Combo2.Text = Combo2.List(0)
    End If
End Sub


--- Fin de la cita ---

cpmario:
No sé si todo lo demás está bien, ya que no tengo las bases de datos pero, trata cambiando.

 
--- Código: Text ---Set Reg = base.OpenRecordset(&#34;SELECT distinct ano,mes FROM chequesgirados where cuenta = ' &#34; & Combo1.Text & &#34; ' &#34;) Coloca lo siguiente:
 
--- Código: Text ---   Set Reg = base.OpenRecordset(&#34;SELECT distinct ano,mes FROM chequesgirados where cuenta = '&#34; & Combo1.Text & &#34;'&#34;)  Tienes espacios extras en las comillas simples.

 :comp:

mx16200:
Espectacular amigo

todo solucionado gracias a tu ayuda

si vienes a chile te quedas en mi casa jejej

chau

Navegación

[0] Índice de Mensajes