>>>Hello,
>>>
>>>I have an EditBox to key in notes for a customer. I would like to automatically insert todays date when the customer hits CTRL+D or whatever. I have played around with a few things to no avail like on key label in the keypress event of the editbox.
>>>
>>>Any ideas?
>>>
>>>Paul
>>
>>Paul,
>>
>>I do just this. Here's how I do it:
>>
>>In the GotFocus of the EditBox I have: ON KEY LABEL CTRL+D _screen.activeform.InsDate()
>>In the LostFocus I have: ON KEY LABEL CTRL+D
>>
>>*** Procedure InsDate
>>thisform.edtMemoText.value=left(.value,.SelStart)+dtoc(date())+" "+right(.value,len(.value)-.SelStart)
>>
>>This allows the date to be inserted at any point in the EditBox, not just at the end.
>>
>>Elyse
>
>Hi Elyse,
>
>I found a way to accomplish this last night that I thought you might be interested in, its just a few lines of code in the Keypress event that also allows me to insert the date at any point instead of just at the end.
>
>
>LPARAMETERS nKeyCode, nShiftAltCtrl
>if nKeyCode = 20 and nShiftAltCtrl = 2 then &&CTRL+T
> nodefault
> keyboard dtoc(date()) clear
>endif
>
>
>
>I would also appreciate any comments if this is not a good idea, as I am fairly new to Visual Foxpro and can always use any helpful insight.
>
>Regards,
>
This works for me! It also seems to work without checking the nShiftAltCtrl value. nKeyCode already takes that into account. (CTRL+D=4)
Elyse
>Paul
Elyse Pomerantz