مساعدة في التحكم في تاريخ البرنامج من خلال الجدول

[amir_adam83]

السلام عليكم ورحمة الله وبركاته

برجاء المساعدة في اجبار المستخدم ان يتقيد بتاريخ العام الحالي  دون ادخال عام سابق او عام قادم

ومرفق البرنامج  وبداخله الايضاحات المطلوب مساعدتنا به 

وجزاكم الله خير الجزاء

 

DatabaseA.rar

[ابوخليل]

عليكم السلام

سنعتمد السنة المالية حتى نحصل على الأقوى والأسرع

الصق هذه الوظيفتين في وحدة نمطية عامة

Public Function ctrlThisDate() As String
ctrlThisDate = DLookup("FiscalYear", "Odb_TableControl", "FiscalYear='" & Year(Date) & "'")
End Function
Public Function chkThisDate() As Boolean
chkThisDate = DLookup("Adhere_Current_Year", "Odb_TableControl", "FiscalYear='" & Year(Date) & "'")
End Function

ثم الصق هذا الكود في حدث قبل التحديث لأي حقل تاريخ وغير ما يلزم  والتغيير فقط بتعديل اسم الحقل

Private Sub TextTO_BeforeUpdate(Cancel As Integer)
If IsNull(TextTO) Then Exit Sub
If chkThisDate() Then
If Year([TextTO]) <> ctrlThisDate() Then
MsgBox " التاريخ خارج نطاق السنة الحالية"
DoCmd.CancelEvent
End If
End If
End Sub

لاحظ  انه يجب عليك التأشير على خانة التقييد ان اردته يعمل ،، والعكس صحيح

DatabaseA2.rar

[ازهر عبد العزيز]

هدة محاولة مني ايضا 

DatabaseA.accdb

[ابوخليل]

27 دقائق مضت, ازهر عبد العزيز said:

هدة محاولة مني ايضا 

>=#01/01/2021# And <#30/12/2021#

جميلة مداخلتك اخوي ازهر واستخدام خاصية التحقق من الصحة

ولكن يوجد متطلبات اخرى مصاحبة لهذا الشرط

1- في السنة القادمة سيضطر المبرمج الى التعديل على هذا الشرط

2- وهو الأهم فيما لو اراد المستخدم تجاوز الشرط والتعامل مع اي تاريخ

[ازهر عبد العزيز]

7 دقائق مضت, ابوخليل said:

>=#01/01/2021# And <#30/12/2021#

جميلة مداخلتك اخوي ازهر واستخدام خاصية التحقق من الصحة

ولكن يوجد متطلبات اخرى مصاحبة لهذا الشرط

1- في السنة القادمة سيضطر المبرمج الى التعديل على هذا الشرط

2- وهو الأهم فيما لو اراد المستخدم تجاوز الشرط والتعامل مع اي تاريخ

%100 كلامك صحيح اخي واستادي ابو خليل لكني لم اعرف كيف اشير الى السنة الحالية في قاعدة التحقق من الصحة فيا حبدا لو تكرمت علينا بالطريقة لو وجدت 

[amir_adam83]

ابوخليل

شكرا اخي واستاذي الكريم بارك الله فيك

هذا هو المطلوب

ازهر عبد العزيز

شكر اخي الكريم بارك الله فيك وجزاك الله خير الجزاء على المساعده