working with keystrokes

  • Thread starter Thread starter Sophie
  • Start date Start date
S

Sophie

I have a textbox that contains a date. When that control has the focus, I'd
like to be ably to key in 'y' to move the date ahead by a year, and key in
'r' to move the date back by a year. How would I do this?
 
Sophie said:
I have a textbox that contains a date. When that control has the focus,
I'd
like to be ably to key in 'y' to move the date ahead by a year, and key in
'r' to move the date back by a year. How would I do this?
Click to expand...


You could use code in the text box's KeyPress event. Something like this:

'----- start of code -----
Private Sub DateField_KeyPress(KeyAscii As Integer)

With Me!DateField

If Not IsNull(.Value) Then

Select Case KeyAscii

Case 121, 89 ' "y" or "Y"
.Value = DateAdd("yyyy", 1, .Value)
KeyAscii = 0 ' swallow this key

Case 114, 82 ' "r" or "R"
.Value = DateAdd("yyyy", -1, .Value)
KeyAscii = 0 ' swallow this key

End Select

End If

End With

End Sub
'----- end of code -----
 
Back
Top