Daniel
08 de Marzo del 2005

Estimados Foxprosences
Saludos cordiales a todossssssssssss

Tengo estas l铆neas en un .PRG y me da el siguiente error

"activecontrol no es un objeto"

IF _screen.activeform.activecontrol.Caption = ALLTRIM(STR(DAY(DATE())))
THISFORM.Hoy.ENABLED = .F.
ELSE
THISFORM.Hoy.ENABLED = .T.
ENDIF

Lo necesito porque tengo 42 botones que necesitan de esta funci贸n.-

Si esta funci贸n es posible agradecer铆a me indiquen la soluci贸n

Saludos
Daniel
Nota: muchas pero muchas gracias porque toda vez
que hice una consulta encontr茅 la soluci贸n.-

noelia_is
08 de Marzo del 2005

No debes poner tus instrucciones en un prg como si se tratara de un formulario, antes de llamar a tu .prg transmite tu valor a una variable y en tu prg trabaja con tu variable, al final en tu formulario retomas la variable y la transfieres a tu objeto, espero te ayude.

vaquero
08 de Marzo del 2005

Tiene razon lo que dice noelia_is debes hacerlo de esta forma

en el form
checka( thisform.hoy )

en un prg
FUNCTION checka( loControl )
WiTH loControl
.ENABLED = .T. ' O FALSO
ENDWITH
ENDFUNC

la idea es que cada control o form completo se pase como referencia a una variable.