Como programar Msgbox aceptar y cancelar

[juancarlosto]

Bueno el problema que tengo el dia de hoy es que programe un msgbox donde tengo la opcion de aceptar o cancelar, pero cuando oprimo cualquiera de los dos botones realiza la misma accion y lo que quiero es que cuando oprima cancelar no realice nada, ni active ningua ventana.

Este es el codigo que maneje:

Private Sub CommandButton2_Click()


MsgBox "DESEA INGRESAR UNA NUEVA RUTA", vbOKCancel, "CONFIRMACION"


ComboBox1.Enabled = True
ComboBox2.Enabled = True
ComboBox3.Enabled = True
ComboBox4.Enabled = True
ComboBox5.Enabled = True
TextBox32.Enabled = True
TextBox33.Enabled = True
TextBox34.Enabled = True
TextBox35.Enabled = True
TextBox36.Enabled = True
TextBox37.Enabled = True
TextBox38.Enabled = True
TextBox39.Enabled = True
OptionButton1.Enabled = True
OptionButton2.Enabled = True

ComboBox1.Text = vbNullString
ComboBox2.Text = vbNullString
ComboBox3.Text = vbNullString
ComboBox4.Text = vbNullString
ComboBox5.Text = vbNullString
TextBox32.Text = vbNullString
TextBox33.Text = vbNullString
TextBox34.Text = vbNullString
TextBox35.Text = vbNullString
TextBox36.Text = vbNullString
TextBox37.Text = vbNullString
TextBox38.Text = vbNullString
TextBox39.Text = vbNullString


TextBox32.SetFocus



End Sub

Disculpen si la pregunta es muy tonta pero soy novato en el tema.

Gracias

[A.H.H]

Hola, tienes que recoger en una variable la accion de pulsar uno u otro boton.

en el ejemplo siguiente que te pongo para que lo entiendas, recogo en la variable resultado la accion de si pulso el boton aceptar y sino es asi es que he pulsado el de cancelar, luego ya lo adaptaras tu a tu proyecto.

Private Sub Command1_Click()

resultado = MsgBox("DESEA INGRESAR UNA NUEVA RUTA", vbOKCancel, "CONFIRMACION")

If resultado = vbOK Then
MsgBox "HE PULSADO BOTON ACEPTAR"
Else
MsgBox "HE PULSADO BOTON CANCELAR"
End If
End Sub

nota:
tambien serviria poner if resultado= 1 ya que el boton de la izq si lo pulsas vale 1 y el de la derecha si lo pulsas vale 2

salu2

[juancarlosto]

Lo que me explicas lo se hacer, el problema es que cuando precione Aceptar me habilite los campos que tengo programados pero si oprimo cancelar que no realice ninguna accion o que no habilite nada y que me ubique el cursor en otro textbox.

[gasuton]

Iniciado por juancarlosto

Lo que me explicas lo se hacer, el problema es que cuando precione Aceptar me habilite los campos que tengo programados pero si oprimo cancelar que no realice ninguna accion o que no habilite nada y que me ubique el cursor en otro textbox.

Juan carlos por lo que entiendo ya sabes que tienes que usar una sentencia IF para cuando el usuario Presione OK, lo que yo le pondria si preciona cancel seria algo asi

Código:

textbox.SetFocus
exit sub

de esta manera si no preciona el boton ok, el cursor termina en el textbox que tu quieres y se termina la ejecucion sin ninguna accion.

Saludos

[juancarlosto]

Disculpame pero me podrias indicar como deberia de ir en el codigo que adjunte.

[gasuton]

Iniciado por juancarlosto

Disculpame pero me podrias indicar como deberia de ir en el codigo que adjunte.

Ok primero 2 preguntas:

1- al hacer clieck en Ok se tiene que ejecutar lo siguiente:

ComboBox1.Enabled = True
ComboBox2.Enabled = True
ComboBox3.Enabled = True
ComboBox4.Enabled = True
ComboBox5.Enabled = True
TextBox32.Enabled = True
TextBox33.Enabled = True
TextBox34.Enabled = True
TextBox35.Enabled = True
TextBox36.Enabled = True
TextBox37.Enabled = True
TextBox38.Enabled = True
TextBox39.Enabled = True
OptionButton1.Enabled = True
OptionButton2.Enabled = True

ComboBox1.Text = vbNullString
ComboBox2.Text = vbNullString
ComboBox3.Text = vbNullString
ComboBox4.Text = vbNullString
ComboBox5.Text = vbNullString
TextBox32.Text = vbNullString
TextBox33.Text = vbNullString
TextBox34.Text = vbNullString
TextBox35.Text = vbNullString
TextBox36.Text = vbNullString
TextBox37.Text = vbNullString
TextBox38.Text = vbNullString
TextBox39.Text = vbNullString

2- cuando precionas cancel se tiene que ir el cursos a TextBox32.SetFocus y no hacer nada?

[juancarlosto]

Correcto eso es lo que necesito

[gasuton]

Iniciado por juancarlosto

Correcto eso es lo que necesito

ok entonces lo que tienes que usar es mas o menos lo siguiente:

Código:

Private Sub CommandButton2_Click()

Dim mensaje As String

mensaje = MsgBox ("DESEA INGRESAR UNA NUEVA RUTA?", vbOKCancel, "CONFIRMACION")

if mensaje = vbOK then

ComboBox1.Enabled = True
ComboBox2.Enabled = True
ComboBox3.Enabled = True
ComboBox4.Enabled = True
ComboBox5.Enabled = True
TextBox32.Enabled = True
TextBox33.Enabled = True
TextBox34.Enabled = True
TextBox35.Enabled = True
TextBox36.Enabled = True
TextBox37.Enabled = True
TextBox38.Enabled = True
TextBox39.Enabled = True
OptionButton1.Enabled = True
OptionButton2.Enabled = True

ComboBox1.Text = vbNullString
ComboBox2.Text = vbNullString
ComboBox3.Text = vbNullString
ComboBox4.Text = vbNullString
ComboBox5.Text = vbNullString
TextBox32.Text = vbNullString
TextBox33.Text = vbNullString
TextBox34.Text = vbNullString
TextBox35.Text = vbNullString
TextBox36.Text = vbNullString
TextBox37.Text = vbNullString
TextBox38.Text = vbNullString
TextBox39.Text = vbNullString

else

TextBox32.SetFocus

end if

end sub

checa esto y cuentanos como te fue.

Saludos

[juancarlosto]

Excelente eso era. Mil y mil gracias

[azimutisima]

Viva la programación a medida!!!! Hasta el proximo if..