Duda en una condicion o no se....

[Runtimes]

Hola, tengo un problema. Resulta que tengo una base de datos en VB, y tengo un boton que sirve para eliminar registros (clientes). Pues bien, yo he puesto en el code un msgbox que indica lo siguiente "¿Deseas borrar el cliente? y aparecen dos opciones YES o NO. Bien, yo tengo el codigo programado para que se borre la ficha de cliente, pero quisiera poder poner alguna condicion para que si no deseamos eliminar la ficha del cliente, al pulsar sobre NO, que no continue con el codigo, ya que sigue y termina eliminando la ficha de cliente. Supongo que se hara metiendo un

If msgbox= vbNO Then .... (aqui es donde me pierdo)

O seguramente este muy equivocado y no sea asi... sera mas complicado... pero llevo poco tiempo y leo mucho, pero entiendo poco... supongo que sera normal....

[jc_moty]

Pues, segun te entendi.
La respuesta es si la condicion es esa que pones.

Código:

If msgbox= vbNo Then .... (lo que vas hacer)

Saludos

[hernanmdq]

La respuesta es simple, como te dicejc_moty pon
If msgbox = vbyes then
eliminar registro
end if ' en el caso que aprete No, no pasa nada.

Salu2

[Runtimes]

Hola, gracias por vuestra aclaracion... probare a ver pero creo que hice una prueba, la que indica hernanmdq vamos algo asi...

If msgbox = vbyes then
eliminar registro
end if ' en el caso que aprete No, no pasa nada.

Pulsando que NO, igual me eliminaba el registro... de todos modos lo volvere a probar, y si no me funciona y me sigue eliminando el registro, ¿puedo colgar el codigo que tengo para ese commandbutton?

Gracias.

[Jad-Neo]

A ese código se le puede agregar una pequeña clausula que se llama Exit Sub, que te saca del procedimiento:

Código:

If Msgbox = vbYes Then
    'Eliminar al cliente
Else
    Exit Sub
End If

[Runtimes]

Hola Jad-Neo,

el problema lo tengo en que yo quiero que al salir las dos opciones, si el usuario pincha en No, pues que el programa se detenga o salga de la opcion borrar, ya que el codigo para borrar el cliente se encuentra en el cmdBorrar.

Y si quiere borrar, al pulsar en Si, pues que el programa siga su curso, y sera eliminado, porque el codigo esta programado a tal efecto... pero cuando hice la prueba en clase el jueves, tanto al seleccionar Si, como si seleccionaba No (borrar Si o No), me eliminaba el cliente, por lo que deduzco que el codigo en algun lugar estaba erroneo...

De todos modos, hasta el lunes, no tendre acceso al codigo, ya que lo tengo en el pc de clase, por lo que no podre modificarlo... de todos modos, gracias por las sugerencias...

[cabeza_nispero]

ustedes que saben tanto compadres, ayudenme a aprender vb... quiero parecerme a ustedes, saben muchisimo, son mis idolossss!!!!

[Runtimes]

Hola, he probado lo que me han indicado, pero sigo sin poder solucionarlo, asi que les dejo el codigo que tengo en el boton BORRAR CLIENTE

Lo que me hace es si le digo que no lo elimine, me muestra los msgbox, pero al final me dice, Cliente eliminado y por supuesto lo elimina....

Les pego el codigo, a ver si me dicen o me ayudan a intentar solucionarlo...

Código:

Private Sub Command5_Click()
Dim resp As Integer
resp = MsgBox("¿Deseas elimiar la ficha?", vbYesNo + vbInformation, "ATENCION")
If resp = vbNo Then
MsgBox "No ha eliminado ningun cliente", vbOKOnly + vbInformation, "ATENCION"
End If
Close
Open "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\datos.dat" For Input As 1
Open "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\pasadatos.dat" For Append As 2
Do While Not EOF(1)
Input #1, nomcogido
Input #1, apecogido
Input #1, dircogido
Input #1, pobcogido
Input #1, obscogido
If nomcogido = Text7.Text Then
Text1.Text = nomcogido
Text2.Text = apecogido
Text3.Text = dircogido
Text4.Text = pobcogido
Text5.Text = obscogido
Else
Write #2, nomcogido
Write #2, apecogido
Write #2, dircogido
Write #2, pobcogido
Write #2, obscogido
End If
Loop
Close #1
Close #2
Kill "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\datos.dat"
Name "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\pasadatos.dat" As "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\datos.dat"
MsgBox "CLIENTE BORRADO", vbOKOnly + vbInformation, "ATENCION"
End Sub

[reel]

Fijate en la línea que está en rojo

Código:

Private Sub Command5_Click()
Dim resp As Integer
resp = MsgBox("¿Deseas elimiar la ficha?", vbYesNo + vbInformation, "ATENCION")
If resp = vbNo Then
  MsgBox "No ha eliminado ningun cliente", vbOKOnly + vbInformation,     "ATENCION"
Exit Sub
End If
Close
Open "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\datos.dat" For Input As 1
Open "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\pasadatos.dat" For Append As 2
Do While Not EOF(1)
Input #1, nomcogido
Input #1, apecogido
Input #1, dircogido
Input #1, pobcogido
Input #1, obscogido
If nomcogido = Text7.Text Then
Text1.Text = nomcogido
Text2.Text = apecogido
Text3.Text = dircogido
Text4.Text = pobcogido
Text5.Text = obscogido
Else
Write #2, nomcogido
Write #2, apecogido
Write #2, dircogido
Write #2, pobcogido
Write #2, obscogido
End If
Loop
Close #1
Close #2
Kill "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\datos.dat"
Name "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\pasadatos.dat" As "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\datos.dat"
MsgBox "CLIENTE BORRADO", vbOKOnly + vbInformation, "ATENCION"
End Sub

[aldo1982]

la respuesta

exit sub

salu2

[Runtimes]

Hola,

MUCHAS GRACIAS.

La verdad es que JAD-NEO ya me lo indico en su ejemplo, pero no supe interpretar el codigo bien, ya que lo colocaba en el lugar equivocado, por eso no me paraba el codigo y lo ejecutaba borrando el cliente.

Bueno, seguire haciendo cosillas y si me surgen otras dudas, se las comentare.

Reitero lo dicho, MUCHAS GRACIAS.