اغلاق التقارير المفتوحة

[زينب الذهبي]

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

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

[Shivan Rekany]

11 دقائق مضت, زينب الذهبي said:

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

حسب فهمي يجب تستخدم دالة IF

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

[زينب الذهبي]

شكرا اخي الكريم على الرد المرفق التالي هو قاعدة بيانات للحوادث الحاصلة في منظومة الكهرباء .... والنموذج الخاص بالتقارير هو search1 .....  شاكرة تعاونكم

Hawadith3.rar

[رمهان]

بعد اذن الاستاذ شيفان

انتي عامله المقارنة على اساس قيمة الاوبشن نفسها

والاصح على مربع الخيار والذي قيمته حسب الاوبشنز

Private Sub CmdSearch_Click()

Do While Reports.count > 0
   DoCmd.Close acReport, Reports(0).Name
Loop
 
 If إطار8 = 1 Then
           
      DoCmd.OpenReport "ShabakaReport", acViewPreview
      
 End If
 
 If إطار8 = 2 Then
   m1.Visible = True
   m2.Visible = True
   DoCmd.OpenReport "StationsReport", acViewPreview
  End If
  
  If إطار8 = 3 Then
   m1.Enabled = True
   m2.Enabled = True
   m3.Enabled = True
    DoCmd.OpenReport "LinesReport", acViewPreview
  End If
  
End Sub

وبعدين راح نعمل لك اختصار وتحسين

بالتوفيق

[Shivan Rekany]

10 دقائق مضت, رمهان said:

والاصح على مربع الخيار والذي قيمته حسب الاوبشنز

اذنك معك استاذي الحبيب

وهذا هو تعديل ما قلت استاذنا على القاعدة

 

Hawadith3.rar

[رمهان]

التحسينات

1. زر فتح التقارير - البحث-

Private Sub CmdSearch_Click()
DoCmd.OpenReport Choose(إطار8, "ShabakaReport", "StationsReport", "LinesReport"), acViewPreview
End Sub

2. حذف جميع الاكواد على الاوبشنز والتي عند الحدث عند التركيز واستبدالها بحدث بعد التحديث لمربع الخيار اطار8 وليصبح الحدث :

Private Sub إطار8_AfterUpdate()
m1.Enabled = إطار8 = 1
m2.Enabled = إطار8 = 2
m3.Enabled = إطار8 = 3
End Sub

بالتوفيق

[زينب الذهبي]

اشكرك اخي رمهان من كل قلبي وشكري للاخ شيفان ... اجريت التعديل على frame  والبرنامج اشتغل بصورة صحيحة .... امنياتي لكم بالتوفيق