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

[Abualezz 6]

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

 

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

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

 

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

 

 

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

 

 

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

 

وهذا المرفق

Reprt.rar

تم تعديل 27 May 2014 بواسطه كوماندير

[zahrah 4,313]

اخي الفاضل

 

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

 

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

 

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

 

( اذا كانت قيمة عنصر التحكم 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 

 

بالتوفيق

تم تعديل 27 May 2014 بواسطه zahrah

[Abualezz 6]

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

 

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

 

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

[zahrah 4,313]

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

 

 

 

هذا الحدث يوضع في التقرير الرئيسي في تنسيق رأس الصفحة

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

 

 

بالتوفيق

[Abualezz 6]

حلت ،

 

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