Formularios sin datos

Hola raveen de nuevo gracias
Tengo esta consulta más... Resulta que si uno deja los formularios con datos vacíos (o sea si inician desde sero) tu das clic en algunos botones y dan error... Es posible hacer algo contra eso. No se un código (en el init) que diga que si no hay datos en un archivo se bloqueen (enabled) esos botones...
De nuevo muchas gracias si hay otra forma te lo agradecería...
fargoz

1 Respuesta

Respuesta
1
A ver... jeje/// vien un poco enredada la pregunta... Explicame mejor! ¿Cómo así que "inician desde cero"? ¿Qué errores te da? No comprendo!
Ok la pregunta es como válido un formulario cunado no hay registros o datos en los tablas, Errores:
1. Si yo le doy en anterior me muestra un error debido a que no hay datos.
2. Me muestra un archivo eliminado a sabiendas que ya esta eliminado.
3. El botón editar esta en actividad.
Mi idea es confiigurar algo que diga que si no hay archivos en la tabla inhabilitar algunos comandos..
Gracias
fargoz
Disculpa la tardanza :)! Mira... si quieres inhabilitar algunos botones de comando cuando la tabla de tu form este en blanco (sin ningún registro), podes usar la siguiente linea de códigos en el INIT de tu form
IF RECCOUNT ("mitabla1") == 0
           THISFORM.Command1.Enabled = .F.
           THISFORM.Command2.Enabled = .F.
                 ELSE 
                    THISFORM.Command1.Enabled = .T.
                    THISFORM.Command2.Enabled = .T.
ENDIF
Con esto, al iniciar tu form, se inhabilitan los comandos (o cualquier otro control) si tu tabla esta vacía.
Imagino que cuando clickeas los botones de desplazamiento (1) te da un error "end of file encountered". Para evitar esto cuando tu tabla la tienes vacía, proba algo así:
IF RECCOUNT("mitabla1")== 0 
        MESSAGEBOX("Tabla vacia")
        RETURN (.F.)
            ELSE
                      Skip + 1        **--Boton siguiente--**
                                If Eof()
                                      Messagebox("Último registro.", 64)
                                      Go Bottom
                                 Endif 
                THISFORM.Refresh
Endif
Ves que fácil. Avisame cualquier problema que tengas!
Saludos!
Desde Managua, Nicaragua!
Ravenn :D :D :D
Hola Raveen Gracias de nuevo por toda tu ayuda, la verdad estaba algo retirado de este proyecto pero volví a iniciar, espero contar de nuevo con tu ayuda.
Men lo revise pero no de medio, la situación es que trabajo con esta configuración.
ActivarDesactivar Text
*Activar y desactivar botones de comando
lpara x
thisform.cmdanterior.enabled=x
thisform.cmdsiguiente.enabled=x
thisform.cmdprimero.enabled=x
thisform.cmdultimo.enabled=x
thisform.cmdnuevo.enabled=x
thisform.cmdeditar.enabled=x
thisform.cmdguardar.enabled=not x
thisform.cmdcancelar.enabled=not x
thisform.cmdeliminar.enabled=x
thisform.cmdsalir.enabled=x
thisform.cmdimprimir.enabled=x
thisform.cmdvista.enabled=x
thisform.cmdword.enabled=x
thisform.cmdimagen.enabled=x
thisform.cmdconsultar.enabled=x
Thisform.cmdtext1.Enabled= not X
Thisform.cmdtext2.Enabled=not X
Thisform.cmdtext3.Enabled=not X
*Activar y desactivar botones de comandolpara x
thisform.cmdanterior.enabled=xthisform.cmdsiguiente.enabled=xthisform.cmdprimero.enabled=xthisform.cmdultimo.enabled=xthisform.cmdnuevo.enabled=xthisform.cmdeditar.enabled=xthisform.cmdguardar.enabled=not xthisform.cmdcancelar.enabled=not xthisform.cmdeliminar.enabled=xthisform.cmdsalir.enabled=xthisform.cmdimprimir.enabled=xthisform.cmdvista.enabled=xthisform.cmdword.enabled=xthisform.cmdimagen.enabled=xthisform.cmdconsultar.enabled=xThisform.cmdtext1.Enabled= not XThisform.cmdtext2.Enabled=not XThisform.cmdtext3.Enabled=not X
 y luego es sino poner en los comandos y trabaja.
thisform.activardesactivarcommand(.f.)
lo intente asi pero no tuve exito
*!* No hay datos en la tabla
IF RECCOUNT ("tbcotizador") == 0 
          thisform.activardesactivarcommand(.f.)
              ELSE  
                   thisform.activardesactivarcommand(.t.)
Endif
Espero una pronta respuesta Gracias!
thisform.cmdanterior.enabled=x ??????????????????????? Como es esoo? x almacena un valor = .T./.F.?????

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas