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:
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
