عرض رسالة تفيد بان السجل غير موجود عند الاستعلام

[رامي]

عرض رسالة تفيد بان السجل غير موجود عند الاستعلام عن سجل معين في نموذج فرعي بواسطة الرقم مثلا

مثال حقل نص غير مرتبط (يدخل فيه الرقم المطلوب الاستعلام عنه) هذا الحقل موجود في نموذج غير منظم ومرتبط بنموذج فرعي بواسطة الرقم يأتي لنا بباقي بيانات الرقم المطلوب الاستعلام عنه كالاسم والعنوان وباقي البيانات مثلا

ولكن اذا لم يكن للرقم أي بيانات في النموذج الفرعي المرتبط بواسطة الرقم فانني اريد رسالة تفيد بان هذا الرقم لاتوجد له أي بيانات أي انه غير موجود !

[rudwan]

لنفرض أن الحقل المطلوب الاستعلام عنه هو MyText من الجدول MyTable

يوضع هذا الكود عند حدث بعد التحديث للنص غير المنضم MyControl

private sub MyControl_Afterupdate()
if isnull(dlookup("MyText","MyTable","MyText = " & me.MyControl) ) then
msgbox " This Value Is Not IN the Database "
end if 
end sub

[رامي]

الكود رائع ولكن عندما اردت وضعه على الحقل الغير منظم فانه لايفتح صفحة الكود لكي اضع فيها هذا الكود فلماذا ؟؟

[رامي]

للرفع ارجو المساعدة

[rudwan]

ضع المؤشر على مربع النص المطلوب , ثم اضغط بالفأره على اليمين , اختر خصائص

ثم اختر أحداث , ثم حدث بعد التغيير

انقر عليه تظهر لك خيارات , اختر الأخير منها و هو كود , و ضع المعادله فيه