View Single Post
  #3   Report Post  
Posted to comp.databases.ms-access,microsoft.public.excel.programming
Keith Willshaw Keith Willshaw is offline
external usenet poster
 
Posts: 170
Default Edit Textbox using KeyPress vba code in Access


"Arno" wrote in message
om...
Hello,
I am trying to edit a textbox which contains a number. When focus is
on the textbox, and a user press the "arrow up", I would like the
textbox value to increase of 100, and at the opposite when the user
press "arrow down", I would like this value to decrease by 100.
For the moment I have done that using the "keypress" event, but I have
a problem, as this event reacts to any key of the keyboard.
So I would need whether another idea to proceed or a way to qualify
the key which is being pressed as the "arrow up" or "down", then I
could use a conditional phrase.
Thank you for your help.


Keypress only returns ASCII codes, you need
to use the keydown function which returns the
code of the key pressed.

Addin the following sub to a text box will display
the value returned by the key pressed and
allow you to chose what action to take

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)
TextBox1.Text = "Key pressed was " & KeyCode
End Sub

The down Arrow returns 40, up arrow returns 38,
left arrow 27 and right arrow 39

Keith