التقارير : ضبط النص في مربع نص على تقرير

وكنت ابحث عنه كذلك من فترة طويل جزاك الله خير على هذا الحل الرائع وياليت تشرح الطريقة كاملة وفقك الله

اخي ابو ساره

بارك الله فيك

كما تعلم ان برنامج الاكسيس لا يوجد به هذه الخاصية وهي الصبط الكلي Justify كما في الوورد

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

كما ان هناك ملاحظة هامه وهي مشكلة اللغة العربية فقد يكون هناك مشكلة او عدم توافق نظرا لأن الحروف العربية متشابكه بعكس اللغة الانجليزية .

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

انتظر مني الاجابه في اقرب وقت فلا تستعجل الامور

اخي الكريم - وبعد اذن الاستاذة الفاضلة -

اتمنى ان يكون في الرابط التالي ما يحل المشكلة..

هنا

الأخت الغالية زهره

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

اقتباس

انتظر مني الاجابه في اقرب وقت فلا تستعجل الامور

فعلا أن لست مستعجل فأعرف أن الأمر ليس باليسير وسيأخذ وقت ولكن خذي راحتك وأنا في الأنتظار بارك الله فيك

أخي الغالي ايهاب

شكراً لك على مرورك والمشاركة الموقع يتحدث عن أداة Rich Text ActiveX من أدوات فيجول بيسك كما أنني نزلت مثال من الموقع وعند فتحه وجدته مبني على VB.Net و VB6 فإن كان خلاف ذلك أرجو الإفادة بارك الله فيك

تحياتي للجميع

اخي الفاضل ابو ساره وجميع الاخوه الكرام

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

كما يعلم الجميع ان برنامج الاكسيس هو خاص لقواعد البيانات وحفظ البيانات لوقت الحاجة لها في اي وقت وليس من اهتمامات الاكسيس عمليات التنسيق المعقدة التي تكون عادة من خواص محررات النصوص مثل برنامج الوورد وغيره من محررات النصوص المختلفه لذا لم يتم ادراج بعض الخواص في برنامج الاكسيس ومنها تنسيقات الضبظ بجميع انواعها سواء ضبط فقرات او ضبط المستند كامل وعلى هذا الاساس نحتاج الى الاستعانه بما يدعى ادوات مساندة لهذه العملية مثل المكتبات المبرمجة الجاهزه من نوع DLL او OCX حيث يوجد بها الكود المصدري المطلوب بدلا من ان نقوم بكتابتة كاملا في البرنامج وتوضع عادة هذه الادوات في مجلد النظام الخاص بالويندوز لهذا يتم استدعاؤها فقط عن طريق الوحدة النمطية وهذه المكتبات تحتاج الى تسجيل لكي يتم الربط بينها وبين برنامجنا اذا :

سأتابع معكم ما توصلت اليه من حل ولو جزئي في هذا الموضوع فنقول بسم الله وعلى بركة الله نبدأ

الادوات :

نحتاج الى اداة OCX تدعى RTF2.OCX وبها من الامكانات الشيء الكثير ( سيتم التطرق لها فيما بعد )

طريقة تركيب الاداه :

بعد تحميل الاداه تنسخ الى مجلد النظام system32 الخاص بالويندوز لتصبح بهذا الشكل C:\WINDOWS\system32\RTF2.OCX

طريقة تسجيل الاداة :

لدينا طريقتين اما عن طريق الويندوز او عن طريق الاكسيس ( نختار واحدة منها )

1. التسجيل عن طريق الويندوز

بعد نسخ الاداه الى مجلد النظام نذهب الى ابدأ من الويندوز ونختار تشغيل ونضع هذا الامر كما هو ثم نضغط موافق

C:\WINDOWS\system32\regsvr32   C:\WINDOWS\system32\RTF2.OCX

وستظهر لنا رسالة بنجاح عملية التسجيل نضغط على موافق

2. التسجيل عن طريق الاكسيس

نفتح قاعدة البيانات الخاصة بنا ثم ننتقل الى اشرطة قوائم الاكسيس ونختار منها ادوات ثم نختار عناصر تحكم ActiveX

ستظهر لنا نافذة عناصر التحكم جميعها والتي تم تحميلها في مجلد النظام نختار من القائمة الاداة RTF2 Control ثم نضغط تسجيل ستظهر ناقذة تبحث فيها موقع الاداة وبالطبع مكانها في مجلد النظام system32 بإسم RTF2.OCX نقوم بإختيارها ثم موافق وسنعود لنافذة عناصر التحكم اكتيف اكس في هذه اللحظة يكون تم تسجيل الاداة لهذا نقوم بإغلاق النافذه .

الان الاداة اصبحت جاهزه للاستخدام سواء في النموذج او التقرير

شرح مبسط لهذه الاداة RTF2.OCX

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

طريقة استخدام الاداة في النموذج او التقرير

1. نفتح الجدول المطلوب ونضع به حقل اضافي اسمه RTFField ونوعه نصي او مذكره .

ملاحظة : اذا كانت العبارات التي ستضعها في مربع النص قليلة يعني اقل من 255 حرف فلا يوجد مشكلة اما اذا زادت عن ذلك فيجب ان تستبدله بحقل مذكره

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

3. ننتقل الى اشرطة قوائم الاكسيس ونختار ادراج .

4. ثم نختار عنصر تحكم ActiveX ونختار منه RTF2 Control ثم نضغط موافق

5. نقوم بضبط حجم الكنترول حسب المقاسات المطلوبه والمراد ان تظهر فيها العبارات التي نريد ادخالها .

==== خارج الموضوع والشرح : خاص لأبو ساره :

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

6. طبعا سيكون ادخال العبارات في الحقل المنضم RTFField وستظهر نتائجه في عنصر التحكم RTF2 Control الذي نستطيع منه عمل التنسيقات المطلوبه . وذلك من خلال تضليل كامل النص الذي كتبناه ثم نسخه ولصقه في الكنترول RTF2 Control ثم نقوم بضليل كامل النص في الكنترول ثم الضغط على زر الاماوس الايمن لتظهر لنا قائمه بها كل ما نحتاجه للتنسيق .

7. يوجد بداخل المثال المرفق وحدة نمطية تدعى modRTF2ToolBar وفائدة هذه الوحدة النمطية هي عمل الارتباط مع الاداة RTF2 Control واظهار جميع الاوامر الخاصة بها والخاصة بالتنسيق . ( قم بنسخها الى قاعدة بياناتك )

8. ننتقل الى اكواد النموذج حيث نضع هذه الاحداث في مواقعها

هذا الكود يوضع في حدث عند التحميل وفائدته اظهار قوائم التنسيق عند الضغط يالماوس الايمن على عنصر التحكم RTF2 Control الذي به العبارات المراد تنسيقها .

Private Sub Form_Load()
On Error Resume Next
DoCmd.ShowToolbar "RTF2", acToolbarYes
End Sub

هذا الكود يوضع في حدث عند الغاء التحميل وهو اخفاء قوائم عنصر التحكم RTF2 Control

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
DoCmd.ShowToolbar "RTF2", acToolbarNo
End Sub

9. نحفظ ما قمنا بعمله في النموذج ثم نقوم بالتجربه كما تم شرحه سابقا .

ملاحظة 1 : في هذا المثال الخاص لآبو ساره ستظهر جميع الحقول في مربع النص txtALL وهو حالة خاصة .

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

مربع النص txtALL مخفي في حالة عدم وجود بيانات في الحقول ويظهر مع تحديث مربع التحرير والسرد الخاص بنوع الاجازه للموظف .

من هذا المنطلق اضفت لك قائمة منبثقه بها امر نسخ بعد ان تقوم بتحديد كامل النص في مربع النص txtALL السفلي الخاص بك تقوم بنسخه ثم تنتقل الى عنصر التحكم العلوي RTF2 Control وتقوم بتبديل الكتابة الى العربية من خلال الضغط على مفتاحي Shift + Ctrl اليمنى من لوحة المفاتيح ثم تقوم بلصق ما نسخته من مربع النص السفلي الخاص بك txtALL في عنصر التحكم RTF2 Control من خلال الضغط بالماوس الايمن عليه وستظهر لك القائمة اختر منها لصق Paste ثم قم بعمل تضليل كامل للنص في RTF2 Control واضغط بالماوس الايمن لتظهر لك القائمة وقم بعملية التنسيق المناسبة من خلال الاوامر الموجوده بها . كأن تختار نوع الخط وحجمه ونوعه ولونه ثم اختر من اسفل القائمة ادوات الضبط وتباعد الاسطر .

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

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

لهذا نقوم بإدراج عنصر التحكم RTF2 Control وكذلك الحقل RTFField في قسم تفصيل ( وليس كالنموذج في رأس النموذج ) ثم نضع الاكواد التالية في محرر الفيجول بيسك حسب الاحداث التالية

هذا الكود يوضع في حدث قسم التفصيل والغرض منه محاذاة عنصر التحكم في الارتفاع

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

	Height = Me.RTFcontrol.Object.RTFheight
	  If Height > 0 Then
		If Height < 32000 Then
			Me.RTFcontrol.Height = Height
		End If
	End If
	Me.Section(acDetail).Height = Me.RTFcontrol.Height + Me.RTFcontrol.Top

	If Me.RTFcontrol.Object.RTFheight > 0 Then
		If Me.RTFcontrol.Object.RTFheight < 32000 Then
			Me.RTFcontrol.Height = Me.RTFcontrol.Object.RTFheight
		End If
	End If
End Sub
[code]

هذا الكود خاص لآستعادة  وضع التقرير عند الاغلاق 

[code]
Private Sub Report_Close()
DoCmd.Restore
End Sub

وبهذا نكون قد انهينا الشرح لهذا الموضوع

خطوات سريعة للمحترفين

1. قم بنسخ الاداة RTF2.OCX الى مجلد النظام ثم قم بتسجيلها .

2. اضف حقلا جديدا بإسم RTFField في جدولك نوعه مذكره او استخدم حقل المذكره الخاص بك .

3. اضف عنصر تحكم اكتيف اكس RTFcontrol الى النموذج او التقرير واجعل مصدر عنصر التحكم هو الحقل RTFField او حقل المذكره الخاصة بك .

4. ابدأ الكتابة في حقل المذكره RTFField بشكل عادي ثم حدد العبارات كاملة وقم بنسخها ولصقها في عنصر تحكم الاكتيف اكس RTFcontrol مع وضع نقطه في نهاية كل فقره .

5. حدد كامل النص ( تضايل كامل ) الذي نسخته في عنصر التحكم RTFcontrol ثم حول الكتابة الى العربية من لوحة المفاتيح او من شريط المهام الخاص بالويندوز .

6. اضغط بالماوس الايمن على النص في عنصر التحكم هذا وقم بتنسيق النص من خلال القائمة او الادوات التي ستظهر لك .

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

ملاحظه : في هذا المثال قمت بإخفاء مربع النص RTFField في النموذج والتقرير وسيظهر لك في وضع التصميم

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

zaDataReport_UP2.rar

الف تحية وكل الشكر والتقدير للاستاذة زهرة

المثال في قمة الروعة والشرح وافي وواضح في اتم صوره

هذا ما كنا نبحث عنه من سنين .......

تقبلوا خالص تحياتنا وتقديرنا

بارك الله فيكم على هذه المشاركة وجزاكم الله خيرا

ماشاء الله تبارك الله على هذا الإبداع

جاري التحميل ........

الى إخوتي الأكارم :

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

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

وشكرا للمساعده 0

اقتباس

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

اخي الفاضل

كما تعلم ان هذه الأداة هي اداة خارجية وليست من ضمن ادوات الأكسيس او مكوناته علما بأنه يوجد بهذه الأداة خاصية القابلية للتقلص والنمو بناء على الكلام الموجود بداخلها .

لكي تقوم بالتجربه وتتأكد من هذا الموضوع افتح التقرير في وضع التصميم ثم قم بتصغير مربع الأداة الخاصة بالـ RTF واجعلها 1سم × 1 سم ثم اعرض التقرير اذا كان قد سبق وان قمت بإدخال عبارات كثيره او قليله فيه .

ستلاحظ ان عنصر التحكم هذا سيعرض لك النص بصيغة ضبط كلي لكامل النص المكتوب .

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

من هذا نلاحظ بارك الله فيك ان هذه الأداه يوجد بها داخليا كود القابلية للنمو والتقلص التلقائي ولا تحتاج الى ان تقوم بالتعديل عليه كما هو الحاصل في حقول التقرير

zahrah كتب:

ان هذه الأداه يوجد بها داخليا كود القابلية للنمو والتقلص التلقائي ولا تحتاج الى ان تقوم بالتعديل عليه كما هو الحاصل في حقول التقرير

أختي الكريمه :

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

أشكر لك تجاوبك على استفساري وأود أن اسأل ايضا حول امكانية ان يكون الحقل الذي أضعه أسفل حقل الأداة في التقرير يأتي دائماً بعده سواءاً كان حقل الأداة به بيانات كثيره أو قليله لأنني لاحظت أن الحقل الذي أسفل حقل الأداة يتداخل معه وسؤالي : كيف يمكن أن يتم تحريك الحقل الذي يكون أسفل حقل الأداة الى الأسفل اذا كانت بيانات حقل الأداه كثيره وتحريكه للأعلى إذا كانت بيانات حقل الأداة قليله ؟

يوجد مثال اذا ممكن التعديل عليه 0

ولكِ مني وافر التحيه والتقدير 0

WLter.rar

اخي الفاضل

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

كان هناك تداخل بين حقل الإحالة وحقل الإفادة

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

كما ان حقل الإحالة قد تم ضبطه مسبقا على قابل للنمو وقابل للتقلص على نعم وهذا هو الصحيح

WLter_UP.rar

اشكر لك اختي الكريمه سرعة تجاوبك على استقساري

ولكني اريد الحقول مرتبة بالشكل النالي :

أولًا : حقل الموضوع

ثانياً : حقل الافاده

ثالثاً: حقل الإحاله

لآن هذ الترتيب مهم جدا لي بهذه الطريقه

فأرجو التكرم يمساعدتي في ذلك و لك من كل الشكر

معذرة اخي الكريم

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

لهذا يجب ان تضحي بشيء مقابل شيء

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

أه لم أكن أتوقع أن لا يكون هناك حل لمشكلتي !!

MAccess كتب:

أه لم أكن أتوقع أن لا يكون هناك حل لمشكلتي !!

اخي الفاضل

لا تتاؤه ولا هم يحزنون

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