abomanar2 قام بنشر مارس 9, 2005 مشاركة قام بنشر مارس 9, 2005 الأخوة الكرام ...... السلام عليكم ارجو مساعدتي في وضع دوائر في التقرير على الدرجات الأقل من عدد معين وكذلك حساب السن في 1/10/2005 مثلا علما بأني اعمل على أكسيس 97 ولكم الشكر والتقدير رابط هذا التعليق شارك More sharing options...
الدكتور خضر الرجبي قام بنشر مارس 9, 2005 مشاركة قام بنشر مارس 9, 2005 السلام عليكم أعرف كيفية الحل ولكن على أكسيس 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 رابط هذا التعليق شارك More sharing options...
abomanar2 قام بنشر مارس 9, 2005 الكاتب مشاركة قام بنشر مارس 9, 2005 شكرا اخي الكريم وبارك الله فيك سوف احاول تنفيذ ما تفضلتم به ولك كل الشكر والتقدير رابط هذا التعليق شارك More sharing options...
abomanar2 قام بنشر مارس 10, 2005 الكاتب مشاركة قام بنشر مارس 10, 2005 اخي واستاذي الأستاذ خضر بارك الله فيك فقد تم ما كنت ارجوه لكن ارجو توضيح كيفية جعل حدود الدائرة اكثر سمكا لانها لم تظهر بوضوح في الطباعة ولك وللجميع شكري وتقديري والسلام عليكم رابط هذا التعليق شارك More sharing options...
الدكتور خضر الرجبي قام بنشر مارس 18, 2005 مشاركة قام بنشر مارس 18, 2005 السلام عليكم لا أعرف كيف أغمق الخط ولكن لتغيير اللون إلى الأحمر مثلاً Me.Circle (5570, V), R, vbRed مع الاحترام رابط هذا التعليق شارك More sharing options...
abomanar2 قام بنشر مارس 18, 2005 الكاتب مشاركة قام بنشر مارس 18, 2005 السلام عليكم شكرا استاذنا الكريم خضر وانتظر من حضرتكم أو من أحد الأخوة الكرام طريقة لجعل الخط اعرض (bold) ولكم كل الشكر رابط هذا التعليق شارك More sharing options...
الدكتور خضر الرجبي قام بنشر مارس 19, 2005 مشاركة قام بنشر مارس 19, 2005 السلام عليكم بما أنك مصرٌ عل التغميق فقد وصلت لك إلى الحل 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 إلى أي عدد مع الاحترام رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر مارس 19, 2005 مشاركة قام بنشر مارس 19, 2005 بارك الله فيك اخ خضر ونفع الله بك اللهم ارزقه ووفقه دنيا وآخره رابط هذا التعليق شارك More sharing options...
abomanar2 قام بنشر مارس 20, 2005 الكاتب مشاركة قام بنشر مارس 20, 2005 بارك الله فيك أخي الكريم واسف على تضييع وقتكم .....جزاكم الله كل الخير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها