[ تمت الإجابة ]كيف اخفي بعض العناصر عند تحقيق شرط معين

اخى

راجع مرفقك

من الواضح انك ارفقت ملف خطأ

او وضح ما تريد

تفضل المثال بعد التعديل .. ولكنني قمت باعادة اعداد التقرير لان جهازي لايدعم اللغة العربية في تنفيذ الاكواد .. ولكن بنفس الطريقة ستجد الكود .

الاستاذ mrnooo2000 يبدو انك لم تنتبه للتقرير الموجود في المثال .

تحياتي

aaaaaaa.rar

اخي مرنووو2000 :

المرفق لا اشكال فيه ، والتقرير موجود فيه .

اخي عماني :

لم تعمل ما اريده ، اخي انا عملت في تقرير جميع معين ولا اريد ان يعمل التقرير دون التجميع ..

في حالة كان الكلمة في مربع النص للتجميع هي جديد يتم اخفاء a1 و a2

والعكس صحيح ..

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

نعم فى الحقيقة انا لم ارى التقرير

اعتقد انك تتحدث عن نموذج

عموما ملحوقة

aaaaaaa.rar

للرفع ..

راجع المرفق فى المشاركة رقم 2

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

و الله يا اخى لا ادرى ما المشكلة او ماذا تريد

هذه صورة تقريرك الاولى

و الصورة الثانية للتقرير بعد التعديل

اخى الفاضل mrnooo2000

الاخ عبدالله يريد انا هقول بالعربى معلهش لو q = جديد يتم اخفاء a1 و a2

ولو q = قديم يتم اخفاء b1 و b2

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

نعم اخى بارك الله فيك

و هذا مافهمته أنا ايضا

و طبقت له ما طلب كما بينت فى الصور

و هذا هو الكود

Private Sub ÑÃÓ_ÇáãÌãæÚÉ0_Format(Cancel As Integer, FormatCount As Integer)
If Me.q.Value = "ÌÏíÏ" Then
Me.a1.Visible = False
Me.a2.Visible = False
Me.b1.Visible = True
Me.b2.Visible = True
Else
Me.a1.Visible = True
Me.a2.Visible = True
Me.b1.Visible = False
Me.b2.Visible = False
End If

End Sub

طالب علم مبتدئ :

جزاك الله خير اخي ونفع الله بك .

mrnooo2000 :

نعم اخي هذا المطلوب كما في الصورة لكن الخطأ كان مني والسبب هو :

اني كنت افتح التقرير بطريقة " فتح " ولكن اتضح لي ان الأمر لا يتم تنفيذة إلا في طريقة عرض " معاينة قبل الطباعة " وتم الأمر بفضل الله ..

فجزاك الله خير وبارك الله فيك على التجاوب السريع والمتابعة معي .

تمت الإجابة .