characters an spaces only in text box

[BundaZSZ]

HY

its me again whit another simple question
How can i set my text box enter just characters an spaces
whit no signs or anything else

Thanks

 

[csr]

In the VALID event of the control you could build a routine that processes each character in THIS.VALUE and determines if it is in the set of allowable characters.


lReturnValue = .t.
for j = 1 to len(this.value)
ch = substr(this.value,j,1)
if not upper(ch) $ "ABCDEFGHIJKLMNOPQRSTUVWXYZ "
lReturnValue = .f.
exit
endif
endfor
return lReturnValue



Don

 

[BundaZSZ]

OK my friend
but I don't want to let the user to enter nothing else that characters and speces in the TEXT BOX

 

[AirCon]

Hi Bunda,

Try this. Put in Keypress event

---------
LPARAMETERS nKeyCode, nShiftAltCtrl
Local lcChar

lcChar = chr(nKeyCode)
If !(lcChar $ 'abcdABCD ')
Wait 'Not allowed!' window nowait
NoDefault
endif
--------

Hope it helps

-- AirCon --

 

[BPeisch]

Just put A in the Format property of the textbox.



-BP

http://www.peisch.com

 

[BPeisch]

Ignore my message. Putting A in the Format property won't allow spaces.



-BP

http://www.peisch.com

 

[BundaZSZ]

OK
i thank you for your help
tonight i will try inthe way you show it to me

I hope that these are the right solution
Thanks again