|1| كيف الضبط الكلي في أكسيس كما في الوورد

**مصلح الحريصي** · مارس 29, 2004

الأخوة الكرام

السلام عليكم ورحمة الله وبركاته وبعد

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

السؤال0

ما هو الكود في أكسيس المقابل للضبط الكلي الموجود في الوورد ؟

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

أرجو أن أجد الحل0

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

لكم خالص تحياتي

تم تعديل مارس 29, 2004 بواسطه مصلح الحريصي

**محمد طاهر عرفه** · مارس 29, 2004

جرب التقرير فى هذا المثال الأجنبي :pp:

justidirect.zip

**مصلح الحريصي** · مارس 29, 2004

تسلم لي أخي محمد والله لا يحرمك الأجر والمثوبة

جربته ولكن الم يضبط خصوصاً مع النصوص العربية ويبدوا أن هذه مشكلة ستلازمني لفترة طويلة.

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

**biskra** · مارس 30, 2004

أخي مصلح , أستاذ طاهر بعد عملية بحث وجدت كود ربما يحقق الغرض لكما أن تناقشانه اٍن كا ن فيه فائدة, و أسأل المعذرة اٍن لم أخطأت في المحاولة.

Microsoft_Access_Reports___Wrapping_memo_field_for_text_file.rar

**biskra** · مارس 30, 2004

ملاحظة الملف المرفق هو عبارة عن صفحة ويب قمت بحفظها

**مصلح الحريصي** · أبريل 6, 2004

أخي awamayah

الأمر يبدو ليس سهلاً والدليل عدم الرد

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

**biskra** · أبريل 7, 2004

أخي مصلح ربما بداية الحل هنا من موقع أجنبي و مرة أخرى أعتذر مسبقا اٍن كان تدخلي في غير محله, كل ما في الأمر رغبة في المساعدة.

الكود:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

If Me.TestID = 2 Then

Me.Detail.Height = 3 * 1440

Me.TestText.Height = 2 * 1440 ' twips are used as a measurement scale 1440 twips = 1 inch

Else

Me.Detail.Height = 1.5 * 1440

Me.TestText.Height = 0.5 * 1440

End If

End Sub

الشروط:

1. Set all can grow and can shrink properties to no.

2. Insert the following code into On Format event of the Detail section.

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

المثال المرتبط بالكود فيما يخص مسميات الحقول و الجدول,مع الملاحظة أن الكود غير موجود في المثال و يمكنك استعمال هذا الكود في المثال المرفق لدراسة النتيجة.

المثال من موقع أجنبي.

reportcgcstest.zip