برنامجي متوقف على حل هذه المشكة ، أرجو المساعدة .

طيب مالغرض من جمعك عرضها في نموذج أم تقرير .

ولك تحياتي

عفواً هو ليس برنامج بل قاعدة بيانات لطباعة قرارات ، والغرض من ذلك هو أنه إذا توفر شرط معين أن يتم إدارج قيمة حقل معين مع عبارة ثابته . طبعاً بعض القرارات لايتوفر فيها هذا الشرط فلا يدرج فيها شيء .

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

كما أني تغلبت على المشكلة أعلاه باستخدام إدارج حقل مشروط في المستند المربوط بقاعدة البيانات ، وأضفت له النص الثابت بعد حذفه من حقل الاستعلام المذكور . طبعاً مشكلة أن أي حقل في الاستعلام لايرجع بأكثر من 256 خانة لازالت قائمة ، ويبدو أنه من عيوب الاكسس .

آسف للإطلالة ، فأنما حبي لكم هو الذي دعاني لإسترسال بالكلام .

الغريب

لقد افترضت أن العبارة الثابتة لاتتغير فجعلتها في الوحدة النمطية الخاصة بالتقرير :

Private Const العبارة_الثابتة As String = " العبارة الثابتة"

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

ثم في حدث عند التنسيق لمقطع تفصيل جعلت الحدث التالي بافتراض أن حقل الشرط حقل رقمي

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)

Select Case Me![الشرط]

Case 2, 5, 7

Me!النص = Me![الحقل المعين] & العبارة_الثابتة

Case Else

Me!النص = ""

End Select

عدل الشرط حسب الشرط الموجود لديك وهنا سؤال هل كل طباعة لهذه العبارة لابد أن تكون في صفحة لوحدها أم لا يهم .

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

ثم إذا كنت عملت دمج مع الوورد فهذا أفضل للتقارير التي تحتاج إلى تنسيق ومظهر جمالي حسب علمي .

ولك تحياتي