صالح حمادي

صحيح أستاذ جعفر شكرا أنا لم ألاحظ ذلك معذرة أستاذي

تفضل هذا الموضوع يقوم بشرح المطلوب بالتفصيل

السلام عليكم و رحمة الله تعالى و بركاته بعد إذنك أستاذ أبوخليل لقد قمت بوضع مشاركة أشرح فيها هذا المطلوب بالتفصيل:

السلام عليكم و رحمة الله تعالى و بركاته أخوتي الكرام حياكم الله أردت في هذه المشاركة توضيح فكرة إضافة أكثر من تنسيق لمربع نص واحد و كما نعلم جميعنا فإن هذا الأمر غير موجود في الأكسس لذلك نضطر للإستعانة بلغة HTML و سوف أقوم بشرح و توظيف هذه الفكرة قدر المستطاع من أجل فك اللبس على هذه المشكلة التي طالما تعيقنا في إنشاء البرامج. على بركة الله فلنبدأ بالشرح: تغيير لون الخط: "<font color=""red"">" & "صالح حمادي" & "</font>" هذا الكود سوف يقوم بتغيير لون العبارة "صالح حمادي" إلى اللون الأحمر "<font color="red"">" هذا الجزء لفتح خاصية اللون و إعطائها اللون الأحمر في هذا المثال "</font>" و هذا الجزء لإغلاق هذه الخاصية جعل النص غامق: "<b>" &"صالح حمادي"& "</b>" يستعمل هذا الكود لجعل خط النص المحصور بينه إلى غامق جعل النص مائل: "<i>" &"صالح حمادي"& "</i>" يستعمل هذا الكود لجعل النص مائل التسطير تحت النص "<u>" &"صالح حمادي"& "</u>" تغيير نوع الخط: "<font face=""times new roman"">" & "صالح" & "</font>" يستعمل هذا الكود لتغيير نوع النص المحدد في هذا المثال وضعت نوع النص "times new roman" تغيير حجم الخط: "<font size=""24"">" & "صالح" & "</font>" هذا الكود يقوم بتغيير حجم الخط في هذا المثال حجم الخط هو 24 ملاحظة: يجب تغيير خاصية مربع النص "تنسيق النص" إلى "نص منسق"

السلام عليكم و رحمة الله تعالى و بركاته أستاذ جعفر بعد إذنك أريد أن أطرح حلا آخر أو طريقة أخرى إن صح التعبير. نقوم بكتابة الكود التالي في منشأ التعبير لمربع النص الغياب: =IIf([الغياب]>0;[الغياب]) و أيضا مربع التسمية نحوله إلى مربع نص و نكتب في الكود التالي: =IIf("الغياب]>0;"الغياب]) و نغير خاصيتهما قابل للتقلص إلى نعم و كذلك التفصيل أو detail لنتحصل على النتيجة التالية: التقرير.rar

نعم أستاذ جعفر كلما إختلفت أفكارنا كلما زادت معلوماتنا من بعضنا البعض

و فيك بارك الله أخي محمد

قم بإضافة هذا السطر إلى الوحدة النمطية بعد العنوان مباشرة On Error Resume Next

كود ممتاز أستاذ جعفر لكن هل يمكن رسم إطار مربع النص نعم أستاذ رمهان أنا لم أضع ملف mde في الحسبان

السلام عليكم أخوتي و أساتذتي الكرام ما رأيكم بفكرة الإستغناء عن الجدول نهائيا و ذلك بتوظيف مربع تسمية عوض مربع نص انشاء كائنات.rar

هذا مثال مشابه يمكنك الإستفادة منه

السلام عليكم استعمل هذا الكود في معيار الإستعلام Like "*" & [forms]![frmsearch1]![geha] &"*" بحيث تكتب في معيار كل حقل اسم مربع النص المراد التصفية من خلاله فالكود السابق يخص حقل الجهة و هكذا

واضح استاذ أردت فقط أن أضيف من أجل إثراء الموضوع أستاذ محمد

أستاذي أبو خليل بالنسبة للهوامش و المسافات حلها سهل لأني وضعت متغييرن x و y من أجل التعديل في القيم و الحصول على المظهر المطلوب مع العلم أن: كل 1 سم يساوي 576 وحدة تويب و ذلك من أجل الحصول على مسافات أكثر دقة قمت بتصميم برنامج صغير يقوم بهذه الحسابات أستاذي جعفر .نعم هذه فكرة جيدة لكن تصميم الحقول يدويا يأخذ وقت كبيرا يكفي أن تقوم بضبط قيم المتغيرين x و y في الكود كما وضعت ذلك في المرفق ماذا لو كان العدد المطلوب صفحة واحدة فهذا يعني أنه صوف تظهر صفحة أخرى في التقرير بيضاء لأن طول التقرير أكبر من طول ورقة واحدة هذا و الله أعلم فالنقاش المثمر معكم جد ممتاز و يخلي الواحد يعصر دماغو من أجل توليد فكرة جديدة و بتعدد الآراء تتحسن النتيجة كما ينوه الأستاذ جعفر دائما تحويل وحدات القياس للكائنات.rar rep2.rar

السلام عليكم Me.c.TextAlign = 3 قم بتغيير القيمة من 1 إلى 4 لتلاحظ تغير مكان النص داخل المربع لاحظ المرفق 45.rar

السلام عليكم و رحمة الله تعالى و بركاته . أخوتي و أساتذتي الكرام لقد تبادرت إلى ذهني فكرة أخرى تختلف تماما عن فكرة توظيف أي استعلام الاستعلامات و هي القيام بتصميم مربعات نص مصدرها الحقل B_Nm و ذلك عن طريق الكود حسب العدد المطلوب. و قد قمت بتوظيف هذه الفكرة في المرفق لكن يبقى شيء وحدي و هو كما يعرف الجميع أن ارتفاع التقرير لايجب أن يكون كبيرا جدا مما يجعله يظهر صفحتين فقط عند المعاينة rep2.rar

السلام عليكم و رحمة الله تعالى و بركاته أساتذتي الكرام حياكم الله أستاذي و أخي أبو خليل تفضل التعديل على المرفق أن أن هذا ما تبحث عنه rep.rar

السلام عليكم جرب هذا المرفق screen.rar

وفقك الله لما فيه صلاح الإسلام و المسلمين إن شاء الله

فهمك للكود ممتاز هذا هو المغز بالضبط من وضع * في مربع النص

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

هذا الكود يقوم بحساب المجموع فقط و لنسخ البيانات في جدول آخر قم بإنشاء إستعلام إلحاق

السلام عليكم و رحمة الله تعالى و بركاته. أخي الأستاذ محمد أيمن بعد إذنك أريد المشاركة معكم في هذا الموضوع: يمكن أيضا تنفيذ البحث عن ملف داخل الجهاز بهذا الكود: If Dir("D:\1.txt") = "" Then MsgBox "عذرا ملف الحماية غير موجود", vbCritical Quit End If

نعم أخي تفضل الشرح: Me.codeschoole = "*" هذا الكود في حدث بعد التحديث لقائمة الإدارة فعند اختيار عنصر من القائمة يقوم الكود بإفراغ باقي القوائم و يكتب داخل مربع نص codeschoole نجمة (*). و لقد كتبت في الإستعلام هذا الكود Like [Forms]![tsform]![codeschoole] مع العلم أن هذا الكود يقوم بإعطائك النتائج كاملة إذا كانت قيمة مربع النص هي (*). If IsNull(Me.codeschoole) Then Me.codeschoole = "*" End If Me.fform.Requery و هذا الكود في حدث بعد التحديث لمربع النص codeschoole يقوم بكتابة (*) داخل مربع النص إذا قمت بحذف محتواه من الأرقام. إن شاء الله نكون قد وفقنا في الشرح و الله هو المستعان. شكرا جزيلا أستاذ محمد

شكرا لكم و جزاكم الله عنا كل خير و على كل ما تقدمونه لهذا الموقع الرائع