combobox

[carnero]

hola una consulta.
si por ejemplo tengo la siguiente imagen donde el combobox esta en el dato 3.


lo que quiero hacer es, como voy a estar llenado los textebox, si cambio el combo al dato 1 por ejemplo me salga el msgbox y si yo le doy a "no" que me deje el combo en el dato 3, osea en el actual.

espero se entiendo loq ue trato de hacer :P

[JonathanB]

Es esto lo que necesitas?

Código vb:

Private Sub Command1_Click()
    Dim iRespuesta As Integer
    
    iRespuesta = MsgBox("Algo", vbYesNo)
    If iRespuesta = vbYes Then
        'Click en Si
    Else
        'Click en No
    End If
 
End Sub
 

[carnero]

Si eso lo logro, lo que yo quiero, es que si ya tiene seleccionado un dato del combo y trata de selleccionar otro dato, me muestre un mensaje y se la respuesta a este mensaje es "no", que deje el combo con el dato que primero selecciono

[-rommel_]

asi como te respondieron... si no pones una condicion al momento de cambiar te va a resultar una redundancia... y un bucle de control...
te paso este codigo...

Código vb:

Dim Pos as Integer
Dim Cambio as Boolean
 
Private Sub Combo1_Click()
   Dim iRpta as Integer
   If Pos <> Me.Combo1.ListIdex And Cambio = False Then
        iRpta = MsgBox("Algo", vbYesNo)
        If iRpta = vbYes Then
           Pos = Me.Combo1.ListIdex
        Else
           Cambio = True
           Me.Combo1.ListIdex = Pos
        End If
   End If
   Cambio = False
End Sub
 

Creo que si funciona

[carnero]

-rommel_ muchas gracias deuevo, funciona.
solo que hay un moemnto en el que no funciona como deveria.


If Pos <> Me.Combo1.ListIdex And Cambio = False Then

CUANDO TENGO EL LISTINDEX EN 0, NO VALIDA.




muchas gracias.

[-rommel_]

mira que es lo que necesitas, talvez puedes cambiar el tipo de COMBO, o modificar algo... ejecutando con F8 puedes ver que valores necesitas para que realmente funciones el algoritmo... Saludos

[carnero]

Iniciado por -rommel_

mira que es lo que necesitas, talvez puedes cambiar el tipo de combo, o modificar algo... Ejecutando con f8 puedes ver que valores necesitas para que realmente funciones el algoritmo... Saludos

si se ejecutar con el f8 y po lo mimo me di cuebta de eso

[-rommel_]

ya pues amigo... ya tienes la respuesta... verifica datos y ve que en ese instante esten los Valores que tu necesitas... ahi te daras cuenta... que valores eben estar y PORQUE NO ESTAn... jejeje