مهند عبادي

أخي الكريم إذا كان ما تقول صحيح حيث أني لم أجرب هذه الخاصية في التقرير .. فعندك حل بديل وهو أن تضع مربع نص بنفس عرض الأداة وتعطيه خاصية النمو .. ثم تعين قيمة النص به إلى : text1.text=MagicText0.getproperlytext

1- خاصية ( قابلة للنمو ) لا تعمل رغم إضافتها : أخي الكريم يجب أن تضع قيمة CanGrow=True وقد جربت هذه الخاصية في نموذج أكسس وعملت بشكل صحيح 2-عند القيام بأية تعديلات على النص كإضافة حرف أو حذف حرف في الفورم فإن النص الذي يلي ذلك التعديل يتحول إلى المحاذاة اليمنى في حين يبقى النص السابق له على المحاذاة في حالة ضبط : إن عملية الضبط لا تتم إلا بعد تحديث النص أو بعبارة أخرى بعد الانتقال من الأداة إلى أداة أخرى 3-عدم إضافة أشرطة تمرير للأداة .. إن شاء الله سأضيفها قريباً لأني نسيت أن أضعها 4- خاصية الضبط لا تعمل بشكل جيد مع بعض الخطوط العربية بسبب حرف الكشيدة في هذه النصوص يكون طويل ويستحيل معه أن يتم الضبط بالشكل المرضي ... وفعلاً هذه مشكلة خطوط

أخوتي الأعزاء لقد تم تعديل الأداة بشكل مهم .. لتحميل التحديث : http://www.arabteam2000-forum.com/index.ph...ndpost&p=194344

أخي Access XP إن جعل الأداة قابلة للنمو هو شيء ممكن ولكنه يمكن أن يوقع في مشاكل إذا كان النص طويلاً جداً

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

لا يوجد خلل في الكود هذا ... وإن خاصية Text لا تظهر ضمن قائمة خصائص الأداة في أكسس .. ولكنها موجودة ويمكن استخدامها في الكود

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

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

أخي مصلح الحريصي رسائل الخطأ هذه سببها أنك بعد أن سجلت الأداة لأول مرة قمت بنسخ الأداة معّدلة فوقها .. أو أنك صممت النموذج باستخدام الأداة ثم نسخت الأداة المعدّلة في جهازك لذلك يجب عليك ما يلي : 1- إلغاء تسجيل الأداة ثم إعادة تسجيلها 2- حذف الأداة من النموذج ثم إدراجها مرة ثانية وتسميتها بنفس الاسم وستحل هذه المشكل أيضاً ماذا تقصد بخاصية التمدد والإنكماش ؟؟

أخي أبو هادي.. المشكلة عرفتها وتم حلها بشكل نهائي وكانت تحدث بسبب التشكيل للكلمات حيث أن الكود لم يكن يعالج وجود تشكيل وكذلك تم إضافة خاصية Alignment جرب حمل الأداة بعد تعديلها من هنا http://www.arabteam2000-forum.com/index.ph...=post&id=193556

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

أخي أبو هادي .. ما هي الآية التي عينتها لها ؟؟؟ أو ما هو عدد كلمات تلك الآية حتى أعرف سبب ما حصل معك

أخي الكريم مصلح الحريصي أود لفت انتباهك إلى أن هذه الأداة حتى تعمل يجب أن لا يكون هناك رمز الإدخال في نهاية كل سطر .. بل يجب أن تكون الأسطر مستمرّة كما أن هذه الأداة تم تجريبها من حوالي 100 مستخدم وعملت بشكل صحيح عندهم على أي حال بالنسبة للمثال الذي وضعت صورته .. لقد قمت بكتابته نفسه في نموذج أكسس وعملت الأداة بشكل صحيح وسأرفق لك هذا النموذج حتى تجربه عندك وتراه وإذا لم يعمل كما هو متوقع مني فأرجو إخباري .. ربما تكون الأداة قد لحق بها بعض الأخطاء أثناء تحميلك لها !! Text.rar

http://www.arabteam2000-forum.com/index.ph...15entry193497

أخي أبو هادي أسلوبك ممتاز والـ Sub ما عليه أي كلام و قابل للعمل في أي فورم بالنسبة للأخوة الذين طلبوا بعض التعديل في الكود فأرغب في لفت انتباهكم إلى وجود اختصار جاهز في أكسس لنسخ بيانات أحد الحقول في السجل الأخير هذا الاختصار هو Ctrl+'

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

أخي worker في الأسلوب الثاني مجرد أن يمضي 3 أيام يتم قفل السجلات .. إلا إذا قام المستخدم بتغيير تاريخ الجهاز قبل تشغيل البرنامج في اليوم الرابع وهذا احتمال ضعيف أو أنك ستحتاج إلى قاعدة أخرى لحماية السجلات ( مثلاً بعد 5 مرات تشغيل البرنامج ) ..

تفضل أخي .. هذا هو طلبك وأضفت أنا بعض الأشياء الأخرى ______.rar

أخي Worker .. أحمد الله أنك وصلت لمبتغاك .. ولكني أنوه إلى أن هذه الطريقتك غير مجدية لأنه بسهولة يستطيع المستخدم تغيير تاريخ الجهاز وبذلك يستطيع تحرير وحذف السجلات القديمة .. ولو كنت مكانك لقمت بشيء آخر ... وهو إضافة حقل آخر للجدول من النوع نعم/لا يشير إلى إمكانية التعديل في السجل وليكن اسمه FldAllowEdit بقيمة افتراضية True ، وعند كل بدء تشغيل للبرنامج أقوم بتشغيل استعلام من شأنه وضع قيمة False لكل السجلات التي مضى على إنشائها 3 أيام فأكثر .. ثم أضع هذا الحدث في النموذج : Private Sub Form_Current() If [FldAllowEdit] Then Me.AllowEdits = False Me.AllowDeletions = False Else Me.AllowEdits = True Me.AllowDeletions = True End If End Sub

أخي worker .. 1- أضف حقل من نوع تاريخ إلى الجدول وليكن اسمه WriteDate 2- ضع في خاصية القيمة الافتراضية لهذا الحقل القيمة now 3- في نموذج البرنامج ضع هذه الشفرة : Private Sub Form_Current() If DateDiff("d", [WriteDate], Now()) >= 3 Then Me.AllowEdits = False Me.AllowDeletions = False Else Me.AllowEdits = True Me.AllowDeletions = True End If End Sub

في أكسس عند استخدام هذه الأداة قد لا تظهر هذه الخصائص : Font1TopMargin للتحكم في ارتفاع خط النص الرئيسي Font2TopMargin للتحكم في ارتفاع خط النص الثاني Text : النص

أخي جمال فايز انسخ هذا التعبير وضعه في الاستعلام : المعدل: Int([المجموع]/0.12)/100

السلام عليكم أرجو أن يعجبكم هذا المثال Tree.rar

أخي عاشق ... لقد صممت لك خصيصاً .. ولكل الأخوة عموماً أداة OCX خاصة لعرض الصيغ الكيميائية وأسلوب استخدام هذه الأداة هو كما يلي : إذا أردت أن تكتب CO2 بالشكل الكيميائي .. تكتب في خاصية Text : CO#2 أمثلة أخرى H#2SO#4 N#3#4 ويمكنك أن تبدل رمز # إلى أي رمز آخر من خلال خواص هذه الأداة كما يمكنك أن تتحكم بخط كتابة الأحرف أو الرمز بشكل كامل .. لذلك فهذه الأداة تعطينا إمكانية كتابة المعادلات الرياضية أيضاً التي فيها رفع لقوة وبهذا الشكل أخي عاشق تستطيع أن تخزن الرموز الكيميائية في حقل نص عادي وإذا أردت أن أقوم بأي تعديل للأداة فأنا جاهز MagicChemicalBox.ocx

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