0
  If MsgBox("¿seguro que desea votar por este partido?", vbYesNo, "Información") = vbYes Then
        MsgBox("Su voto se ah realizado", vbOKOnly, "Información")
    Else
        MsgBox("Su voto se ah cancelado", vbOKOnly, "Información")
    End If

tengo esta linea pero cuando quiero "cancelar mi registro" y le doy a "no" aun así se almacena en la base, como hago para solucionarlo?

6
  • hola. que quiere decir que se registra? ahi solo muestras un msgbox...
    – gbianchi
    Commented el 1 dic. 2017 a las 14:26
  • No creo que esto esté relacionado con SQL
    – Lamak
    Commented el 1 dic. 2017 a las 14:30
  • talvez no me espicfique bien
    – fabro
    Commented el 1 dic. 2017 a las 14:32
  • lo que quiero es que cuando me sale el "vbyesno" se anule lo que halla en el cuadro de registro cuando le doy a "no"
    – fabro
    Commented el 1 dic. 2017 a las 14:33
  • pero falta todo el resto del codigo para eso?? ahi estas solo mostrando un msgbox cuando se presiona no.. por lo cual, no se como queres seguir... cual es el problema? se claro, mira Cómo preguntar y usa el boton editar para agregar toda la información a la pregunta. Nosotros no estamos en tu cabeza ni vemos tu pc como para saber que necesitas.
    – gbianchi
    Commented el 1 dic. 2017 a las 14:54

1 respuesta 1

0

Prueba con este método:

Supongamos que el registro se envía a un Label (No especificaste a donde se regsitraba)

Dim Texto, Texto2, Título As String 'Texto2 es lo del segundo MsgBox.
Dim Estilo, Estilo2 As MsgBoxStyle
Dim Respuesta As MsgBoxResult


Texto = "¿seguro que desea votar por este partido?"
Estilo = MsgBoxStyle.Question Or MsgBoxStyle.DefaultButton2 Or 
MsgBoxStyle.YesNo
Título = "Información"

Respuesta = MsgBox(Texto, Estilo, Título)
If Respuesta = MsgBoxResult.Yes Then
  Texto2 = "Su voto se ha realizado"
  Estilo2 = MsgBoxStyle.Information Or MsgBoxStyle.DefaultButton1 Or MsgBoxStyle.OkOnly
  ResultadoLabel.Text = "Voto Confirmado"
  MsgBox(Texto2, Estilo2, Título)
ElseIf Respuesta = MsgBoxResult.No Then
  Texto2 = "Su voto se ha cancelado"
  Estilo2 = MsgBoxStyle.Information Or MsgBoxStyle.DefaultButton1 Or 
 MsgBoxStyle.OkOnly
 MsgBox(Texto2, Estilo2, Título)
 End If

Con esto, si la respuesta es No, no confirmará nada; Pero si la respuesta es "Sí" se registrará en el Label.

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.