Make + and - adjust date in field.

[Opid]

Hello everyone,

I am trying to make the + - (numpad) adjust the date of the current text field. The problem I am having is I believe the input mask intercepts the keypress and my keypress event is never fired. Here is my code:

Private Sub LeaseDate_KeyDown(KeyCode As Integer, Shift As Integer)If (KeyAscii = 107) Then
LeaseDate = DateAdd("d", 1, LeaseDate)
End If


If (KeyAscii = 109) Then
LeaseDate = DateAdd("d", -1, LeaseDate)
End If
End Sub

Access makes the ding noise when I try and press + and -



Thanks in advance

[pbaldy]

For starters you have your codes wrong, for seconds you need to reset KeyAscii. This works in a brief test:

  If (KeyAscii = 43) Then
    KeyAscii = 0
    Date_in_Service = DateAdd("d", 1, Date_in_Service)
  End If


  If (KeyAscii = 45) Then
    KeyAscii = 0
    Date_in_Service = DateAdd("d", -1, Date_in_Service)
  End If

[Opid]

Thanks for the response ,

I tried switching out the codes and resetting the Keyascii but access still dings at me. I think the input mask is catching the key event...

[Opid]

Figured it out. Needs to be in KeyPressed event not KeyDown. Thank you pbaldy!

Private Sub LeaseDate_KeyPress(KeyAscii As Integer)
If (KeyAscii = 43) Then
    KeyAscii = 0
    LeaseDate = DateAdd("d", 1, LeaseDate)
  End If
  If (KeyAscii = 45) Then
    KeyAscii = 0
    LeaseDate = DateAdd("d", -1, LeaseDate)
  End If
End Sub

[pbaldy]

Sorry, I should have noticed the event. Glad you got it sorted out.