لن تواجه مصاعب مع المستخدمين بعد اليوم في كيفية ادخال التاريخ وحفظه (قيد المستخدم بالأغلال) ودعه يتعامل مع الاسهم للاختيار
ملاحظه للاستخدام :
1- الاسهم يميناً وشمالاً هي للشهور
2- الاسهم للاعلى والاسفل هي للايام
3- page up +page down هي للسنوات
4- غير خاصية حقل التاريخ locked الى true
5- استمتع وانت ترى المستخدم مقيد
مع تمنياتي للجميع بدوام الصحه والعافيه
Private Sub vhdate_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 38
If vhdate = "" Then vhdate = Format(Now, "YYYY-m-d"): Exit Sub
vhdate = Format$(DateAdd("d", 1, vhdate), "YYYY-m-d")
Case 40
If vhdate = "" Then vhdate = Format(Now, "YYYY-m-d"): Exit Sub
vhdate = Format$(DateAdd("d", -1, vhdate), "YYYY-m-d")
Case 37
If vhdate = "" Then vhdate = Format(Now, "YYYY-m-d"): Exit Sub
vhdate = Format$(DateAdd("m", 1, vhdate), "YYYY-m-d")
Case 39
If vhdate = "" Then vhdate = Format(Now, "YYYY-m-d"): Exit Sub
vhdate = Format$(DateAdd("m", -1, vhdate), "YYYY-m-d")
Case 33
If vhdate = "" Then vhdate = Format(Now, "YYYY-m-d"): Exit Sub
vhdate = Format$(DateAdd("YYYY", 1, vhdate), "YYYY-m-d")
Case 34
If vhdate = "" Then vhdate = Format(Now, "YYYY-m-d"): Exit Sub
vhdate = Format$(DateAdd("YYYY", -1, vhdate), "YYYY-m-d")
End Select
End Sub[left
