اذهب الي المحتوي
أوفيسنا

|3| حل تنسيق ضبط كلي لحقل المذكرة في أكسس


الردود الموصى بها

السلام عليكم

أخي مهند عبادي ..

لقد قمت بوضع الأداة فقط في نموذج وعينت لها قمية جديدة عبارة عن آية طويلة فلم يفتح معي النموذج وكأنما دخلت في Loop لا نهاية له حتى أضطررت أن أغلق الأكسس عن طريق الـ End Task .

تحياتي .

رابط هذا التعليق
شارك

الأخ / مهند

النص ليس ضبط كلي وإنما من اليمين فقط أنظر الصور التالية للأداة:

أنظر النص من جهة اليسار

الضبط الكلي هو كما في الصورة التالية :

أنظر النص من اليمين ومن اليسار .

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

تم تعديل بواسطه مصلح الحريصي
رابط هذا التعليق
شارك

أخي الكريم مصلح الحريصي

أود لفت انتباهك إلى أن هذه الأداة حتى تعمل يجب أن لا يكون هناك رمز الإدخال في نهاية كل سطر .. بل يجب أن تكون الأسطر مستمرّة

كما أن هذه الأداة تم تجريبها من حوالي 100 مستخدم وعملت بشكل صحيح عندهم

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

وإذا لم يعمل كما هو متوقع مني فأرجو إخباري .. ربما تكون الأداة قد لحق بها بعض الأخطاء أثناء تحميلك لها !!

Text.rar

رابط هذا التعليق
شارك

السلام عليكم

Private Sub Form_Open(Cancel As Integer)
  Me.MagicText0.Text = "وَبَشِّرِ الَّذِين آمَنُواْ وَعَمِلُواْ الصَّالِحَاتِ أَنَّ لَهُمْ جَنَّاتٍ تَجْرِي مِن تَحْتِهَا الأَنْهَارُ كُلَّمَا رُزِقُواْ مِنْهَا مِن ثَمَرَةٍ رِّزْقاً قَالُواْ هَـذَا الَّذِي رُزِقْنَا مِن قَبْلُ وَأُتُواْ بِهِ مُتَشَابِهاً وَلَهُمْ فِيهَا أَزْوَاجٌ مُّطَهَّرَةٌ وَهُمْ فِيهَا خَالِدُونَ"
End Sub

تحياتي .

رابط هذا التعليق
شارك

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

المشكلة هي أن الأداة عند تنفيذ الحدث Form_Open لا تكون مرسومة بعد ..

إن شاء الله سأحل هذه المشكلة قريباً

رابط هذا التعليق
شارك

أخي أبو هادي..

المشكلة عرفتها وتم حلها بشكل نهائي

وكانت تحدث بسبب التشكيل للكلمات حيث أن الكود لم يكن يعالج وجود تشكيل وكذلك تم إضافة خاصية Alignment

جرب حمل الأداة بعد تعديلها من هنا

http://www.arabteam2000-forum.com/index.ph...=post&id=193556

رابط هذا التعليق
شارك

الأخ مهند

لقد جعلت ما كان حلم في الماضي يصبح اليوم حقيقة أشاهدها بالعين الله يعطيك العافية .

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

عموماً نطمع أن تضيف التحسيناة على تلك الأداه حيث أنها تظر لي رسائل عند الأحداث التالية وخصوصاً :

Mouse Move

Mouse Down

Mouse Up

Click

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

هذه صورة لواحدة من تلك الرسائل

msseg.jpg

أيضاً لو أمكن إيجاد خاصية Magic Style .

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

أيضاً عندما يتم نغيير الخط في الأداة على التقرير يعلق الجهاز.

عموماً ألف شكر لك على هذا الأنجاز فعلاً الأحلام تتحقق أحياناً

تم تعديل بواسطه مصلح الحريصي
رابط هذا التعليق
شارك

أخي مصلح الحريصي

رسائل الخطأ هذه سببها أنك بعد أن سجلت الأداة لأول مرة قمت بنسخ الأداة معّدلة فوقها .. أو أنك صممت النموذج باستخدام الأداة ثم نسخت الأداة المعدّلة في جهازك

لذلك يجب عليك ما يلي :

1- إلغاء تسجيل الأداة ثم إعادة تسجيلها

2- حذف الأداة من النموذج ثم إدراجها مرة ثانية وتسميتها بنفس الاسم

وستحل هذه المشكل

أيضاً ماذا تقصد بخاصية التمدد والإنكماش ؟؟

رابط هذا التعليق
شارك

السلام عليكم

لازالت المشكلة قائمة :

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

وتم اختبارها من جديد بعد التالي :

1- إلغاء تسجيل الأداة ثم إعادة تسجيلها

2- حذف الأداة من النموذج ثم إدراجها مرة ثانية وتسميتها بنفس الاسم

تحياتي .

رابط هذا التعليق
شارك

أخي أبو هادي ...

هل حملت الأداة بعد تحديثها ؟؟

أرفق لي ملفك لأرى لماذا أن المشكلة عندك لم تحل بعد ؟؟

تم تعديل بواسطه مهند عبادي
رابط هذا التعليق
شارك

السلام عليكم

أخي مهند .. الوضع واضح جدا ولا يحتاج لإرفاق ملف ، ودعني هذه المرة أن أسألك أنا ، هل حاولت تجربة الأداة بعد تعديل عرضها (Width) لأقل من 6.429 سم ؟

حيث هي تعمل بشكل طبيعي لما يساوي أو أكبر من 6.429 سم .

تحياتي .

رابط هذا التعليق
شارك

نعم أخي أبو هادي

لقد قمت بتجربة الأداة بعد التعديل ووضعتها بحجم 4 سم ونسخت الكود الذي كتبته أنت فوق بنفس الآية ولم تحدث أي مشكلة !

ثم جربتها بعرض 3 ثم بعرض 2 ولم تحدث أي مشكلة وهذه صورة النموذج بعرض 2 سم بنفس الآية

post-13-1083342117.jpg

تم تعديل بواسطه مهند عبادي
رابط هذا التعليق
شارك

السلام عليكم

أخي مهند .. المشكلة غريبة ، علما أنني أستخد أكسس 2003 .

عموما قد نخرج عن الموضوع قليلا ولكنه ذا صلة من بعيد :( لقد عملت أداة سابقة ولم أنجح في عمل خاصية Text والغريبة هي تعمل بشكل سليم مع الـ VB ولا تعمل مع الأكسس ، وهنا الكود الذي استخدمته :

Public Property Let Text(ByVal vNewValue As String)
  txtUm.Text = vNewValue
  PropertyChanged "Text"
End Property

Public Property Get Text() As String
  Text = txtUm.Text
End Property

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  PropBag.WriteProperty "Text", Text, Extender.Name
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  Text = PropBag.ReadProperty("Text", Extender.Name)
End Sub

فما الخلل هنا يا ترى ؟

تحياتي .

رابط هذا التعليق
شارك

الأخ / مهند عبادي

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

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

1 - عند تغيير الخط و اللون في الأداة يتوقف الأكسس عن الاستجابة خصوصا في التقرير . (( يعلق )) .

2 - لا يمكن تغيير تأثيرات الشكل أي أنها دائما بشكل محفور .

3 - لا يمكن التحكم بالهوامش داخلها لمن يرغب بترك مسافة بين حافة مربع النص وبداية السطر .

4 - عدم وجود أشرطة تمرير في الأداة للنصوص الكبيرة .

  • ملاحظة ( 1 ) : لقد قمت باتباع جميع الخطوات التي ذكرتها في ردودك السابقة على بقية الأخوة .
  • ملاحظة ( 2 ) : أنا أستخدم Windows XP مع Access2003
تم تعديل بواسطه Access XP
رابط هذا التعليق
شارك

أخي العزيز / مهند عبادي

كل الشكر لك لسرعة تجاوبك وسعيك لمساعدة زملائك ولدى ملاحظة أخرى (( أرجو أن تكون الأخيرة ))

هل يمكن جعل الأداة قابلة للنمو كما في مربع النص العادي ( أي أنها تتوسع عموديا حسب النص ) .

وتقبل تحياتي وأمنياتي لك بالتوفيق

تم تعديل بواسطه Access XP
رابط هذا التعليق
شارك

الأخ / مهند عبادي حفظك الله

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

كل الشكر لك على تجاوبك ... وأمنياتي لك بالتوفيق

رابط هذا التعليق
شارك

الأخ العزيز / مهند عبادي

لقد قمت بتجربة الأداة يعد تعديلها وكانت رائعة الأداء ضمن التعديلات التي أجريتها عليها . ولكن بقيت بعض الملاحظات :

  • خاصية ( قابلة للنمو ) لا تعمل رغم إضافتها .

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

عدم إضافة أشرطة تمرير للأداة .

خاصية الضبط لا تعمل بشكل جيد مع بعض الخطوط العربية .

أخيرا كل الشكر لك نيابة عن بقية الزملاء وأصالة عن نفسي مع أمنياتي لك بالتوفيق تم تعديل بواسطه Access XP
رابط هذا التعليق
شارك

1- خاصية ( قابلة للنمو ) لا تعمل رغم إضافتها : أخي الكريم يجب أن تضع قيمة CanGrow=True وقد جربت هذه الخاصية في نموذج أكسس وعملت بشكل صحيح

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

3-عدم إضافة أشرطة تمرير للأداة .. إن شاء الله سأضيفها قريباً لأني نسيت أن أضعها

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

رابط هذا التعليق
شارك

الأخ / مهند عبادي

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

مع خالص تقديري وشكري لتجاوبك السريع .

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information