FoxPro/Visual FoxPro - VALIDAR TEXTBOX

   
Vista:

VALIDAR TEXTBOX

Publicado por rAMON (81 intervenciones) el 10/09/2009 16:28:41
Hola.. buenos dias.. quisiera me ayudaran en algo...
quiero validar un textbox para habilitar un boton... de la siguiente manera:

Si al capturar el textbox si su contenido es menor que quince se el Boton esta Enabled=.f.
Si al capturar el textbox si su contenido es igual a quince se el Boton esta Enabled=.T.
Si al capturar el textbox si su contenido es Mayor que quince se el Boton esta Enabled=.f.

O SEA QUE EL VALOR DE EL TEXTBOX SEA 15 CARACTERES... ni mas n menos..

yo lo estoy haciendo asi... pero no me sale...
En el evento de InteractiveChange... tengo lo siguiente...

nLicencia=ALLTRIM(nLicencia)
IF LEN(nLicencia)=15
thisform.PageFrame1.Page2.Command4.Enabled=.t.
thisform.PageFrame1.Page2.Refresh
Else
thisform.PageFrame1.Page2.Command4.Enabled=.F.
ENDIF

Hay les agradecere bastante como hacerlo...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:VALIDAR TEXTBOX

Publicado por juan286 (179 intervenciones) el 10/09/2009 17:53:28
La verdad es algo como esto
en el evento interactive
IF (VAL(thisform.text2.Value) < 15)
thisform.command2.Enabled = .F.
ENDIF

IF (VAL(thisform.text2.Value) = 15)
thisform.command2.Enabled = .T.
ENDIF

IF (VAL(thisform.text2.Value) > 15)
thisform.command2.Enabled = .F.
ENDIF

este es empleando pageframe

IF (VAL(thisform.pageframe1.page1.text1.Value) < 15)
thisform.pageframe1.page1.command1.Enabled = .F.
ENDIF

IF (VAL(thisform.pageframe1.page1.text1.Value) = 15)
thisform.pageframe1.page1.command1.Enabled = .T.
ENDIF

IF (VAL(thisform.pageframe1.page1.text1.Value) > 15)
thisform.pageframe1.page1.command1.Enabled = .F.
ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:VALIDAR TEXTBOX

Publicado por juan286 (179 intervenciones) el 10/09/2009 18:54:03
Hola perdon entendi mal o lei mal el problema y la verdad tu forma de entrada esta bien yo lo proble y me funciono como tu quirias

nLicencia = thisform.text2.Value
nLicencia=ALLTRIM(nLicencia)
IF LEN(nLicencia)=15
thisform.Command2.Enabled=.t.
Else
thisform.Command2.Enabled=.F.
ENDIF

Bueno solo diseñe un formulario y coloque un textbox en este caso 2 y un command2 y coloque este codigo en el metodo interactivechange y listo

si quiere el ejemplo k hice enviame tu correo o escribeme y te lo envio

Juan286@Hotmail.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar