Foros del web, para los que viven de bits

Runtimes · 01-dic-2005, 16:11

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

Cita:

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 · 01-dic-2005, 16:55

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 · 01-dic-2005, 18:27

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 · 02-dic-2005, 08:57

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

Cita:

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 · 02-dic-2005, 17:54

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 · 02-dic-2005, 18:42

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 · 03-dic-2005, 11:03

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

Runtimes · 05-dic-2005, 17:46

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 · 06-dic-2005, 07:50

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 · 06-dic-2005, 08:00

la respuesta

exit sub

salu2

Runtimes · 06-dic-2005, 08:47

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.

01-dic-2005, 16:11	#1 (permalink)
Runtimes Fecha de Ingreso: noviembre-2005 Ubicación: Sarajevo Mensajes: 56	Duda en una condicion o no se.... 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 Cita: 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....

01-dic-2005, 16:55	#2 (permalink)
jc_moty Fecha de Ingreso: septiembre-2005 Ubicación: Usulután, El Salvador Mensajes: 466	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 __________________ .: Download Day - Ayuda a Firefox a Conseguir un record mundial :.

01-dic-2005, 18:27	#3 (permalink)
hernanmdq Fecha de Ingreso: julio-2005 Ubicación: Argentina - Entre Rios Mensajes: 166	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 __________________ \| Codigo Geek \| Blog de Cine \|

02-dic-2005, 17:54	#5 (permalink)
Jad-Neo Fecha de Ingreso: octubre-2004 Ubicación: Mérida, Yucatán Mensajes: 312	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 __________________ Una persona no se identifica por las cosas que sabe que dice que puede hacer, sino por las que hace.(Josué Flores Ramírez)

06-dic-2005, 08:00	#10 (permalink)
aldo1982 Fecha de Ingreso: noviembre-2004 Ubicación: santafe (argentina) COLON de STAFE Mensajes: 1.093	la respuesta exit sub salu2 __________________ LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA

02-dic-2005, 08:57	#4 (permalink)
Runtimes Fecha de Ingreso: noviembre-2005 Ubicación: Sarajevo Mensajes: 56	Hola, gracias por vuestra aclaracion... probare a ver pero creo que hice una prueba, la que indica hernanmdq vamos algo asi... Cita: 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.

02-dic-2005, 18:42	#6 (permalink)
Runtimes Fecha de Ingreso: noviembre-2005 Ubicación: Sarajevo Mensajes: 56	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...

03-dic-2005, 11:03	#7 (permalink)
cabeza_nispero Usuario baneado! Fecha de Ingreso: febrero-2005 Mensajes: 116	ustedes que saben tanto compadres, ayudenme a aprender vb... quiero parecerme a ustedes, saben muchisimo, son mis idolossss!!!!

06-dic-2005, 08:47	#11 (permalink)
Runtimes Fecha de Ingreso: noviembre-2005 Ubicación: Sarajevo Mensajes: 56	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.

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado