• 0
Abualezz

اخفاء عناصر تحكم وتسميات في التقرير بشرط

سؤال

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

 

اخواني الاعزاء عندي التقرير report1 به التسميه Sinature

اذا كانت قيمة عنصر التحكم InsurCmpName تساوي 1 تظهر التسميه Sinature عدا ذلك لا اريد ظهورها

 

واذا كانت قيمة عنصر التحكم InsurCmpName تساوي 1 ان يظهر عنصرا التحكم txt1  و txt2 بالتقرير الفرعي عدا ذلك لا اريد ظهورهما

 

 

واذا كانت قيمة عنصر التحكم TitleServi بالتقرير الفرعي لاتساوي 1 ان يختفي عنصرا التحكم txt1  و txt2 بالتقرير الفرعي عدا ذلك اريد ظهورهما

 

 

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

 

وهذا المرفق

Reprt.rar

تم تعديل بواسطه كوماندير
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

4 إجابة على هذا السؤال .

  • 0

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

 

 

 
هذا الحدث يوضع في التقرير الرئيسي في تنسيق رأس الصفحة
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)If Me.InsurCmpName = 1 ThenMe.Sinature.Visible = True ElseMe.Sinature.Visible  = False End IfEnd Sub
 
هذا الحدث يوضع في التقرير الفرعي لرأس المجموعة الذي به الحقل  TitleServi
Private Sub رأس_المجموعة_Format(Cancel As Integer, FormatCount As Integer)If Me.TitleServi <> 1 ThenMe.txt1.Visible = TrueMe.txt2.Visible = True ElseMe.txt1.Visible = FalseMe.txt2.Visible = False End IfEnd Sub
 
 
بالتوفيق
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل

 

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

 

يوجد لديك خلل منطقي غير صحيح

 

لاحظ معي بارك الله بك في هذه الجزئية

 

اذا كانت قيمة عنصر التحكم InsurCmpName تساوي 1 ان يظهر عنصرا التحكم txt1  و txt2 بالتقرير الفرعي عدا ذلك لا اريد ظهورهما )  ....... الى هنا كلام سليم

 

اذا كانت قيمة عنصر التحكم TitleServi بالتقرير الفرعي لاتساوي 1 ان يختفي عنصرا التحكم txt1  و txt2 بالتقرير الفرعي عدا ذلك اريد ظهورهما )  ........ كلام غير سليم

 

لأنه يتعارض مع الشرط الأول لمربعي النص txt1  و txt2 بالتقرير الفرعي

 

فلنفرض ان InsurCmpName  يساوي 1   فهنا يجب ان تظهر مربعي النص وعدى ذلك تكون مختفيه

 

و ايضا   TitleServi  لا تساوي 1 فهنا يجب ان تختفي مربعي النص وعد ذلك تكون ظاهره

 

لاحظ ان التركيز كله من قبل الشرطين على مربعي النص  txt1  و  txt2

 

لذا حاول ان  تكون شروطك منطقيه حتى تحصل على نتائج صحيحه

 

 

بالنسبة للشرط الأول والثاني فهذه هي اما الشرط الثالث فلم اضعه لأنه غير صحيح وغير منطقي

 

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)If Me.InsurCmpName = 1 ThenMe.Sinature.Visible = TrueReports!report1![SubRpt].Report![txt1].Visible = TrueReports!report1![SubRpt].Report![txt2].Visible = True ElseMe.Sinature.Visible = FalseReports!report1![SubRpt].Report![txt1].Visible = FalseReports!report1![SubRpt].Report![txt2].Visible = False End IfEnd Sub 

 

بالتوفيق

تم تعديل بواسطه zahrah
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الف الف شكر اخيتي زهره وتحملينا بارك الله بك

 

الشرط الثاني غير مهم

 

اريد تحقيق الشرط الثالث اضافة الى الاول مع اهمال الثاني

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

حلت ،

 

وبوركت اختنا ام عهود

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .