Antes de Guardar ver si contienen datos

Hola amigos que tal, tengo un formulario en el cual tengo un boton guardar pero ya lo tengo programado pero yo quisiera que el boton guardar evaluara los text si contienen datos o no. Por ejmplo el boton lo tengo de la siguiente manera
if messagebox("Desesa Guardar el registro actual",4+32,"GUARDAR REGISTRO")=6
----------------GUARDAR REGISTRO-------------------
else
Endif
Pero yo quisiera que antes del if hiciera la evaluación, en los textbox tengo valores numéricos y caractes..
Agradeceré la ayuda

1 Respuesta

Respuesta
1
Esto es muy sencillo. Lo evaluás con la función EMPTY(). Esta función devuelve .T. o .F. según esté vacío o no un valor, sin importar que tipo de datos sea (en la ayuda de Fox te aclara más)
Por ejemplo:
if NOT EMPTY(ThisForm.Text1.Value) AND messagebox("Desesa Guardar el registro actual",4+32,"GUARDAR REGISTRO")=6
----------------GUARDAR REGISTRO-------------------
else
Endif
Este agregado al IF primero evalúa si el text1 está vacío o no. Si NO está vacío, te pregunta si querés guardar; si está vacío, no te pregunta nada.
Espero te sirva.
Saludos.
Bueno que tal amigo.. gracias por la ayuda y la dedicación de tiempo que tomas al leer la pregunta.. mira te cuento que lo puse de esta manera y funciona bien.. pero...
WITH THISFORM
IF NOT EMPTY(.txtnombre.value)and MESSAGEBOX("DEsea guardar",4+32,"GUARDAR")=6 THEN
    SELECT datos
    APPEND BLANK
    replace codigo WITH .txtcodigo.value
    replace nombre WITH .txtnombre.value
    replace apellido WITH .txtapellido.value
    replace telefono WITH .txttelefono.value
    .txtcodigo.value=0
    .txtnombre.value=""
    .txtapellido.value=""
    .txttelefono.value=0
ELSE
        IF EMPTY(.txtnombre.value)then
            MESSAGEBOX("Debe contener datos", 0+16,"Caja de texto vacía")
        Endif
Endif
endwith
**pero como hago para que evalue mas de un textbox???? por ejemplo que yo quisiera codigo,nombre,apellido.. y al mostrar el messagebox este me diga cual es el textbox que necesita ingresar el dato...
Gracias...
Encadená las cosas:
IF NOT EMPTY(ThisForm.txtcodigo.Value) AND NOT EMPTY(ThisForm.txtnombre.Value) AND NOT EMPTY(ThisForm.txtapellido.Value) AND NOT EMPTY(ThisForm.txttelefono.Value) AND MESSAGEBOX("DEsea guardar",4+32,"GUARDAR")=6
...
O sino, para que quede un poco mejor:
LOCAL sTxtAviso
sTxtAviso = ""
IF EMPTY(ThisForm.txtcodigo.Value)
        sTxtAviso = sTxtAviso + "código, "

ENDIF
IF EMPTY(ThisForm.txtnombre.Value)
        sTxtAviso = sTxtAviso + "nombre, "
ENDIF
IF EMPTY(ThisForm.txtapellido.Value)
        sTxtAviso = sTxtAviso + "apellido, "
ENDIF
IF EMPTY(ThisForm.txttelefono.Value)
        sTxtAviso = sTxtAviso + "teléfono, "
ENDIF
IF NOT EMPTY(sTxtAviso) && Si hay algo quiere decir que falta completar algún campo
     sTxtAviso = LEFT(sTxtAviso, LEN(sTxtAviso) - 2) && Le saco la última coma

     MESSAGEBOX("Debe completar " + sTxtAviso, 64, "Atención!")
     RETURN

ELSE   && Están todos los campos completos

     IF MESSAGEBOX("Guarda los datos ?", 36, "Guardar") = 6
          **** Guardar *****

     ELSE
          **** NO Guardar *****
ENDIF

ENDIF

Esto que te puse es una alternativa, obviamente se puede mejorar mucho más todavía.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Evitar registro duplicado en campo. VFP

Espero andes bien! Soy Mariela... Aquí molestándote de nuevo. Mi duda es esta: he intentado evitar registros duplicados en los campos de una tabla. Lo que he trabajado va así: en algunos textos de mi form, he diseñado una linea de código para, al...
1 respuesta

Problemas con el botón guardar en visual foxpro 9.0

Tengo un problema con el botón guardar, tengo la siguiente codificación, 1ero en el Init del form SELECT agregarymodificar SET ORDER to CÓDIGO && CÓDIGO GO bott thisform.txtCodigo.value=agregarymodificar.código+1 thisform.refresh y luego en el click...
1 respuesta

Pasar datos de un form a un report..:?

Tengo una pequeña aplicación que estoy desarrollando, es para llevar el registro de los cambios de turno que los empleados realizan para luego imprimirlos, pero no se como tomar los datos desde el formulario y pasarlos al reporte para imprimirlos...!
1 respuesta

¿Cómo forzar que un campo de un formulario sea obligatorio rellenar?

Espero me puedas ayudar con esto: tengo un formulario donde quiero forzar al usuario a no dejar información incompleta y/o campos vacíos. Tengo esto en los textbox en el evento "valid": IF EMPTY(thisform.txtdesc_banco.Value) WAIT WIND "Ingrese el...
1 respuesta

Como evitar registros duplicados en visual foxpro

Tengo el siguiente problema y agradecería me pudieran ayudar Como puedo hacer para que a la hora de ingresar un dato.. En un campo de texto... El sistema me arroje un mensaje que que ya existe un registro.. En dado caso de que ya exista, esto para...
1 respuesta

Validar si ya existe un registro

¿Cómo puedo validar si ya existe el registro o el dato que voy a insertar? La idea es que si ya existe que no inserte y que mande un mensaje y sino Existe que lo inserte. Es un campo principal para lo cual necesito este procedimiento (la cedula de...
1 respuesta

Intentos fallidos espere para volver a ingresar

La verdad soy nuevo programando en VFP Bueno tengo un formulario de inicio de sesión con dos cuadros de textos y dos botones de comando (aceptar y cancelar), quisiera saber como hago para que cuando tenga 3 intentos fallidos bien sea en Usuario y/o...
1 respuesta