Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » MSGBOX VBYESNO

Visual Basic - MSGBOX VBYESNO

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:

MSGBOX VBYESNO

Publicado por LINA (18 intervenciones) el 26/01/2006 15:22:39
HOLA! estoy haciendo un proyecto y necesito preguntar antes de eliminar un registro si realmente se desea o no eliminar.
coloco mi msgbox asi
msgbox"esta seguro de eliminar el registro?",vbyesno

pero no se como validar cuando le digan yes o No que codigo debo hacer?
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:MSGBOX VBYESNO

Publicado por Jorge (231 intervenciones) el 26/01/2006 15:30:52
1
2
3
4
5
6
7
mv=msgbox"esta seguro de eliminar el registro?",vbyesno
Select Case Mv
    Case  6 'Yes

 
    Case 7 'No

 
End select
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:MSGBOX VBYESNO

Publicado por Rafael Seco (17 intervenciones) el 26/01/2006 15:57:59
Coloica la pregunta de la siguiente manera

1
2
3
4
5
6
7
8
9
10
11
12
13
14
mensaje=(msgbox("En realidad desea eliminar el registro"), vbquestion+vbyesno,("Eliminar Registros"))
if mensaje=vbyes yhen
'Aqui eliminas tu registro

else
'cancelas

end if
Te aclaro: el vb question es para que te salga el icono de interrogacion y la ventana se vea mas llamativa y el "Eliminar registros" al final es para Darle un titulo a la ventana.
 
tambien lo puedes validar con:
if vbyes=1 then
'Aqui eliminas tu registro

else
'cancelas

end if

Ahi tienes dos formas colega, espero te sirvan.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

RE:MSGBOX VBYESNO

Publicado por Nilso Viani (1 intervención) el 03/10/2015 06:03:29
Imaginemos este caso:

Tenemos un registro de un perfil para la cuenta de un servicio online y queremos colocar un "boton de cerrar el registro" y que
cuando se presione aparezca un mensaje de si esta seguro "si" o "no", por lo tanto se puede asignar una instruccion para cada boton
es decir que la accion de pulsar "si" ejecute algo y que al presionar "no" tambien se ejecute algo, bueno para no hacer mas largo el cuento
veamos este codigo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Cancelar_Registro_Click()
 
Dim msgvalue As Integer
 
msgvalue = MsgBox("Está seguro de cancelar el registro?", vbInformation + vbYesNo, "Mensaje de Alerta")
 
Select Case msgvalue
 
Case 6 'Yes

 
     ' AQUI VA EL Grupo de instrucciones que se va a ejecutar al presionar la opción SI

 
Case 7 'No

 
    ' AQUI VA EL Grupo de instrucciones que se va a ejecutar al presionar la opción NO

 
End Select
 
End Sub

De esta manera en el evento click o al presionar "Cancelar_Registro" que en este caso es un boton creado se
mostrará la pregunta y las dos opciones "SI" y "NO"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

RE:MSGBOX VBYESNO

Publicado por gracias (1 intervención) el 31/03/2017 06:37:02
TE AMO 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
sin imagen de perfil
Val: 2
Ha aumentado su posición en 28 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:MSGBOX VBYESNO

Publicado por Javier (1 intervención) el 12/03/2020 21:03:15
TE AMO x2 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

RE:MSGBOX VBYESNO

Publicado por Ramon Becerra (1 intervención) el 20/03/2021 05:49:17
Solucione el problema con este código Muchas gracias por el aporte

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub Elina_Filas()
 
Dim msgvalue As Integer
 
 
uf = Range("D" & Rows.Count).End(xlUp).Row
 
msgvalue = MsgBox("Está seguro de eliminar el registro?", vbInformation + vbYesNo, "Mensaje de Alerta")
 
Select Case msgvalue
 
Case 6
 
     Range("D" & uf).EntireRow.Delete
 
Case 7
 
   Exit Sub
 
End Select
 
 
 uf1 = Range("D" & Rows.Count).End(xlUp).Row
 
Range("D" & uf1).Borders.LineStyle = xlContinuous
Range("E" & uf1).Borders.LineStyle = xlContinuous
Range("F" & uf1).Borders.LineStyle = xlContinuous
Range("G" & uf1).Borders.LineStyle = xlContinuous
Range("H" & uf1).Borders.LineStyle = xlContinuous
Range("I" & uf1).Borders.LineStyle = xlContinuous
Range("J" & uf1).Borders.LineStyle = xlContinuous
Range("K" & uf1).Borders.LineStyle = xlContinuous
Range("L" & uf1).Borders.LineStyle = xlContinuous
Range("M" & uf1).Borders.LineStyle = xlContinuous
Range("N" & uf1).Borders.LineStyle = xlContinuous
Range("O" & uf1).Borders.LineStyle = xlContinuous
Range("P" & uf1).Borders.LineStyle = xlContinuous
Range("Q" & uf1).Borders.LineStyle = xlContinuous
Range("R" & uf1).Borders.LineStyle = xlContinuous
Range("S" & uf1).Borders.LineStyle = xlContinuous
Range("T" & uf1).Borders.LineStyle = xlContinuous
Range("U" & uf1).Borders.LineStyle = xlContinuous
Range("V" & uf1).Borders.LineStyle = xlContinuous
Range("W" & uf1).Borders.LineStyle = xlContinuous
Range("X" & uf1).Borders.LineStyle = xlContinuous
 
 
End Sub
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:MSGBOX VBYESNO

Publicado por Ariel (1 intervención) el 23/02/2006 23:31:09
Ejemplo

1
2
3
4
5
6
Dim Respuesta As Integer
 
Respuesta = MsgBox("Se ha llegado al final de la Grilla, Desea buscar desde el inicio de esta?", vbQuestion + vbOKCancel)
           If Respuesta = 1 Then '-- 2=Cancelar;1 = Aceptar
           '---- Acciones
           End If
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