>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
Elyse Pomerantz