ROFL
I have my doubts before posting it.
>How dare you to post not fully tested code! People should be able to use it right away not waste there time on adapting and testing it.
>
>>
>>
>>Put this in KeyPress Event of the TextBox:
>>
>>
>>LPARAMETERS nKeyCode, nShiftAltCtrl
>>
>>IF nKeyCode == 46
>> LOCAL nStart
>> nStart = this.SelStart
>> NODEFAULT
>> DO CASE
>> CASE nStart < 5
>> this.Value = PADL(ALLTRIM(LEFT(this.Value,3)),3)+SUBSTR(this.Value,4)
>> this.SelStart = 4
>> this.SelLength = 3
>>
>> CASE nStart < 9
>> this.Value = LEFT(this.Value,4)+PADL(ALLTRIM(SUBSTR(this.Value,5,3)),3)+SUBSTR(this.Value,8)
>> this.SelStart = 8
>> this.SelLength = 3
>>
>> CASE nStart < 13
>> this.Value = LEFT(this.Value,8)+PADL(ALLTRIM(SUBSTR(this.Value,9,3)),3)+SUBSTR(this.Value,12)
>> this.SelStart = 12
>> this.SelLength = 3
>> ENDCASE
>>ENDIF
>>
>>
>>NOT WELL TESTED!!!!
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.