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

هل يمكن اجراء حدث لإظهار نموذج عند إغلاق الإستعلام؟

مغلق
بدأه سهمُ في 9 فبراير 2003 · 4 رد · 748 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الأخوة الأفاضل

السلام عليكم ورحمة الله وبركاته

وكل عام وأنتم بخير(f)(f)(f)

لدى نموذج رئيسى منبثق وعند استخدام أى من أزرار الأوامر الموجودة به يقوم بإخفاءه هذا النموذج وإظهار النموذج أو التقرير المطلوب فتحه وعند إغلاق الجديد يقوم بإظهار النموذج الرئيسى مرة أخرى.

وأحد الإستعلامات فى البرنامج استعلام crosstab وحاولت إظهاره كتقرير ولكنى فشلت فقمت باستعماله كما هو .

والمشكلة أنه عند الضغط على زر الأمر الخاص بتشغيل هذا الإستعلام فى النموذج الرئيسى يتم إخفاء النموذج الرئيسى وتشغيل الإستعلام وعند إغلاق الإستعلام يظل مختفياً

وإذا أزلت خاصية الإخفاء من زر الأمر يظهر النموذج الرئيسى فوق الإستعلام.

والسؤال هو : هل توجد طريقة لعمل تقرير من استعلام crosstab ؟ وإذا كانت الإجابة بلا فهل يمكن اجراء حدث لإظهار نموذج عند إغلاق الإستعلام؟

#2

أخي الكريم

السلام عليكم

ربما المشكلة في عمل تقرير من استعلام جدولي هي عدم ثبات الأعمدة

إذا كان هذا ما تعنيه فإنه يمكنك تثبيتها عن طريق خصائص الاستعلام نفسه حيث يمكنك تحديد رؤوس العناوين بحيث تكون ثابتة

أما بالنسبة لوضع أمر يتم تنفيذه عند إغلاق استعلام فهذا حسب علمي غير ممكن

على كل لو أرفقت المثال لكانت الصورة أوضح

تحياتي

#3

الأخ الفاضل أبو هاجر

بالفعل الأعمدة متغيرة وذلك هو المطلوب لأن الإستعلام يظهر الأعمدة التى لها قيم فقط وهى متغيرة من برنامج إلى آخر حيث أن قاعدة البيانات هذه تستخدم مرة واحدة لإعطاء نتائج وتحاليل معينة ويتم استخدام نسخة جديدة خالية كلما لزم الأمر .

#4

الأخوة الأفاضل

السلام عليكم

وجدت الطريقة التى كنت أبحث عنها لإظهار نموذج بعد إغلاق استعلام وذلك بتعديل دالة isloaded (والمأخوذة من أحد الأخوة فى المنتدى وللأسف لا أذكر اسمه) واستدعائها عند الحدث الزمنى للنموذج

Function QIsLoaded(ByVal strqueryName As String) As Boolean

 ' Returns True if the specified Query is opened

    

    Const conObjStateClosed = 0

    If SysCmd(acSysCmdGetObjectState, acQuery, strqueryName) <> conObjStateClosed Then

     QIsLoaded = True

    End If

    

End Function
#5

نسيت المثال :o

queryclose.zip

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

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

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

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

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

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