سلطان الليل قام بنشر يناير 19, 2004 قام بنشر يناير 19, 2004 السلام عليكم اخواني الاعزاء نتيجة الاستعلام تظهر في نموذج محدد ولكن عندما لاتوجد نتائج متطابقة فان النموذج يظهر فارغا.. اريد امر او نموذج يظهر عندما لاتكون هناك نتائج حيث كنت استخدم هذا الامر ولكني ضيعت الطريقة كلش ارجوا ان اجد الحل لديكم 1
فتى الوادي قام بنشر يناير 19, 2004 قام بنشر يناير 19, 2004 السلام عليكم أستخدم هذا الكود عند فتح النموذج ... Dim txtmot As Recordset Set txtmot = Me.RecordsetClone If txtmot.RecordCount = 0 Then MsgBox " عفواً لايوجد بيانات " Me.Undo Cancel = True Else End If
سلطان الليل قام بنشر يناير 20, 2004 الكاتب قام بنشر يناير 20, 2004 الف شكر اخي الكريم على تفاعلك السريع وتعاونك الجميل ولكن لم تنجح الطريقة واتمنى شرح للخطوات لانني لم اصل الى حل تقبل فائق تحياتي
SALEM_1212 قام بنشر يناير 21, 2004 قام بنشر يناير 21, 2004 استخدم هذا الكود من اعداد الاخ مصلح الحريصي If RecordsetClone.RecordCount = 0 Then MsgBox "عفوا لا توجد بيانات", vbInformation + vbMsgBoxRight, "" DoCmd.CancelEvent End If
سلطان الليل قام بنشر يناير 23, 2004 الكاتب قام بنشر يناير 23, 2004 شكرا جزيلا لك اخي الكريم.. ولو تشرحي لي فقط اين اضع هذا الكود وفقك الله لمايحب ويرضى
امير عاطف قام بنشر يناير 23, 2004 قام بنشر يناير 23, 2004 ضع زر امر على النموذج الذي مصدر سجله الاستعلام الذي تريد ثم قم بعمل رايت كليك على على زر الأمر ثم اختر Build Event (انشاء حدث) سوف يتم فتح نافذة الكود فقم بلصق الكود السابق به ثم قم بتشغيل النموذج
سلطان الليل قام بنشر يناير 24, 2004 الكاتب قام بنشر يناير 24, 2004 الف شكر لكم ايها الاخوة ا لامر نجح ولله الحمد ولكن تظهر رسالة اخرى تفيد تم الغاء الاجراء!! كيف الغي ظهور الرسالة الثانية ولكم اطيب الاماني بقضاء اجمل الاوقات
فهد الدوسري قام بنشر يناير 24, 2004 قام بنشر يناير 24, 2004 قبل كود فتح النموذج ضع هذا On Error Resume Next
سلطان الليل قام بنشر يناير 24, 2004 الكاتب قام بنشر يناير 24, 2004 اخي الغالي فهد الدوسري شكرا لك ولجميع من شارك هنا وجزاكم الله كل خير ولكن لم ينجح هذا الامر فقد جربته في اكثر من موقع قبل الكود وقبل الفتح وكل النتائج بدون فائدة حيث عندما لاتوجد نتائج تظهر الرسالة ( عفوا لا توجد نتائج) وعند ضغط موافق تظهر تلك الرسالة الاخرى open form تم الغاء الاجراء وهي تظهر دائما واريد ان اتخلص منها نهائيا ومن جميع النماذج تقبل فائق شكري وعظيم امتناني وحفظ الله ورعاك
biskra قام بنشر يناير 24, 2004 قام بنشر يناير 24, 2004 أخي سلطان قم بنسخ الكود الذي تريد التعديل عليه و ضعه في المنتدى حتى يتمكن الأعضاء من مساعدتك.
فهد الدوسري قام بنشر يناير 25, 2004 قام بنشر يناير 25, 2004 أخي سلطان الأمر الذي وضعته لك هو الحل الشافي وهو مجرب ويعمل بكل جداره. المشكلة لديك هي أين تضع الكود وكما قال الأخ biskra ضع الأمر الذي عن طريقه يتم فتح النموذج هذا لنخبرك أين تضعه بالضبط لأني لا أعرف ماذا يوجد في الكود لديك من أوامر غير أمر فتح النموذج . تحياتي
سلطان الليل قام بنشر يناير 25, 2004 الكاتب قام بنشر يناير 25, 2004 الاخوة الاعزاء الاخ فهد الدوسري الاخ biskra الاخ امير عاطف الف شكر جزيل لكم لقد نجحت الطريقة اخيرا وتم العمل المطلوب شكرا لكم ورعاكم الله وجزاكم عني كل خير تقبلوا اكليل من الورد المعطر باريج الشكر والامتنان واطابت اوقاتكم بكل خير,,,,
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.