حصر إدخال البيانات بين تاريخين في مربع تكست

تفضل المثال بعد التعديل

يمكنك استخدام الخصائص وستجد خاصية اسمها التحقق من الصحه . اكتب فيها كود التحقق

تحياتي

db11.rar

أخي الكريم بارك الله فيك ...

لكن كيف أعمل ذلك بالكود ؟!؟!

حيث يكون فيه تحكم أكثر بحيث :

رسالة تنبيه فقط إذا كان تاريخ اليوم أكبر أو اصغر من تاريخ اليوم الحالي ..

رسالة تنبيه إذا كان تاريخ الشهر أكبر أو أصغر من تاريخ الشهر الحالي .

رسالة تمنع الحفظ إذا كان تاريخ السنة المدخل أكبر أو أصغر من تاريخ السنة المحددة .

بعد اذن اخى عمانى

تقضل اخى

Private Sub txtdate_AfterUpdate()

If Me.txtdate > Me.txt2 Then

MsgBox ">"

Me.txtdate = ""

End If

If Me.txtdate < Me.txt1 Then

MsgBox "<"

Me.txtdate = ""

End If

End Sub

رسالة تنبيه فقط إذا كان تاريخ اليوم أكبر أو اصغر من تاريخ اليوم الحالي ..

لا افهم ماذا تقصد بالضبط

أقصد بارك الله فيك أن البرنامج عندي محدد له سنة يعمل عليها نحددها له مثلا سنة 1431

تبدأ من تاريخ 1/ 1/ 1431 وتنتهي في 30 / 12 / 1431

اريد من البرنامج أن يتقيد بالتاريخ بين هذين التاريخين

لا يخرج من السنة المحددة ....

ويعطي تنبيه إذا كان تاريخ المدخل أكبر من تاريخ اليوم الحالي للجهاز

وكذلك تنبيه إذا كان تاريخ الشهر المدخل أكبر من تاريخ الشهر الحالي للجهاز .

جرب هذا الكود

Private Sub txtdate_AfterUpdate()

If Format(Me.txtdate, "yyyy") <> Format(Date, "yyyy") Then

If Format(Me.txtdate, "yyyy") > Format(Date, "yyyy") Then

MsgBox "higher_year"

txtdate = ""

ElseIf Format(Me.txtdate, "yyyy") < Format(Date, "yyyy") Then

MsgBox "lower_year"

txtdate = ""

End If

Else

If Format(Me.txtdate, "mm") <> Format(Date, "mm") Then

MsgBox "month"

Else

If Format(Me.txtdate, "dd") <> Format(Date, "dd") Then

MsgBox "day"

End If

End If

End If

End Sub

أحسنت أخي وبارك الله فيك وفي علمك ...

هذا ما أحتاجه بعد التعديلات البسيطة