محسن سرحان قام بنشر فبراير 10, 2005 قام بنشر فبراير 10, 2005 السلام عليكم اريد طلبين 1- تقرير به برواز "اطار"خارجي وكيفية تصميمة 2- عندي تقرير به حقل رقمي الارقام تسير بتسلسل وفي بعض الاوقات لا تكون بتسلسل مثل 1 2 3 4 10 11 15 اريد كود في التقرير يجعل الارقام الغير مسلسلة مظللة وشكرا
أبو هادي قام بنشر فبراير 10, 2005 قام بنشر فبراير 10, 2005 السلام عليكم مرفق مثال لإجابة الطلب الثاني . أما الأول فأنا ليس لي في الألوان والزخارف والإطارات وما شابه .. أرجو المعذرة . تحياتي . SeqCheck.rar
سهل احمد العريشي قام بنشر فبراير 10, 2005 قام بنشر فبراير 10, 2005 بسم الله الرحمن الرحيم مرفق مثال يوضح كيفية أستعمال الأطارات في التقارير قم بفك الضغط عن المثال المرفق وقم بوضع المجلد قاموس التقارير في السي \:C وأذا أعجبك المثال سوف أرفق لك باقي الأطارات وهي حوالي 15 أطار وتقبل تحياتي أخيك سهل أحمد ( ابو نعيم ) Rep.rar
أبو هادي قام بنشر فبراير 11, 2005 قام بنشر فبراير 11, 2005 (معدل) السلام عليكم هذ الكود لأي عدد من الأعمدة ، أضف على كيفك وما يهمك :pp: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim Ctl As Control With Me For Each Ctl In .Controls If Ctl.Section = 0 Then Ctl.BackColor = IIf(.SN - Val(.SN.Tag) <> 1, vbGreen, vbWhite) End If Next .SN.Tag = .SN End With End Sub تحياتي . تم تعديل فبراير 11, 2005 بواسطه أبو هادي
سهل احمد العريشي قام بنشر فبراير 13, 2005 قام بنشر فبراير 13, 2005 بسم الله الرحمن الرحيم عذرا على التأخير وهذه مجموعة من الأطارات وتقبلوا تحياتي أخيكم سهل أحمد ( ابو نعيم ) pic1__1_.rar
سهل احمد العريشي قام بنشر فبراير 15, 2005 قام بنشر فبراير 15, 2005 بسم الله الرحمن الرحيم وهذه مجموعةالثانية أخيكم سهل أحمد ( ابو نعيم ) pic1__2_.rar
سهل احمد العريشي قام بنشر فبراير 15, 2005 قام بنشر فبراير 15, 2005 بسم الله الرحمن الرحيم وهذه المجموعةالثالثة أخيكم سهل أحمد ( ابو نعيم ) pic1__3_.rar
سهل احمد العريشي قام بنشر فبراير 15, 2005 قام بنشر فبراير 15, 2005 بسم الله الرحمن الرحيم وهذه المجموعةالأخيرة أخيكم سهل أحمد ( ابو نعيم ) pic1__5_.rar
أبو هادي قام بنشر فبراير 16, 2005 قام بنشر فبراير 16, 2005 السلام عليكم الأخ محسن سرحان .. آسف كثيرا على التأخير حيث كنت غائبا عن المنتدى طوال هذه الفترة . يبدو من الصورة أنك استطعت استخدام الكود عدا مشكلة أول سجل فإذا كان كذلك فإليك الكود بعد التعديل : Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim Ctl As Control With Me For Each Ctl In .Controls If Ctl.Section = 0 Then If .SN.Tag <> "" Then Ctl.BackColor = IIf(.SN - Val(.SN.Tag) <> 1, vbGreen, vbWhite) End If End If Next .SN.Tag = .SN End With End Sub تحياتي .
أبو هادي قام بنشر فبراير 17, 2005 قام بنشر فبراير 17, 2005 السلام عليكم لقد بدلت في الكود تسهيلا للمصمم ، فقط تحتاج لتبديل إسم الحقل المسلسل . Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim Ctl As Control Dim SeqID As Control Set SeqID = Me.SN '>> ضع هنا حقل المسلسل >> With Me For Each Ctl In .Controls If Ctl.Section = 0 Then If Me(SeqID.Name).Tag <> "" Then Ctl.BackColor = IIf(Me(SeqID.Name) - Val(Me(SeqID.Name).Tag) <> 1, vbGreen, vbWhite) End If End If Next Me(SeqID.Name).Tag = Me(SeqID.Name) End With End Sub ثم تحتاج أن تذهب للقائمة أعلى الشاشة وتختار التالي : View Sorting and Grouping وتضع إسم الحقل المسلسل في Field/Exprission وتختار Ascending في Sort Order تحياتي .
أبو هادي قام بنشر فبراير 18, 2005 قام بنشر فبراير 18, 2005 السلام عليكم بدل هذا السطر : Ctl.BackColor = IIf(Me(SeqID.Name) - Val(Me(SeqID.Name).Tag) <> 1, vbGreen, vbWhite) بهذا : Ctl.BackColor = IIf(Me(SeqID.Name) - Val(Me(SeqID.Name).Tag) > 1, vbGreen, vbWhite) ثم في الترتيب والمجموعات يجب وضع نفس الحقل الموجود في الكود في السطر الأول أي لا يجب تأخيره في حال وجود حقل آخر للترتيب . مثلا إذا أردت الفحص يكون على حقل setdown_no فسيكون في الترتيب التالي : setdown_no Ascending school_no Ascending أما إذا كان الفحص على حقل school_no فسيكون الترتيب كالتالي : school_no Ascending setdown_no Ascending تحياتي .
أبو هادي قام بنشر فبراير 19, 2005 قام بنشر فبراير 19, 2005 السلام عليكم أخي الفاضل .. تعديل آخر على الكود ، وهو ليس تصحيحا لخطأ فيه ولكن لتفادي خطأ تم عن طريقك وهو جعل خلفية الصناديق شفافة : Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim Ctl As Control Dim SeqID As Control Set SeqID = Me.setdown_no '>> ضع هنا حقل المسلسل >> With Me For Each Ctl In .Controls If Ctl.Section = 0 Then If Me(SeqID.Name).Tag <> "" Then Ctl.BackStyle = 1 Ctl.BackColor = IIf(Me(SeqID.Name) - Val(Me(SeqID.Name).Tag) > 1, vbGreen, vbWhite) End If End If Next Me(SeqID.Name).Tag = Me(SeqID.Name) End With End Sub تحياتي .
الردود الموصى بها