:ت: وضع دائرة حول رقم بشرط في تقرير

[abomanar2]

الأخوة الكرام ...... السلام عليكم

ارجو مساعدتي في وضع دوائر في التقرير على الدرجات الأقل من عدد معين

وكذلك حساب السن في 1/10/2005 مثلا

علما بأني اعمل على أكسيس 97

ولكم الشكر والتقدير

[الدكتور خضر الرجبي]

السلام عليكم

أعرف كيفية الحل ولكن على أكسيس 2003 ، ربما يساعدك الحل ، إذا لم تستطيع فتح المرفق لأنك تستعمل أكسيس 97. فإليك فكرة الحل.

في حدث عند الطباعة لمقطع التفصيل تكتب الكود التالي

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
      
    V = Me.ScaleHeight / 2
    R = Me.ScaleHeight / 3
    If Me.Grade < 50 Then
     Me.Circle (5570, V), R
    End If

End Sub

وسيقوم بوضع دائرة حول الدرجة (grade) التي أقل من 50 في هذا المثال.

مع الاحترام

CirclesOnConditionOnReports.rar

[abomanar2]

شكرا اخي الكريم وبارك الله فيك

سوف احاول تنفيذ ما تفضلتم به

ولك كل الشكر والتقدير

[abomanar2]

اخي واستاذي الأستاذ خضر

بارك الله فيك فقد تم ما كنت ارجوه

لكن ارجو توضيح كيفية جعل حدود الدائرة اكثر سمكا لانها لم تظهر بوضوح في الطباعة

ولك وللجميع شكري وتقديري

والسلام عليكم

[الدكتور خضر الرجبي]

السلام عليكم

لا أعرف كيف أغمق الخط ولكن لتغيير اللون إلى الأحمر مثلاً

 Me.Circle (5570, V), R, vbRed

مع الاحترام

[abomanar2]

السلام عليكم

شكرا استاذنا الكريم خضر

وانتظر من حضرتكم أو من أحد الأخوة الكرام

طريقة لجعل الخط اعرض (bold)

ولكم كل الشكر

[الدكتور خضر الرجبي]

السلام عليكم

بما أنك مصرٌ عل التغميق فقد وصلت لك إلى الحل

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
 Const bold As Byte = 20
    Me.FontBold = True
    V = Me.ScaleHeight / 2
    R = Me.ScaleHeight / 3
    If Me.Grade < 50 Then
     For i = 0 To bold
      Me.Circle (5570, V), R + i, vbRed
     Next i
    End If
End Sub

درجة التغميق موجودة في أول سطر غيرها كما تحب من 20 إلى أي عدد

مع الاحترام

[أبو وليد]

بارك الله فيك اخ خضر ونفع الله بك

اللهم ارزقه ووفقه دنيا وآخره

[abomanar2]

بارك الله فيك أخي الكريم

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