رسالة تنبيه بعد تاريخ محدد

هلا أخوي لو انا مكانك..

بأحفظ تاريخ النهاية من اول مرة ادخل فيها بيانات العميل يعني اسوي حقل اسمه تاريخ نهاية العضوية واخلي البرنامج بعد ما يحفظ التاريخ يعمل جملة استعلام لهذا الحقل فإذا كان تاريخ هذا الحقل يساوي تاريخ اليوم يظهر رسالة التنبية.

اما الكود لحفظ تاريخ النهاية فهو كالتالي:

dim sd as date
dim ed as date

sd=date
ed=dateadd("m",1,sd)
msgbox format(ed,"dd:mm:yyyy")

الكود واضح استخدمنا الداله dateadd

واي استفسار انا حاضر

أن بحاول اعمل زى أنت ما قلت بالضبط ولكن يخرج رساله time run errorفادها ان جملة الاستعلام غير صحيحه مع انى وصلتها بحقل الانتهاء

اكتب جملة الاستعلام عزيزي وهل انت متأكد من نوع الحقل انه تاريخ وماهي فورمات التاريخ اللي انت حافظها في الحقل وما هي فورمات التاريخ التي تستعملها في الاستعلام

هحاول أجرب اللى قولتى اعمله ويارب ينفع وهرد عليك