لا يمكن كتابة التاريخ إلا بدخول شهر 2 مثلا

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

أخي الكريم لنفترض بأن اسم مربع النص لحقل التاريخ بالفورم لديك اسمه Text1 في حدث بعد التحديث للحقل ضع الكود التالي :

Dim ZH As String
ZH = Format(Date, "mm")
If Format(Text1, "mm") = ZH Then
Close #1
Else
MsgBox "التاريخ غير صحيح لايمكن أدخال تاريخ شهر خلاف شهر " & ZH & ""
Text1 = ""
End If

طبعاً التاريخ يعتمد على تاريخ الجهاز لديك فمثلاً تاريخ الجهاز شهر 12 إذا ادخلت تاريخ خلافه يعمل الكود ..

أما إذا كنت ترغب تحديد شهر بعينه فاستخدم الكود التالي :

If Format(Text1, "mm") = 02 Then
Close #1
Else
MsgBox "التاريخ غير صحيح لايمكن أدخال تاريخ شهر خلاف شهر 2 "
Text1 = ""
End If

هذا حسب ما فهمته من طلبك آمل أن أكون أفدتك ...

شكرا جزيلا لك أخي أبو رهف

وبالتوفيق والنجاح إن شاء الله تعالى.

تحياتي....