كود اظهار رسالة في حالة لاتوجد بيانات في النموذج الفرعي

[حسين العربى]

السلام عليكم ورحمة الله وبركاته  اخواني اعضاء ومشرفي  النتدي الكرام

عندي نموذج رئيسي اسمه FORM1  به نموذج فرعي اسمه FARY2   اريد كود في زر امر يوجد في النموذج الرئيسي عند الضغط علي الزر اذا لم توجد بيانات مذخلة في النموذج الفرعي تخرج لي تنبيه ( لاتوجد بيانات مدخلة في النموذج الفرع ) وتقوم بالغاء الاوامر                                                             

[ابوخليل]

اجعل مصدر بيانات النموذج الفرعي استعلام خارجي

ثم استخدم  الدالة Dlookup لفحص الاستعلام

[حسين العربى]

اخي الفاضل ابو خليل ممكن مثال علي ذالك لو تكرمت

[حسين العربى]

Up

[رمهان]

حياك الله اخ حسين

مع انك لم ترفق مرفق ولا حتى شرحت ايش الاوامر التي تريد الغاؤها

ومع وجود ماتريد في المنتدى لوبحثت قليلا وهذه احد الحلول وعلى افتراض الاسماء باول مشاركة

if me.fary2.form.recodsetclone.recordcount=0 then msgbox("no data")

بالتوفيق

[كرار صبري _ أبو جنى]

السلام عليكم اخي حسين ...

هذه طريقتي ... 

استاذ رمهان حياك الله ... بتطبيق كود حضرتك 

3 ساعات مضت, رمهان said:

if me.fary2.form.recodsetclone.recordcount=0 then msgbox("no data")

تظهر لي الرسالة المرفقة ... 

New Microsoft Access .rar

New Bitmap Image.bmp

[رمهان]

كلامك صحيح اخ كرار

كان الخطأ في لم اكتب حرف r في recordsetclone والحقيقة كتبت  الامر مباشرة في المنتدى 

وها انت اتيت بفكرة اخرى ومرفق جزيت خيرا . ويمكن كتابة ماتفضلت به كالتالي

If DCount("[gh]", "جدول2", "[idd]=" & [id]) = 0 Then MsgBox ("no data")

وهذا احد الروابط بالمنتدى

بالتوفيق

تم تعديل فبراير 26, 2016 بواسطه رمهان

[حسين العربى]

الف شكر لكم اخواني واساتذتي الافاضل علي هذه الامثله والحلول جزاكم الله خير الجزاء