اريد كود ينبهني عنددخول تاريخ مطابق للتاريخ الحالي

اخي العزيز

اذا افترضنا ان حقل التاريخ الذي تدخله اسمه "mydate " قم بفتح خصائص هذا العنصر في نموذج الادخال وعند خاصية "بعد التحديث" اكتب الامر التالي:

IF (Year(mydate)) = (Year(Date()) THEN

MsgBox"التاريخ الذي أدخلته مطابق للسنة الحالية"

END IF

ويمكنك تطبيقه والرد بالنتيجة...مع تحياتي,,,

عندما اضعة يظهر لي الرسالة التالية:

Compile error:

Syntax error

ويكون السطر الاول من الكود باللون الاحمر

وهذا هو الكود

IF (Year(I_end_date)) = (Year(Date()) THEN

MsgBox"The Date is Wrong"

END IF

ولقد فعلت كما قلت، في "بعد التحديث"

يمكن من بسبب عدم وجود مسافة بين القوسين الخاصة بالتاريخ الثاني date( )

لازم يصير مسافة حرف..

حاول!!

لا فائدة

اخي العزيز

اعتقد ان السبب هو اما عدم وضع علامة لمربع النص ليكون هكذا [mydate] او هكذا "mydate" لذا ارجو ان تقوم بهذه التعديلات ورؤية النتيجة "ارجو المعذرة فدخولي عالم الفيجوال كان قريبا فقد كانت كل اوامري انفذها بالماكرو لذا فانا احاول جاهدا التمكن من هذه اللغة الممتعة"...مع تحياتي,,,