Visual Basic - Validacion de un combobox

Life is soft - evento anual de software empresarial
   
Vista:

Validacion de un combobox

Publicado por Euge (62 intervenciones) el 26/10/2007 15:27:10
Hola Quisiera que alguien me ayude, el problema es que al seleccionar un item de un combo box, depende de que itemn seleccione debe aparecer una lista correspondiente en el combo2, lo logre pero en el combo2 me salen los datos pero 2 veces (ejemplo: pongo "Seleccione obra", obra1, obra2, etc, pero me sale "Seleccione obra", obra1, obra2, y de nuevo "Seleccione obra", obra1, etc) no se que estoy haciendo mal, este es el codigo:

Private Sub Combo1_Validate(Cancel As Boolean)
Combo2.AddItem "Seleccione Obra"
Conexion
sql = "select distinct (obra) from estudio where obra <> ''" ''and descripcion like '" & Combo2.Text & "'"
rst.Open sql, cnn, adOpenKeyset, adLockOptimistic
rst.MoveFirst
Do While rst.EOF <> True
Combo2.AddItem rst.Fields("obra")
rst.MoveNext
Loop
Combo2.ListIndex = 0

End Sub

Private Sub Combo2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Conexion
sql = "select * from presupuesto where descripcion like '" & Combo1 & "'and obra like '" & Combo2 & "'"
On Error Resume Next
rst.Open sql, cnn, adOpenKeyset, adLockOptimistic
cmdGuardar.Enabled = False
cmdModi.Enabled = True
mostrar_datos

On Error GoTo sale
rst.MoveFirst
Do While rst.EOF <> True
rst.MoveNext
Loop
sale:
If Err.Number = 3021 Then
cmdGuardar.Enabled = True
cmdModi.Enabled = False
vaciar_txt
MsgBox"No existe presupuesto", vbOKOnly, "Búsqueda"

End If
End If
End Sub
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Validacion de un combobox

Publicado por rubens (28 intervenciones) el 26/10/2007 16:40:51
Creo que el problema tuyo es que nunca haces un "combo2.clear", con esa funcion vacias el combobox para llenarlo otra vez, espero que te sirva. Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Validacion de un combobox

Publicado por Euge (62 intervenciones) el 26/10/2007 17:22:14
Muchas gracias por tu ayuda!! ya lo agregue, era eso lo que me faltaba Gracias!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar