موضوع منقول من المنتدي القديم
الكاتب : الهاجري
اريد كود على زر امر يظلل السجل
السلام عليكم
اريد كود على زر امر بمجرد الضغط عليه يظلل السجل الموجود به
زر الامر . افضل ان اختار لون غير الاسود .
اذا فيه احد يعرف فلا يبخل علي بما لديه ..
وسلامتك
الكاتب: alhajri بتاريخ: 8/24/2002 3:07:34 PM
--------------------------------------------------------------------------------
االكود
DoCmd.DoMenuItem acFormBar, acEditMenu, acSelectRecord, , acMenuVer70
اما عن اللون
فلا أعلم طريقة لتغيير اللون الاسود
الكاتب: محمد طاهر بتاريخ: 8/26/2002 12:44:05 AM
--------------------------------------------------------------------------------
إجابة
إذا كان المقصود تحديد السجل فإجابة الأخ محمد كافية
ولإختيار لون آخر يجب أن تغير لون الخط ويسمى اللون الأمامي
أما إذا كنت تريد تغيير لون مربعات النص فوضح المطلوب
ولك تحياتي
الكاتب: ابوحمود. بتاريخ: 8/26/2002 12:53:38 AM
--------------------------------------------------------------------------------
السلام عليكم
من حسن حظي ان قطبي هذا المنتدى هم من يعلموني.
ومرحبا بك ابو حمود مجددا وعودا حميدا .
كود الاخ محمد طاهر هو المطلوب . ولكن اريد ان تتغير لون مربعات النص ايضا باللون الاسود
او غيره بس اهم يشملها التظليل لان النموذج على شكل جدولي
وجزاكم الله خير
تحياتي لكما
--------------------------------------------------------------------------------
alhajri
الكاتب: alhajri بتاريخ: 8/26/2002 12:27:16 PM
----------------------------
إجابة
سبق الإجابة عن تلوين السجلات في نموذج من نوع نماذج مستمرة .
ابحث عنه في الأرشيف أو في المواضيع القديمة وستجد فيه بغيتك إن شاء الله .
ولك تحياتي
الكاتب: ابوحمود. بتاريخ: 8/26/2002 1:06:30 PM
--------------------------------------------------------------------------------
وجدته
وجدت الموضوع ولكن رابط تحميل لا يعمل حاولت دون فائده
ارجو الافاده .
--------------------------------------------------------------------------------
alhajri
الكاتب: alhajri بتاريخ: 8/26/2002 2:22:18 PM
--------------------------------------------------------------------------------
الرابط
هذا رابط للمثال :
http://www.msaccess4arab.com/temp/color.zip
ولك تحياتي
--------------------------------------------------------------------------------
الكاتب: ابوحمود. بتاريخ: 8/26/2002 8:21:13 PM
--------------------------------------------------------------------------------
شكرا لك ابو حمود
مثال ممتاز ورائع جزاك الله خير
على ما بذلته .
تقبل تحياتي
--------------------------------------------------------------------------------
alhajri
الكاتب: alhajri بتاريخ: 8/27/2002 9:38:32 PM
--------------------------------------------------------------------------------
هل يمكن عمل مثل هذا في datasheet
بسم الله الرحمن الرحيم
جزاك الله خير على هذا المثال،
وأريد أن أسأل عن إمكانية تطبيق مثل هذه الفكر ولكن عند عرض النموذج بنمط صفحة البيانات وليس بالنمط العادي المستمر.
وشكرا لك.
--------------------------------------------------------------------------------
الكاتب: أناوهي بتاريخ: 8/27/2002 11:35:14 PM
--------------------------------------------------------------------------------
إجابة
لا أظن ذلك ممكناً .
--------------------------------------------------------------------------------
الكاتب: ابوحمود. بتاريخ: 8/28/2002 3:56:58 AM
--------------------------------------------------------------------------------
ولا بالتنسيق الشرطي...؟
ولا يمكن فعل ذلك أيضا بالتنسيق الشرطي؟
--------------------------------------------------------------------------------
الكاتب: أناوهي بتاريخ: 8/29/2002 12:16:57 AM
--------------------------------------------------------------------------------
الاخ ابو حمود
حاولت ان ازيل هذا الكود DoCmd.Maximize
من حدث عن التحميل . للنموذج ولكن بعد ازاتله
يضيع كل شي يعني افقد التظليل على النموذج
وتاتيني رسالة بخطأ بالكود . هل من حل لازالته
نهائيا مع عدم تغيير في النموذج . ام هذا النموذج مشروط
بوضع DoCmd.Maximize
لتكبير النموج . وانا اريده بمقاس معين
--------------------------------------------------------------------------------
alhajri
الكاتب: alhajri بتاريخ: 8/31/2002 1:17:43 AM
--------------------------------------------------------------------------------
alhajri
الكاتب: alhajri بتاريخ: 8/31/2002 1:30:35 PM
--------------------------------------------------------------------------------
إجابة
عذراً عن التأخر .
لامانع أزله وسيعمل بدون أي مشاكل .
ولك تحياتي
--------------------------------------------------------------------------------
الكاتب: ابوحمود. بتاريخ: 8/31/2002 7:57:44 PM
--------------------------------------------------------------------------------
ولكن حدثت مشكله
ازلته هذا الكود DoCmd.Maximize
وفتحت النموذج وظهرت رسالة خطأ في كود تلوين السجلات
ومضلل بالاصفر lngBuff = frm.PictureData
وفقد النموذج للتظليل السابق للسجلات واصبح لون النموذج ابيض بدون تظليل
ماذا علي ان افعل وكيف استخدم النموج بوضع التظليل
--------------------------------------------------------------------------------
alhajri
الكاتب: alhajri بتاريخ: 9/1/2002 1:14:55 PM
--------------------------------------------------------------------------------
alhajri
الكاتب: alhajri بتاريخ: 9/2/2002 10:25:42 AM
--------------------------------------------------------------------------------
إجابة
لو ترسل لي الملف على بريدي وتحدد لي مكان المشكلة بالضبط :
ولك تحياتي
--------------------------------------------------------------------------------
الكاتب: ابوحمود. بتاريخ: 9/3/2002 10:03:45 PM
--------------------------------------------------------------------------------
هذه المشكله
الاخ ابو حمود
المشكله يمكنك تجربتها على المثال نفسه
قم بحذف كود تكبير النموذج DoCmd.Maximize
ثم افتح النموذج ستجد ان التضليل على السجلات فقد
وتظهر رسالة اعلام بالخطأ في الكود ويظهر المؤشر باللون الأصفر
على هذه الجمله lngBuff = frm.PictureData
انا اريد ان يعرض النموذج كما هو دون تكبير على كامل الشاشه
وبدون ان افقد التظليل على السجلات فقط هذا ما اريده.
المثال على هذا الرابط الذي سبق وان وضعته انت
http://www.msaccess4arab.com/temp/color.zip
تقبل احترامي وتقديري ،،،،،
--------------------------------------------------------------------------------
alhajri
الكاتب: alhajri بتاريخ: 9/4/2002 1:34:32 PM
--------------------------------------------------------------------------------
إجابة
لقد جربت مرة أخرى لزيادة التأكد ولم يتغير شيء كل شيء شغلا بدون أخطاء علماً أن لدي الأوفس اكس بي .
لعل أحد الأخوة يجرب ويعطينا النتيجة .
هل أزلت هذا السطر فقط :
DoCmd.Maximize
أم :
DoCmd.Maximize
Call اللون_AfterUpdate
إذا كان جوابك هو الأول فهذا ما فعلته أنا بالضبط ولم يحدث خطأ .
لك تحياتي
--------------------------------------------------------------------------------
الكاتب: ابوحمود.
هذا فقط
DoCmd.Maximize ازلته من حدث عند التحميل للنموذج
وحدث ذلك الخطأ في الكود وفقد التظليل .
وانا استخدم اوفيس 2000
شكرا على ما قدمته جزيل الشكر
وجزاك الله خير
--------------------------------------------------------------------------------
alhajri
الكاتب: alhajri
