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

هل من طريقة لجعل كل السجلات المتشابهه تأخذ لون معين


mr steev

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

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين 
اخوانى الكرام 
عندى نموذج مستمر يحتوى على حقل كود_الموظف وباقى الحقول الاخرى 
حقل كود_الموظف متكرر فى هذا النموذج 
هل من طريقة لجعل كل السجلات المتشابهه تأخذ لون معين 
فمثلا كود الموظف 1001 هذا الكود يتكرر عددة مرات وكذلك كود 1002 ----- فهل نستطيع ان نجعل كل السجل الخاص برقم 1001 ياخذ لون واحد وليس حقل فقط وان نجعل كل السجل الخاص برقم 1002 ياخذ لون اخر

يوجد مثل مرفق 
 

تلوين السجلات.rar

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

12 دقائق مضت, mr steev said:

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين 
اخوانى الكرام 
عندى نموذج مستمر يحتوى على حقل كود_الموظف وباقى الحقول الاخرى 
حقل كود_الموظف متكرر فى هذا النموذج 
هل من طريقة لجعل كل السجلات المتشابهه تأخذ لون معين 
فمثلا كود الموظف 1001 هذا الكود يتكرر عددة مرات وكذلك كود 1002 ----- فهل نستطيع ان نجعل كل السجل الخاص برقم 1001 ياخذ لون واحد وليس حقل فقط وان نجعل كل السجل الخاص برقم 1002 ياخذ لون اخر

يوجد مثل مرفق 
 

تلوين السجلات.rar

اتفضل

شوف الصورة مع استخدام جملة الشرطية

Capture.PNG.2d8e6f59f210877cd33441c4031902b3.PNG

اتفضل مع ملفك بعد عمل عليها

تلوين السجلات.rar

تحياتي

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

هذه الطريقة معروفة بالنسبة وليس هذا هو المطلوب

المطلوب هو تغيير اللون مع تغيير الرقم في كل مرة تلقائيا بدون وضع التنسيق الشرطي في كل مرة يتم فيها اضافة رقم جديد

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

37 دقائق مضت, mr steev said:

هذه الطريقة معروفة بالنسبة وليس هذا هو المطلوب

المطلوب هو تغيير اللون مع تغيير الرقم في كل مرة تلقائيا بدون وضع التنسيق الشرطي في كل مرة يتم فيها اضافة رقم جديد

عندك كم الوان .. هل عدد الالوان اللي عندك بيكون يساوي مع عدد الارقام ؟

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

اخي الكريم لنفرض انني اخترت لونين الأصفر والابيض

والمراد ان يكون اللون مختلف لكل عدد من السجلات مختلفة بالرقم

اي السجلات التي تحمل رقم ١٠٠١ لون السجلات  اصفر

ثم السجلات التي تحمل رقم ١٠٠٥ لون السجلات ابيض

ثم السجلات التي تحمل رقم ١٠٠٨ لون السجلات اصفر

ثم السجلات التي تحمل رقم ١٠٠٩ لون السجلات ابيض

اي يختلف اللون باختلاف الرقم بالسجل التالي 

اتمنى ان تكون وصلت سائغة لكم 

وجزاكم الله خير 

 

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

41 دقائق مضت, mr steev said:

اخي الكريم لنفرض انني اخترت لونين الأصفر والابيض

والمراد ان يكون اللون مختلف لكل عدد من السجلات مختلفة بالرقم

اي السجلات التي تحمل رقم ١٠٠١ لون السجلات  اصفر

ثم السجلات التي تحمل رقم ١٠٠٥ لون السجلات ابيض

ثم السجلات التي تحمل رقم ١٠٠٨ لون السجلات اصفر

ثم السجلات التي تحمل رقم ١٠٠٩ لون السجلات ابيض

اي يختلف اللون باختلاف الرقم بالسجل التالي 

اتمنى ان تكون وصلت سائغة لكم 

وجزاكم الله خير 

 

اليك هذا

 

تلوين السجلات.rar

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

19 ساعات مضت, mr steev said:

عذرا أخي لقد اتعبتك معي ولم نصل إلى نتيجة ربما لأنني لم أستطيع أن أوصل لك ما أريد

سأضع صورة في المرفق توضح لك ما أريد تماما

Untitled.jpg

هل تريد هكذا

Capture.JPG.5caf7779eb9aafea9cbaa6b32944553a.JPG

اتفضل

تلوين السجلات.rar

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

6 ساعات مضت, Shivan Rekany said:

هل تريد هكذا

Capture.JPG.5caf7779eb9aafea9cbaa6b32944553a.JPG

اتفضل

تلوين السجلات.rar

الى هنا اقول وباعلى صوت

حق لك ان تصبح خبير واكثر استاذ شيفان 

 

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

2 دقائق مضت, رمهان said:

الى هنا اقول وباعلى صوت

حق لك ان تصبح خبير واكثر استاذ شيفان 

 

الله یجزیک كل خير اخي واستاذي رمهان

انا مش مستحق لذلك

وشكرا لك على كلامك 

تحياتي

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

السلام عليكم

جزاك الله خيرا اخي الكريم

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

 الشرط لدي تشابه السجلات بالاسم والرقم مرة لون ازرق والتالي لون اخضر  وليس الشرط الاعداد الفردية والاعداد الزوجية

وفي النهاية عذرا لو كنت قد اتعبتك معي ولكن لقد تعودت على هذا المنتدى بالكرم والعطاء وتعودتم علينا بكثرة السؤال

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

5 دقائق مضت, mr steev said:

 الشرط لدي تشابه السجلات بالاسم والرقم مرة لون ازرق والتالي لون اخضر  وليس الشرط الاعداد الفردية والاعداد الزوجية

مرحبا اخي مستر ستيف

تكرما اضافة الملاحظة بمثال على عمل الاستاذ شيفان .

كان تقول لو اضفنا الرقم كذا ثم اضفنا كذا لحصل الخطأ هذا 

ولذلك حتى يتضح المطلوب تماما 

تحياتي

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

يبدو انني فهمت المطلوب 

الان سؤال : هل يمكن ان يعود الرقم مره اخرى بعد فاصل ارقام

مثلا هل سيعود 1001 كالتالي

1001

1001

1001

1005

1005

1002

1001

1001

واذا كان سيعود هل :

1. سيتم اعادة ترتيب السجلات ليظهر مرتبا وستظهر جميع الارقام مرتبه ؟ ام سيضل في موقعه الحالي ؟

2. لو عاد مره اخرى وظل في موقعه الحالي هل لابد ان ياخذ نفس اللون السابق له ؟ ام ياخذ اللون امختلف حسب موقعه الجديد ؟

والله سؤال محير حبتين ..

بالتوفيق

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

1 دقيقه مضت, mr steev said:

لا لن يعود الرقم 1001 لان المطلوب هو لاستخراج تقرير والارقام مرتبة ترتيب تصاعدي

تمام

نعود ان شاء الله 

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

35 دقائق مضت, رمهان said:

تمام

نعود ان شاء الله 

الان وقت النوم غدا راح اشوف لاني عندي دوام 

وغدا ساتابع ان شاء الله

اکید عندک شی ماعندنا

کل مرة عندك حل اضافي

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

جرب

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

وان شاء الله نلاقي وقت ويتم التحسين

 

بالتوفيق

تلوين السجلات.rar

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

أعطاك الله عافية لا سقم بعدها استاذ رمهان

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

حبذا لو أستطيع الرجوع إلى فكرة الاستاذ شيفان مع اضافة الترقيم التسلسلي تلقائيا بالكود

فيصبح المطلوب كما هو موضح بالشكل التالي 

Untitled2.jpg

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

21 ساعات مضت, mr steev said:

أعطاك الله عافية لا سقم بعدها استاذ رمهان

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

حبذا لو أستطيع الرجوع إلى فكرة الاستاذ شيفان مع اضافة الترقيم التسلسلي تلقائيا بالكود

فيصبح المطلوب كما هو موضح بالشكل التالي 

Untitled2.jpg

حسب فهمي لطلبك
اتفضل هذا

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

كما مبينة في الكود

Private Sub Form_Current()
Me.Text11 = Me.id
Me.Text13 = Nz(DMax("[id3]", "table1"), 0) + 1
Me.Text16 = Me.id3
End Sub

واضفنا زر للترقيم 
وعطيتناه هذا الكود

Private Sub Command15_Click()
Dim Re As Integer
Dim sql As String
Re = DCount("[id]", "table1")
DoCmd.GoToRecord , , acFirst
For i = 1 To Re - 1
Me.Text16 = Me.id3
If Me.Text16 = "" Or IsNull(Me.Text16) = True Then
sql = "UPDATE Table1 SET Table1.id3 = [Forms]![f1]![Text13] WHERE (((Table1.id)=[Forms]![f1]![Text11]));"
DoCmd.RunSQL (sql)
End If
DoCmd.GoToRecord , , acNext
Next
End Sub

وفي حقل اي دي 3 في جملة الشرطية عطيتنا هذا الكود

[id3] Mod 2=0
[id3] Mod 2=1

لكل شرط عطيتناه لون
والنتيجة طلعت هكذا

Capture.JPG.83d8c9c8d2b7a54ee19c5208e9e364cf.JPG

هل هذا هو كان طلبك
وافيني بالنتيجة

تحياتي

تلوين السجلات.rar

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

اخي الكريم

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

المطلوب باختصار لاستخراج هذا التقرير هو 

تناوب لونين في السجلات 

الأرقام ليست متسلسلة واحيانا مكررة واحيانا ليست مكررة في حالة الترتيب التصاعدي

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

5 ساعات مضت, mr steev said:

اخي الكريم

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

المطلوب باختصار لاستخراج هذا التقرير هو 

تناوب لونين في السجلات 

الأرقام ليست متسلسلة واحيانا مكررة واحيانا ليست مكررة في حالة الترتيب التصاعدي

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

عل الرغم ان انا عملت في مشاركتي السابقه‌ كما طلبت من مشاركت السابقة
لكن الان غير المطلوب من جديد
اتفضل هذه المرة بها تقرير واحد و نموذج واحد
وعملت كلا من حالتين
بالكود
وبالاستعلام

تحياتي

اتفضل

تلوين السجلات (1).rar

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

السلام عليكم وعذرا على التاخير للانشغال قليلا

الاستاذ شيفان مبدع باكواده

الاخ ستيف 

كود الاستاذه زهره خاص بالتقرير وليس بالنموذج وسؤالك في الاصل يخص نموذج مستمر

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

الفكره رائعة كروعة صاحبتها وهي تشابهت مع فكرتي في ان الشرط قيم بولين وتتغير في اماكن محدده

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

عليك حذف خاصية اللون البديل لتفصيل التقرير = بدون لون no color . وان شاء الله يمشي معاك

الان :

اذا كان المطلوب بتقرير فهناك حل الاستاذه زهره يكفي ويمكن اختصاره 

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

تحياتي

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

الأساتذة الكرام جزاكم الله خيرا

أما المطلوب حقيقة هو لنموذج مستمر ونحن ننتظر الفكرة الناضجة والمختصرة بفارغ الصبر

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

 

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information