COMBO
Publicado por Dulce Esmeralda (23 intervenciones) el 03/11/2004 17:55:46
Hola, tengo un combo que lo lleno de la siguiente forma:
Set rst2 = New ADODB.Recordset
rst2.CursorLocation = adUseClient
rst2.Open "Select * from Tipos", cnn, adOpenDynamic, adLockOptimistic
While Not rst2.EOF
cboTipos.AddItem rst2!TipoID & ".- " & rst2!TipoCliente
rst2.MoveNext
Wend
pero cuando en la ejecucion elijo entre los datos del combo no entra a la rutina de Private Sub cboTipos_Change()
el codigo que tengo en esa rutina es el siguiente:
Private Sub cboTipos_Change()
Dim seleccion As String
Dim derecha As String
Dim medida As String
seleccion = cboTipos.Text
medida = Len(cboTipos.Text)
derecha = Mid(seleccion, 5, medida)
izquierda = Left(seleccion, 1)
Text1(1).Text = derecha
Text1(8).Text = izquierda
End Sub
No se porque no entra a esta rutina... alguien podria ayudarme?
Gracias
Set rst2 = New ADODB.Recordset
rst2.CursorLocation = adUseClient
rst2.Open "Select * from Tipos", cnn, adOpenDynamic, adLockOptimistic
While Not rst2.EOF
cboTipos.AddItem rst2!TipoID & ".- " & rst2!TipoCliente
rst2.MoveNext
Wend
pero cuando en la ejecucion elijo entre los datos del combo no entra a la rutina de Private Sub cboTipos_Change()
el codigo que tengo en esa rutina es el siguiente:
Private Sub cboTipos_Change()
Dim seleccion As String
Dim derecha As String
Dim medida As String
seleccion = cboTipos.Text
medida = Len(cboTipos.Text)
derecha = Mid(seleccion, 5, medida)
izquierda = Left(seleccion, 1)
Text1(1).Text = derecha
Text1(8).Text = izquierda
End Sub
No se porque no entra a esta rutina... alguien podria ayudarme?
Gracias
Valora esta pregunta


0