الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

منع فتح نموذج مبني علي إستعلام عندما يكون خالي

مغلق
بدأه OSTOURA في 6 أغسطس 2007 · 6 رد · 1,128 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

يوجد في البرنامج نموذج للتذكير بالمواعيد

واود ان لا يفتح عندما يكون خالي من البيانات

هل هناك طريقة لفعل هذا الامر؟

شكرا لكم

أخوكم

#2

السلام عليكم

نعم أخي الكريم

هناك عشرات الطرق لفعل ذلك .. واليك واحدة منها

جرب فتح النموذج .. سوف تأتيك رسالة تخبرك أن الاستعلام فارغ

أضف سجلا في الجدول .. وجرب فتح النموذج ستجده يفتح إن شاء الله

المثال في المرفقات

والسلام

EKSEER

EK_Data.rar

1
#3

شكرا اخي العزيز

لكن هذه الطريقة لا تعمل مع النموذج المبني على استعلام !!

هل هناك طريقة اخري ؟؟

اجدد شكري

#4
اقتباس
شكرا اخي العزيز

لكن هذه الطريقة لا تعمل مع النموذج المبني على استعلام !!

هل هناك طريقة اخري ؟؟

اجدد شكري

كيف لاتنفع ؟ والمثال المرفق به ( النموذج مبني على استعلام )

عندك المثال الفورم 2 مبني على الاستعلام M-QR ...... !!!!!!!

#5

بارك الله فيك اخي اكسير

قد يكون الأخ السائل لم يوضح سؤاله بطريقة صحيحه

فهو يرغب في فتح نموذج مبني على استعلام وبه معايير بحيث اذا تطابق المعيار مع المطلوب فإنه يتم فتح النموذج وبه البيانات اما اذا لم تتطابق المعايير مع المطلوب فلا يتم فتحه

اخي الفاضل

قم بإنشاء استعلام وضع به المعايير المطلوبه

في هذا المثال المقدم من الأخ أكسير يوجد به عدة حقول ومن ضمنها حقل City المدينة وطبعا السجلات يوجد بها عدد لا بأس به من البيانات من المدن

نريد الآن ان نبحث او نستعلم عن مدينه معينه من خلال نموذج آخر غير نموذج الإستعلام لهذا نقوم بعمل معيار في الإستعلام مبني على حقل في النموذج الذي سيتم من خلاله فتح نموذج الإستعلام اذا سنضع هذا المعيار في الإستعلام في حقل المدينة City

[forms]![form]![strCity]

حيث form هو اسم النموذج الذي من خلاله سيتم فتح نموذج الإستعلام والحقل strCity هو حقل غير منضم وليس له مصدر بيانات فقط لغرض البحث

ننتقل الآن الى النموذج frmM-QR المبني على الإستعلام ونضع هذا الكود في حدث عند الفتح

Private Sub Form_Open(Cancel As Integer)
If DCount("[CITY]", "M-QR") = 0 Then
MsgBox "الاستعلام فارغ ولايمكن فتح النموذج"
DoCmd.Close
Else
DoCmd.OpenForm "frmM-QR"
End If
End Sub

في هذا الكود يتم عمل شرط على عدد السجلات في الإستعلام M-QR لحقل المدينة CITY

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

وعدى ذلك اي اذا كان عدد السجلات اكبر من الصفر ( 0 ) فإنه يتم فتح النموذج بناء على البيانات الموجوده به والتي تم الإستعلام عنها

وهذا المثال بعد التعديل

EK_Data.rar

1
#6

اشكركم اخواني وجزاكم الله خير الجزاء

وانا اسف لعدم التوضيح

احترامي وتقديري

#7

بسم الله الرحمن الرحيم

بارك الله فيكم اخواني

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…