السلام عليكم ورحمة الله وبركاته
اخواني الاعزاء عندي التقرير report1 به التسميه Sinature
اذا كانت قيمة عنصر التحكم InsurCmpName تساوي 1 تظهر التسميه Sinature عدا ذلك لا اريد ظهورها
واذا كانت قيمة عنصر التحكم InsurCmpName تساوي 1 ان يظهر عنصرا التحكم txt1 و txt2 بالتقرير الفرعي عدا ذلك لا اريد ظهورهما
واذا كانت قيمة عنصر التحكم TitleServi بالتقرير الفرعي لاتساوي 1 ان يختفي عنصرا التحكم txt1 و txt2 بالتقرير الفرعي عدا ذلك اريد ظهورهما
ارجو ان يكون مرادي واضحا
وهذا المرفق
تم تعديل هذه المشاركة بواسطة كوماندير في 27 مايو 2014 في 21:10
اخي الفاضل
وعليكم السلام ورحمة الله وبركاته
يوجد لديك خلل منطقي غير صحيح
لاحظ معي بارك الله بك في هذه الجزئية
( اذا كانت قيمة عنصر التحكم 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 Then Me.Sinature.Visible = True Reports!report1![SubRpt].Report![txt1].Visible = True Reports!report1![SubRpt].Report![txt2].Visible = True Else Me.Sinature.Visible = False Reports!report1![SubRpt].Report![txt1].Visible = False Reports!report1![SubRpt].Report![txt2].Visible = False End If End Sub
بالتوفيق
تم تعديل هذه المشاركة بواسطة zahrah في 27 مايو 2014 في 22:02
الف الف شكر اخيتي زهره وتحملينا بارك الله بك
الشرط الثاني غير مهم
اريد تحقيق الشرط الثالث اضافة الى الاول مع اهمال الثاني
تفضل اخي الكريم
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) If Me.InsurCmpName = 1 Then Me.Sinature.Visible = True Else Me.Sinature.Visible = False End If End Sub
Private Sub رأس_المجموعة_Format(Cancel As Integer, FormatCount As Integer) If Me.TitleServi <> 1 Then Me.txt1.Visible = True Me.txt2.Visible = True Else Me.txt1.Visible = False Me.txt2.Visible = False End If End Sub
حلت ،
وبوركت اختنا ام عهود
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
