مهند عبادي قام بنشر أبريل 29, 2004 قام بنشر أبريل 29, 2004 http://www.arabteam2000-forum.com/index.ph...15entry193497
أبو هادي قام بنشر أبريل 29, 2004 قام بنشر أبريل 29, 2004 السلام عليكم أخي مهند عبادي .. لقد قمت بوضع الأداة فقط في نموذج وعينت لها قمية جديدة عبارة عن آية طويلة فلم يفتح معي النموذج وكأنما دخلت في Loop لا نهاية له حتى أضطررت أن أغلق الأكسس عن طريق الـ End Task . تحياتي .
مصلح الحريصي قام بنشر أبريل 29, 2004 قام بنشر أبريل 29, 2004 (معدل) الأخ / مهند النص ليس ضبط كلي وإنما من اليمين فقط أنظر الصور التالية للأداة: أنظر النص من جهة اليسار الضبط الكلي هو كما في الصورة التالية : أنظر النص من اليمين ومن اليسار . ربما تكون هناك خاصية يجب ضبطها عموماً عمل أداة بحد ذاته شيء رائع ولا أظن أن من يستطيع تصميم أداة وبرمجتها كا التي قمت بعملها يصعب عليه إعداد وبرمجة الخصائص . تم تعديل أبريل 30, 2004 بواسطه مصلح الحريصي
مهند عبادي قام بنشر أبريل 29, 2004 الكاتب قام بنشر أبريل 29, 2004 أخي الكريم مصلح الحريصي أود لفت انتباهك إلى أن هذه الأداة حتى تعمل يجب أن لا يكون هناك رمز الإدخال في نهاية كل سطر .. بل يجب أن تكون الأسطر مستمرّة كما أن هذه الأداة تم تجريبها من حوالي 100 مستخدم وعملت بشكل صحيح عندهم على أي حال بالنسبة للمثال الذي وضعت صورته .. لقد قمت بكتابته نفسه في نموذج أكسس وعملت الأداة بشكل صحيح وسأرفق لك هذا النموذج حتى تجربه عندك وتراه وإذا لم يعمل كما هو متوقع مني فأرجو إخباري .. ربما تكون الأداة قد لحق بها بعض الأخطاء أثناء تحميلك لها !! Text.rar
مهند عبادي قام بنشر أبريل 29, 2004 الكاتب قام بنشر أبريل 29, 2004 أخي أبو هادي .. ما هي الآية التي عينتها لها ؟؟؟ أو ما هو عدد كلمات تلك الآية حتى أعرف سبب ما حصل معك
أبو هادي قام بنشر أبريل 29, 2004 قام بنشر أبريل 29, 2004 السلام عليكم Private Sub Form_Open(Cancel As Integer) Me.MagicText0.Text = "وَبَشِّرِ الَّذِين آمَنُواْ وَعَمِلُواْ الصَّالِحَاتِ أَنَّ لَهُمْ جَنَّاتٍ تَجْرِي مِن تَحْتِهَا الأَنْهَارُ كُلَّمَا رُزِقُواْ مِنْهَا مِن ثَمَرَةٍ رِّزْقاً قَالُواْ هَـذَا الَّذِي رُزِقْنَا مِن قَبْلُ وَأُتُواْ بِهِ مُتَشَابِهاً وَلَهُمْ فِيهَا أَزْوَاجٌ مُّطَهَّرَةٌ وَهُمْ فِيهَا خَالِدُونَ" End Sub تحياتي .
مهند عبادي قام بنشر أبريل 29, 2004 الكاتب قام بنشر أبريل 29, 2004 أخي أبو هادي ... إذا وضعت هذا الكود على ضغط زر فإنه سيعمل بشكل صحيح المشكلة هي أن الأداة عند تنفيذ الحدث Form_Open لا تكون مرسومة بعد .. إن شاء الله سأحل هذه المشكلة قريباً
أبو هادي قام بنشر أبريل 29, 2004 قام بنشر أبريل 29, 2004 السلام عليكم لقد شخصت المشكلة وهي تحدث فقط عندما يقل عرض الأداة عن 6.429 سم . تحياتي .
مهند عبادي قام بنشر أبريل 29, 2004 الكاتب قام بنشر أبريل 29, 2004 أخي أبو هادي.. المشكلة عرفتها وتم حلها بشكل نهائي وكانت تحدث بسبب التشكيل للكلمات حيث أن الكود لم يكن يعالج وجود تشكيل وكذلك تم إضافة خاصية Alignment جرب حمل الأداة بعد تعديلها من هنا http://www.arabteam2000-forum.com/index.ph...=post&id=193556
مصلح الحريصي قام بنشر أبريل 30, 2004 قام بنشر أبريل 30, 2004 (معدل) الأخ مهند لقد جعلت ما كان حلم في الماضي يصبح اليوم حقيقة أشاهدها بالعين الله يعطيك العافية . سبق وأن طرحة هذا الموضوع قبل السنة تقريباً ولم أجد عليه أي رد وقد أضاف أحد الأخوة على نفس المشاركة عبارة مضمونها " بانه لا يوجد أحد وهذا غير ممكن " وكان ردي عليه بأنه سيأتي يوماً ما من يعرف الحل وها هو جاء اليوم من حقق ذلك ولو تبحث عن مشاركة باسم الضبط الكلي في منتدى الفريق العربي ستجد ذلك. عموماً نطمع أن تضيف التحسيناة على تلك الأداه حيث أنها تظر لي رسائل عند الأحداث التالية وخصوصاً : Mouse Move Mouse Down Mouse Up Click لا أعرف سبب تلك الأخطأ مع أنه لا يوجد أي شفرات برمجية في تلك الأحداث . هذه صورة لواحدة من تلك الرسائل أيضاً لو أمكن إيجاد خاصية Magic Style . وكذلك خاصية التمدد والإنكماش فكما تعلم أن السجلات تختلف في نصوصها من حيث الطول أو القصر بعض السجلات تكون أسطرها كثير والبعض الأخر قليلة . أيضاً عندما يتم نغيير الخط في الأداة على التقرير يعلق الجهاز. عموماً ألف شكر لك على هذا الأنجاز فعلاً الأحلام تتحقق أحياناً تم تعديل أبريل 30, 2004 بواسطه مصلح الحريصي
مهند عبادي قام بنشر أبريل 30, 2004 الكاتب قام بنشر أبريل 30, 2004 أخي مصلح الحريصي رسائل الخطأ هذه سببها أنك بعد أن سجلت الأداة لأول مرة قمت بنسخ الأداة معّدلة فوقها .. أو أنك صممت النموذج باستخدام الأداة ثم نسخت الأداة المعدّلة في جهازك لذلك يجب عليك ما يلي : 1- إلغاء تسجيل الأداة ثم إعادة تسجيلها 2- حذف الأداة من النموذج ثم إدراجها مرة ثانية وتسميتها بنفس الاسم وستحل هذه المشكل أيضاً ماذا تقصد بخاصية التمدد والإنكماش ؟؟
أبو هادي قام بنشر أبريل 30, 2004 قام بنشر أبريل 30, 2004 السلام عليكم لازالت المشكلة قائمة : لقد شخصت المشكلة وهي تحدث فقط عندما يقل عرض الأداة عن 6.429 سم وتم اختبارها من جديد بعد التالي : 1- إلغاء تسجيل الأداة ثم إعادة تسجيلها2- حذف الأداة من النموذج ثم إدراجها مرة ثانية وتسميتها بنفس الاسم تحياتي .
مهند عبادي قام بنشر أبريل 30, 2004 الكاتب قام بنشر أبريل 30, 2004 (معدل) أخي أبو هادي ... هل حملت الأداة بعد تحديثها ؟؟ أرفق لي ملفك لأرى لماذا أن المشكلة عندك لم تحل بعد ؟؟ تم تعديل أبريل 30, 2004 بواسطه مهند عبادي
أبو هادي قام بنشر أبريل 30, 2004 قام بنشر أبريل 30, 2004 السلام عليكم أخي مهند .. الوضع واضح جدا ولا يحتاج لإرفاق ملف ، ودعني هذه المرة أن أسألك أنا ، هل حاولت تجربة الأداة بعد تعديل عرضها (Width) لأقل من 6.429 سم ؟ حيث هي تعمل بشكل طبيعي لما يساوي أو أكبر من 6.429 سم . تحياتي .
مهند عبادي قام بنشر أبريل 30, 2004 الكاتب قام بنشر أبريل 30, 2004 (معدل) نعم أخي أبو هادي لقد قمت بتجربة الأداة بعد التعديل ووضعتها بحجم 4 سم ونسخت الكود الذي كتبته أنت فوق بنفس الآية ولم تحدث أي مشكلة ! ثم جربتها بعرض 3 ثم بعرض 2 ولم تحدث أي مشكلة وهذه صورة النموذج بعرض 2 سم بنفس الآية تم تعديل أبريل 30, 2004 بواسطه مهند عبادي
أبو هادي قام بنشر أبريل 30, 2004 قام بنشر أبريل 30, 2004 السلام عليكم أخي مهند .. المشكلة غريبة ، علما أنني أستخد أكسس 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 فما الخلل هنا يا ترى ؟ تحياتي .
مهند عبادي قام بنشر أبريل 30, 2004 الكاتب قام بنشر أبريل 30, 2004 لا يوجد خلل في الكود هذا ... وإن خاصية Text لا تظهر ضمن قائمة خصائص الأداة في أكسس .. ولكنها موجودة ويمكن استخدامها في الكود
Access XP قام بنشر مايو 1, 2004 قام بنشر مايو 1, 2004 (معدل) الأخ / مهند عبادي السلام عليكم ورحمة الله وبركاته لقد قمت بتجربة الأداة التي قمت بصنعها وهي فعالة في أداء عملها ولكن هناك بعض الملاحظات التي أتمنى عليك محاولة علاجها لأنني بحاجة ماسة لهذه الأداة : 1 - عند تغيير الخط و اللون في الأداة يتوقف الأكسس عن الاستجابة خصوصا في التقرير . (( يعلق )) . 2 - لا يمكن تغيير تأثيرات الشكل أي أنها دائما بشكل محفور . 3 - لا يمكن التحكم بالهوامش داخلها لمن يرغب بترك مسافة بين حافة مربع النص وبداية السطر . 4 - عدم وجود أشرطة تمرير في الأداة للنصوص الكبيرة . ملاحظة ( 1 ) : لقد قمت باتباع جميع الخطوات التي ذكرتها في ردودك السابقة على بقية الأخوة . ملاحظة ( 2 ) : أنا أستخدم Windows XP مع Access2003 تم تعديل مايو 1, 2004 بواسطه Access XP
Access XP قام بنشر مايو 1, 2004 قام بنشر مايو 1, 2004 (معدل) أخي العزيز / مهند عبادي كل الشكر لك لسرعة تجاوبك وسعيك لمساعدة زملائك ولدى ملاحظة أخرى (( أرجو أن تكون الأخيرة )) هل يمكن جعل الأداة قابلة للنمو كما في مربع النص العادي ( أي أنها تتوسع عموديا حسب النص ) . وتقبل تحياتي وأمنياتي لك بالتوفيق تم تعديل مايو 1, 2004 بواسطه Access XP
مهند عبادي قام بنشر مايو 2, 2004 الكاتب قام بنشر مايو 2, 2004 أخي Access XP إن جعل الأداة قابلة للنمو هو شيء ممكن ولكنه يمكن أن يوقع في مشاكل إذا كان النص طويلاً جداً
Access XP قام بنشر مايو 2, 2004 قام بنشر مايو 2, 2004 الأخ / مهند عبادي حفظك الله إنني بحاجة ماسة إلى الأداة مع خاصية النمو التلقائي حيث أنني احتاجها في طباعة تقارير قد تصل إلى صفحتين أحيانا وعلى أبعد تقدير ثلاثة صفحات ... لذا أتمنى عليك أن تجعلها من نسختين الأولى غير قابلة للنمو وأخرى قابلة للنمو وترك الاختيار بينهما حسب الحاجة وبعد التجربة يقرر الأخوة ما يريدون . كل الشكر لك على تجاوبك ... وأمنياتي لك بالتوفيق
مهند عبادي قام بنشر مايو 3, 2004 الكاتب قام بنشر مايو 3, 2004 أخوتي الأعزاء لقد تم تعديل الأداة بشكل مهم .. لتحميل التحديث : http://www.arabteam2000-forum.com/index.ph...ndpost&p=194344
Access XP قام بنشر مايو 3, 2004 قام بنشر مايو 3, 2004 (معدل) الأخ العزيز / مهند عبادي لقد قمت بتجربة الأداة يعد تعديلها وكانت رائعة الأداء ضمن التعديلات التي أجريتها عليها . ولكن بقيت بعض الملاحظات : خاصية ( قابلة للنمو ) لا تعمل رغم إضافتها . عند القيام بأية تعديلات على النص كإضافة حرف أو حذف حرف في الفورم فإن النص الذي يلي ذلك التعديل يتحول إلى المحاذاة اليمنى في حين يبقى النص السابق له على المحاذاة في حالة ضبط . عدم إضافة أشرطة تمرير للأداة . خاصية الضبط لا تعمل بشكل جيد مع بعض الخطوط العربية .أخيرا كل الشكر لك نيابة عن بقية الزملاء وأصالة عن نفسي مع أمنياتي لك بالتوفيق تم تعديل مايو 3, 2004 بواسطه Access XP
مهند عبادي قام بنشر مايو 3, 2004 الكاتب قام بنشر مايو 3, 2004 1- خاصية ( قابلة للنمو ) لا تعمل رغم إضافتها : أخي الكريم يجب أن تضع قيمة CanGrow=True وقد جربت هذه الخاصية في نموذج أكسس وعملت بشكل صحيح 2-عند القيام بأية تعديلات على النص كإضافة حرف أو حذف حرف في الفورم فإن النص الذي يلي ذلك التعديل يتحول إلى المحاذاة اليمنى في حين يبقى النص السابق له على المحاذاة في حالة ضبط : إن عملية الضبط لا تتم إلا بعد تحديث النص أو بعبارة أخرى بعد الانتقال من الأداة إلى أداة أخرى 3-عدم إضافة أشرطة تمرير للأداة .. إن شاء الله سأضيفها قريباً لأني نسيت أن أضعها 4- خاصية الضبط لا تعمل بشكل جيد مع بعض الخطوط العربية بسبب حرف الكشيدة في هذه النصوص يكون طويل ويستحيل معه أن يتم الضبط بالشكل المرضي ... وفعلاً هذه مشكلة خطوط
Access XP قام بنشر مايو 4, 2004 قام بنشر مايو 4, 2004 الأخ / مهند عبادي أرجو أن تتحملني قليلا لأنني بحاجة فعلية لهذه الأداة ... أما خاصية قابلة للنمو فقد قمت بتجربتها في التقرير ( حيث الحاجة الفعلية لها ) ولم تعمل معي لأنني في الفورم أحتاج إلى أشرطة التمرير فقط ولا أحتاج إلى خاصية قابلة للنمو . مع خالص تقديري وشكري لتجاوبك السريع .
الردود الموصى بها