ابوخليل قام بنشر يناير 22, 2020 مشاركة قام بنشر يناير 22, 2020 السلام عليكم اساتذتي واحبتي الأعزاء في المرفق تقرير يعرض السجلات كمجموعات ، حيث تجدون ان كل عدد من السجلات تشترك في حقل الـــ id بمعنى ان الرقم في حقل id مكرر في اكثر من سجل ستلاحظون وجود سجل واحد فقط ومجموعة مكونة من سجلين ومجموعة أكثر المطلوب : تطبيق لونين فقط على مجموعة السجلات مثلا الأبيض والرمادي بحيث تتمييز كل مجموعة بلون والمجموعة التي بعدها باللون الآخر وهكذا ... الفكرة : هي تمييز كل مجموعة عن ما بعدها من اجل تيسير الملاحظة والمتابعة ، وان صعب التطبيق لا بأس من تطبيق الفكرة بغير الألوان وبطرق أخرى مثلا بخط فاصل ونحو ذلك .. تقبلوا شكري وتقديري db1.mdb 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد أبوعبدالله قام بنشر يناير 23, 2020 أفضل إجابة مشاركة قام بنشر يناير 23, 2020 وعليكم السلام ورحمة الله وبركاته تفضل يا غالي Option Compare Database Option Explicit Dim X1 As Boolean Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer) If X1 Then Detail.BackColor = 16777199 Else Detail.BackColor = 14877777 End If X1 = Not (X1) End Sub UP-db1.mdb تحياتي 3 1 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 23, 2020 الكاتب مشاركة قام بنشر يناير 23, 2020 ياسلام عليك يابو عبدالله تصدق الكود هذا موجود عندي استخدمه في تفصبل التقرير للتمييز بين الأسطر ولم يخطر ببالي لمستك الرقيقة الساحرة بانشاء مقطع الــ id الف شكر وسلمت أناملك 3 رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يناير 23, 2020 مشاركة قام بنشر يناير 23, 2020 يعلم الله اني اتشرف ان اكون تلميذك استاذنا الفاضل @ابوخليل دمتم بكل خير تحياتي 1 1 رابط هذا التعليق شارك More sharing options...
Abu Farid قام بنشر يناير 23, 2020 مشاركة قام بنشر يناير 23, 2020 السلام عليكم و رحمة الله و بركاته ماشاء الله عليك يا ابا عبدالله استفدنا كثير من مشاركتك الذهبية و فعلا كود رائع‘ وتحية لاستاذ الغالي ابا خليل الذي هو سبب الغنيمة هذا. و لتغير لون خلفية حقول بدلا من خلفية تفصيل قمت باضافة بسيطة على الكود كما في مرفق. UP-db1.mdb 3 1 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 23, 2020 الكاتب مشاركة قام بنشر يناير 23, 2020 ابو فريد الف شكر لك اضافة جميلة واكثر دقة علما انه يمكننا عبر ضبط هوامش التقرير التحكم بخلفية التفصيل بحيث تكون على مقاس عرض الحقول 2 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 23, 2020 الكاتب مشاركة قام بنشر يناير 23, 2020 تكرما وتفضلا ابا فريد هلا شرحت لنا هذين السطرين If ctl.ControlType = 109 Then ctl.BackStyle = 1 الموجودة ضمن الكود ادناه ماذا تعني هذه الارقام 109 و 1 وهل هناك ارقام اخرى لها خصائص مختلفة Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer) If X1 Then Dim ctl As Control For Each ctl In Me.Detail.Controls If ctl.ControlType = 109 Then ctl.BackStyle = 1 ctl.BackColor = 14933454 End If Next Else For Each ctl In Me.Detail.Controls If ctl.ControlType = 109 Then ctl.BackStyle = 1 ctl.BackColor = 16777215 End If Next End If X1 = Not X1 End Sub 1 1 رابط هذا التعليق شارك More sharing options...
Abu Farid قام بنشر يناير 23, 2020 مشاركة قام بنشر يناير 23, 2020 1 ساعه مضت, ابوخليل said: كرما وتفضلا ابا فريد هلا شرحت لنا هذين السطرين ابشر استاذنا رقم 109 هو رمز نوع عنصر مربع نص (حقل) يمكن تغيره الى If TypeOf ctl Is TextBox Then و هذا لاستثاء حقول مراد تغير لون خلفيته من باقي عناصر محتمل وجودهم في تفصيل كـ تسمية، إطار... و Backstyle هو نمط خلفية عنصر و رقم 1 هو خيار الثاني في خاصية نمط خلفية عنصر(عادي) و 0 هو خيار الاول (شفاف) وفي حال اختيار خيار شفاف مسبقا، لا ينطبق عليه الكود يجب جعله اول عادي ثم تغير لون خلفيتة في الكود 2 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 23, 2020 مشاركة قام بنشر يناير 23, 2020 ماشاء الله لاقوه الا بالله اللهم صل وسلم وبارك على سيدنا محمد وآله ومن والاه معلم الامه بفضلك وكرمك ورحمتك يا ارحم الراحمين سؤال من استاذى الجليل @ابوخليل واجابات روعه من اخوتى واساتذتى @محمد ابوعبد الله و @Abu Farid وتعلمنا فيه دروس اكثر زادكم الله من فضله وعلمه اخوتى واساتذتى الكرام جزاكم الله خيرا تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 23, 2020 الكاتب مشاركة قام بنشر يناير 23, 2020 3 ساعات مضت, Abu Farid said: ابشر استاذنا رقم 109 هو رمز نوع عنصر مربع نص (حقل) يمكن تغيره الى If TypeOf ctl Is TextBox Then و هذا لاستثاء حقول مراد تغير لون خلفيته من باقي عناصر محتمل وجودهم في تفصيل كـ تسمية، إطار... و Backstyle هو نمط خلفية عنصر و رقم 1 هو خيار الثاني في خاصية نمط خلفية عنصر(عادي) و 0 هو خيار الاول (شفاف) وفي حال اختيار خيار شفاف مسبقا، لا ينطبق عليه الكود يجب جعله اول عادي ثم تغير لون خلفيتة في الكود شرح مختصر وافي وللفائدة بحثت عن بقية رموز العناصر فخرجت بهذه النتيجة : 126 - acAttachment 108 - acBoundObjectFrame 106 - acCheckBox 111 - acComboBox 104 - acCommandButton 119 - acCustomControl 103 - acImage 100 - acLabel 102 - acLine 110 - acListBox 114 - acObjectFrame 105 - acOptionButton 107 - acOptionGroup 124 - acPage 118 - acPageBreak 101 - acRectangle 112 - acSubform 123 - acTabCtl 109 - acTextBox 122 - acToggleButton 3 رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر يناير 24, 2020 مشاركة قام بنشر يناير 24, 2020 استاذنا الفاضل / @Abu Farid هل هذا التلوين لا يعمل الا على اوفيس 2003 انا عندى اوفيس 2010 وحاولت اطبق التلوين فى بعض التقارير لا تتم العملية وايضا اين اضع هذا الكود فى التقرير من فضلك ياريت التوضيح رابط هذا التعليق شارك More sharing options...
Abu Farid قام بنشر يناير 24, 2020 مشاركة قام بنشر يناير 24, 2020 52 دقائق مضت, حلبي said: هل هذا التلوين لا يعمل الا على اوفيس 2003 لا يا أخي هذا يعمل في جميع اصدارات و لتطييقه على برنامجك عليك اشاء هيدر على حقل سجلات متكررة كما هو ID في برنامج الحالي، انظر صورة توضحية 4 رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر يناير 24, 2020 مشاركة قام بنشر يناير 24, 2020 جزاك الله خير على هذا الشرح الوافى سأقوم بالتطبيق رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.