المساعده حول global variables

هاه :blink:

اخي الفاضل:

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

لا اعتقد ان الطريقة التي تعمل بها في قاعدة البيانات صحيحة والسبب انه بطريقتك تلك لن تصبح قاعدة البيانات تلك طبيعية عندما تعتمد على متغيرات

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

الحل بارك الله بك

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

بالتوفيق

اولا جزاك الله خيرا اختنا الغاليه ام عهود

و بعد كلامك لا يوجد كلام

و انا مقتنع بكلام حضرتك مائه بالمائه

و لكن...

ربما لم اتمكن من العرض بطريقه جيده

المشكله ان عندى حوالى 6 جداول مرتبطه بجدول واحد one to many

و النماذج و التقارير تتطلب مراحل

يعنى نموذج بيسلم نموذج و كنت اريد الا يكون هناك نماذج مفتوحه الا ما يتم العمل عليه (اعمل على نماذج كلها عبارة عن حقول unbound و استخدم adodb لادخال النتائج و حفظها

طبعا هتقولى و ليه الغلبه دى كلها

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

فمنهم من له معرفه و منهم من لم يراه الا و هو مقفول

و الغلطه بتساوى كتير اوى (الفرق ما بين 0.1 و 0.15 ممكن يساوى حوالى 35 الف دولار) :(

و الموضوع بصراحه كبير شويه على و انا باعمله تطوع و تحدى لنفسى على حدود امكانياتى فى المعرفه

-------

فكرت بفكرة اخرى

ما رأيك بعمل نموذج ياخذ القيم التى اريدها و يبقى مخفى

و عند عمل استعلام او تقرير نأخذ القيمه التى نريدها منه

و عند الخروج من الـsession نغلقه

اعتقد انها ابسط من virtual table

و لكن تنقصنى كود معرفه اذا كان النموذج مفتوح اصلا فى الخلفيه ام لا

بمعنى كنت اريد ان اشيك عليه هل هو مفتوح فارسل له نتائج ام مغلق

مرة اخرى

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

للرفع

تفضل اخي الكريم

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

Private Sub Form_Open(Cancel As Integer)
If CurrentProject.AllForms("frmZahrah").IsLoaded = False Then
MsgBox " النموذج مغلق وسيتم فتحه الآن"
DoCmd.OpenForm "frmZahrah", , , , , acHidden
Else
MsgBox "النموذج مفتوح"
End If
End Sub

اما اذا رغبت في ان يتم فتح النموذج اذا كان مغلق بدون رسائل تنبيه يعني على الصامت يتم فتحه في وضع مخفي فسيكون الكود بهذه الطريقة

Private Sub Form_Open(Cancel As Integer)
If CurrentProject.AllForms("frmZahrah").IsLoaded = False Then
DoCmd.OpenForm "frmZahrah", , , , , acHidden
End If
End Sub

احد هذه الأكواد توضع في كل النماذج التي تريد فتحها عدى النموذج الرئيسي الذي تريد ان يكون فتحه مخفي

النموذج frmZahrah في الكود قم بتغييره الى اسم النموذج الرئيسي الخاص بك الذي تريد ان يتم فتحه مخفي

بالتوفيق

جزاكى الله كل خير ام عهود

و لمزيد من الفائده

وجدت ايضا حل مشابهه فى مدونة ابويوسف جزاه الله خيرا

Public Function IsLoaded(ByVal strFormName As String) As Boolean
'Returns false if form is not open or true if Open
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then
        If Forms(strFormName).CurrentView <> 0 Then
            IsLoaded = True
        End If
    End If
End Function

و نضع تلك الداله فى وحده نمطيه لنتمكن من استعمالها فى جميع النماذج او التقارير

ثم فى حدث عند الفتح للنموذج نستدعى تلك الداله

If Not IsLoaded("form1") Then "اى شئ نريد ان نفعله سواء رساله تحذير او فتح نموذج او اغلاق "