با تکه کد زیر استفاده از کلیدهای - و + برای کاهش یا افزایش تاریخ در یک فیلد Date/Time امکانپذیر میشه البته لازم به ذکره که کد فعلی قابلیت کاهش یا افزایش تاریخ رو بصورت روزانه داره که اگر لازم باشه تغییر پارامتر "d" به سایر پارامترها مثل y , m , w برای کاهش یا افزایش ماه سال و هفته امکانپذیره .
کدهای زیر رو در یک Module جدید کپی کنید :
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
کد زیر رو هم در رویداد Key Down فیلد مورد نظر که جنسش Date/Time هست کپی کنید :
بجای FieldName نام فیلد مورد نظر رو قرار بدین
PDate Me.FieldName, KeyCode, Shift
پاسخ با نقل قول
