This Tuesday! Learn key insights about modern cyber protection services & gain practical strategies to skyrocket business:
- What it takes to build a cloud service portfolio
- How to determine which services will help your unique business grow
- Various use-cases and examples
Quickbooks-style date increments/decrements?
I'd like to setup a date field in an Access form, that can be incremented or decremented by pressing the + or - key, respectively, the way it works in Quickbooks. I thought that I could capture the keypress before saving the field, and do the job that way, by using code like this in the OnKeypress event:
Private Sub RequestDate_KeyPress(KeyAs
Select Case KeyAscii
Case 43
RequestDate = RequestDate + 1
Case 45
RequestDate = RequestDate - 1
End Select
End Sub
This seems to work, except that it still types a "+" or a "-" into the box. In fact, if the field value is highlighted, it erases the existing value to do it, although if I hit Esc afterwards, I can see that the new, correct value, is in place.
How do I get it to just update the field with the new date value, and not insert a + or - into it?
Private Sub RequestDate_KeyPress(KeyAs
Select Case KeyAscii
Case 43
RequestDate = RequestDate + 1
Case 45
RequestDate = RequestDate - 1
End Select
End Sub
This seems to work, except that it still types a "+" or a "-" into the box. In fact, if the field value is highlighted, it erases the existing value to do it, although if I hit Esc afterwards, I can see that the new, correct value, is in place.
How do I get it to just update the field with the new date value, and not insert a + or - into it?
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Try this:
Private Sub RequestDate_KeyDown(KeyCod
Select Case KeyCode
Case 187
KeyCode = 0
RequestDate = CDate(RequestDate) + 1
Case 189
KeyCode = 0
RequestDate = CDate(RequestDate - 1)
End Select
End Sub
mx
Private Sub RequestDate_KeyDown(KeyCod
Select Case KeyCode
Case 187
KeyCode = 0
RequestDate = CDate(RequestDate) + 1
Case 189
KeyCode = 0
RequestDate = CDate(RequestDate - 1)
End Select
End Sub
mx
That did it, mx. Actually, all that I was missing was setting KeyAscii = 0. That worked perfectly. Just curious, 187 and 189 seem to be drawing characters. Why were you using those?
Anyway, thanks a bunch!
Anyway, thanks a bunch!
"Why were you using those?"
Well, I thought ... those were the keycodes for plus and minus ... and they do work ... but, the keycodes are actually 43 and 45. I quickly used Debug.Print Keycode ... and those were returned.
Not sure what is going on ...
mx
Well, I thought ... those were the keycodes for plus and minus ... and they do work ... but, the keycodes are actually 43 and 45. I quickly used Debug.Print Keycode ... and those were returned.
Not sure what is going on ...
mx
Actually, not sure WHAT ... is going on with those code. Forget KeyDown ... what you came up with is correct ... just missing KeyAscii = 0
Private Sub RequestDate_KeyPress(KeyAs
Debug.Print KeyAscii
Select Case KeyAscii
Case 43
KeyAscii = 0
RequestDate = CDate(RequestDate) + 1
Case 45
KeyAscii = 0
RequestDate = CDate(RequestDate - 1)
End Select
End Sub
mx
Private Sub RequestDate_KeyPress(KeyAs
Debug.Print KeyAscii
Select Case KeyAscii
Case 43
KeyAscii = 0
RequestDate = CDate(RequestDate) + 1
Case 45
KeyAscii = 0
RequestDate = CDate(RequestDate - 1)
End Select
End Sub
mx
Premium Content
You need an Expert Office subscription to comment.Start Free Trial