الرجاء الافادة في كتابة كود في النموذج يعطي رسالة عند عدم وجود اية قيم ، مع العلم ان النموذج مبني على استعلام ،
كود يوضع في النماذج عند عدم ارجاع قيم
مغلق
تفضل أخي الكريم / abuyazan3000
الطريقة هي
عند الفتح في النموذج تضع الحدث التالي :
اقتباسOn Error Resume NextIf Me.RecordsetClone.RecordCount = 0 Then
MsgBox "لا يـــــــــــوجد بيـــــــانــــــــــات"
Cancel = -1
End If
وأيضاً أرفقت لك مثال لكي تتضح الصورة أكثر
مع خالص التحيات ،،،
عبدالمانع
تم تعديل هذه المشاركة بواسطة عبدالمانع في 30 مارس 2005 في 11:42
إنما الأمم الأخلاق ما بقيت ××× فإن هم ذهبت أخلاقهم ذهبوا ...
بو ركت اخي عبد المانع
افادك الله بخير عميم
وجنة نعيم
وصحبة الصديقين
على الرحب والسعة ،،،
أهلا وسهلا
مع خالص التحيات ،،،
عبدالمانع
إنما الأمم الأخلاق ما بقيت ××× فإن هم ذهبت أخلاقهم ذهبوا ...
طيب أخوي عبدالمانع ممكن كود إذا كان مصدر البيانات هو استعلام
لأني جربت الكود وهو يعمل للنموذج الذي يكون مصدره جدول .
ارجو الأفادة ولك جزيل الشكر مقدماً .
أخوك : أبو رهف
(`'•.¸(` '•. ¸ * ¸.•'´)¸.•'´)
«´¨`.¸ أبو رهـــــــف ¸.´¨`»
(¸. •'´(¸.•'´ * `'•.¸)`'•.¸ )
¸.•’’ ’’
( `•.¸
`•.¸
هذا الموضوع مغلق.