اذهب الي المحتوي
أوفيسنا

اريد رسالة عندما لاتوجد نتائج


الردود الموصى بها

السلام عليكم

اخواني الاعزاء

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

اريد امر او نموذج يظهر عندما لاتكون هناك نتائج

حيث كنت استخدم هذا الامر ولكني ضيعت الطريقة كلش

ارجوا ان اجد الحل لديكم

  • Thanks 1
رابط هذا التعليق
شارك

السلام عليكم

أستخدم هذا الكود عند فتح النموذج ...

Dim txtmot As Recordset
    Set txtmot = Me.RecordsetClone
    If txtmot.RecordCount = 0 Then
MsgBox " عفواً لايوجد بيانات  "
Me.Undo
Cancel = True
Else
End If

رابط هذا التعليق
شارك

ضع زر امر على النموذج الذي مصدر سجله الاستعلام الذي تريد ثم قم بعمل رايت كليك على على زر الأمر ثم اختر

Build Event (انشاء حدث)

سوف يتم فتح نافذة الكود فقم بلصق الكود السابق به ثم قم بتشغيل النموذج

رابط هذا التعليق
شارك

الف شكر لكم ايها الاخوة ا لامر نجح ولله الحمد

ولكن

تظهر رسالة اخرى تفيد تم الغاء الاجراء!!

كيف الغي ظهور الرسالة الثانية

ولكم اطيب الاماني بقضاء اجمل الاوقات

رابط هذا التعليق
شارك

اخي الغالي فهد الدوسري

شكرا لك ولجميع من شارك هنا

وجزاكم الله كل خير

ولكن لم ينجح هذا الامر

فقد جربته في اكثر من موقع

قبل الكود

وقبل الفتح

وكل النتائج بدون فائدة

حيث عندما لاتوجد نتائج تظهر الرسالة ( عفوا لا توجد نتائج) وعند ضغط موافق تظهر تلك الرسالة الاخرى open form تم الغاء الاجراء

وهي تظهر دائما واريد ان اتخلص منها نهائيا ومن جميع النماذج

تقبل فائق شكري وعظيم امتناني وحفظ الله ورعاك

رابط هذا التعليق
شارك

أخي سلطان الأمر الذي وضعته لك هو الحل الشافي وهو مجرب ويعمل بكل جداره.

المشكلة لديك هي أين تضع الكود وكما قال الأخ biskra ضع الأمر الذي عن طريقه يتم فتح النموذج هذا لنخبرك أين تضعه بالضبط لأني لا أعرف ماذا يوجد في الكود لديك من أوامر غير أمر فتح النموذج .

تحياتي

رابط هذا التعليق
شارك

الاخوة الاعزاء

الاخ فهد الدوسري

الاخ biskra

الاخ امير عاطف

الف شكر جزيل لكم

لقد نجحت الطريقة اخيرا

وتم العمل المطلوب

شكرا لكم ورعاكم الله

وجزاكم عني كل خير

تقبلوا اكليل من الورد المعطر باريج الشكر والامتنان

واطابت اوقاتكم بكل خير,,,,

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information