Use keys plus/minus to increase or decrease number? 1

[Crownknox]

I have several fields in a form where the default value is usually the date. But i often have to change it. I am wondering if it is possible that if the plus key or minus key on the number pad of the keboard are pressed it will add 1 to the date or subtract one to the date.

Example

Date = 12/04/01

If plus (+) key is pressed then 12/05/01
If minus (-) key is pressed then 12/03/01

Is this possible?

I would appreciate any help!
Thanks

 

[jtmach]

Go to the design view for your form.
Right click on the control that you want this to happen for.
Make sure that the format is set to short date.
Go to events and next to the on key down event type event procedure.
Then click on the ... button.
When the code window opens up paste the code below in between where it says private sub and end sub.
Where the code you pasted says text1 type the name of your textbox.
Then save and close.

    If KeyCode = 107 Then
        Me.Text1 = Me.Text1 + 1
        KeyCode = 0
    ElseIf KeyCode = 109 Then
        Me.Text1 = Me.Text1 - 1
        KeyCode = 0
    End If[B] The hardest questions always have the easiest answers.

 

[Crownknox]

Thanks, Works great!

 

[MichaelRed]

107 == vbkeyadd

109 == vbkeysubtract

would make for easier reading / documentation MichaelRed
m.red@att.net

There is never time to do it right but there is always time to do it over