Formating text box

[augustin]

How to create a text box that accepts as input data, only alphabetic and spaces ( for names of persons ).
I tried with KeyPress event but I can not control the keystrokes. More precisely, if a digit is pressed it's displayed in the text box and I don't want this.

e.g. code for txtPerson.KeyPress

LPARAMETERS nKeyCode, nShiftAltCtrl
If ( !ISALPHA(CHR(nKeyCode)) AND nKeyCode != 32 )
Messagebox('Use only alphabetic and spaces!')
EndIf

 

[ramani]

Hi

in the format property of the TextBox put A
This will restrict to only Alpha characters


____________________________________________
ramani - (Subramanian.G)

http://winnersoft.coolfreepages.com/

When you ask VFP questions, please add VFP version.

 

[GriffMG]

Try:

LPARAMETERS nKeyCode, nShiftAltCtrl
 If ( !ISALPHA(CHR(nKeyCode)) .AND. !chr(nKeyCode)$" '-"+chr(27))
     Wait 'Use only alphabetic and spaces!' window nowait timeout 2
     NODEFAULT
 EndIf

Note the allowance for apostrophes and hyphens!

Regards

Griff
Keep [Smile]ing

 

[augustin]

Thanks GriffMG,

It works.