Increment and Decrement Date Value using hot Keys + / -

Code ResourceAuthor: Shivanna

Difficulty Level:

Published: 25th May 2007 Read: 3852 times

Filed in: MS Access

Add Comment

Sponsored Links

There are situations where data entry operators need to change date value. This custom made function helps the users to quickly edit the date field using plus key (+) to increment the date value by one day and minus key (-) to decrement the date value by 1 day. The function provided below takes in date value as one of its argument along with keyCode and Shift, both of which are directly transfered from the OnKeyDown event procedure parameters. This function has to be called from the date field OnKeyDown event.

Sample Code

Public Function PDate(PObj As Object, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyAdd Then
If Shift = 2 Then
PObj = DateAdd("m", 1, PObj)
KeyCode = 0
Else
PObj = DateAdd("d", 1, PObj)
KeyCode = 0
End If
End If
If KeyCode = vbKeySubtract Then
If Shift = 2 Then
PObj = DateAdd("m", -1, PObj)
KeyCode = 0
Else
PObj = DateAdd("d", -1, PObj)
KeyCode = 0
End If
End If
End Function
Example for calling PDate function
Private Sub Invoice_Date_KeyDown(KeyCode As Integer, Shift As Integer)
PDate Me.Invoice_Date, KeyCode, Shift
End Sub
Whenever user hits + or - in the Invoice_Date field, the value of Invoice Date changes accordingly

Next: Show Print Preview Option before printing

Popular Coders

#	Coder Name	Hits
1.	Lokesh M	11291
2.	Shivanna	6124
3.	Rajani	4933

Active Coders

#	Coder Name	Codes
1.	Shivanna	2
2.	Lokesh M	2
3.	Rajani	1

MS Access Code Base

Increment and Decrement Date Value using hot Keys + / -

Latest Code Samples

Popular Code Samples

Related Code Samples

Post Your Comment:

Popular Coders

Active Coders

Refined Tags