تلوين الارقام المكررة

[jabrah]

اخوتى الاكارم بعد التحية 

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

[Shivan Rekany]

اهلا بك في منتداك منتدى اوفيسنا

اتفضل اليك هذا الرابط به ما تريد

 

[jabrah]

اخى الكريم 

مرفق المطلوب حيث اننى ارغب فى كود يقوم بتلوين ارقام الصنف بلون مختلف لكل رقم مكرر - لك تحياتىالاصناف المتكررة.rar

[jabrah]

فى انتظار ردك استاذنا الفاضل؟

[jabrah]

اخى الكريم......هل موضوعى لا يوجد له حل ؟؟

[Shivan Rekany]

في ٦‏/٨‏/٢٠١٧ at 03:15, jabrah said:

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

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

في ٥‏/٨‏/٢٠١٧ at 19:16, jabrah said:

بتلوين الارقام المكررة فى اكسس الوان مختلفة لكل رقم مكرر حتى يسهل حذف ما هو ليس بحاجة اليه

اذا تريد ان تحذف كل سجلات المكررة ويبقى سجل واحد ؟ هذا شيء اخر!

[jabrah]

اخى الفاضل ...المطلوب تلوين الرقم المتكرر بلون يختلف عن لون الرقم المتكرر  الاخر ....واقوم باختيار ما يمكن حذفه ارجو ان تكون وضحت الفكرة ولك فائق شكرى لتفاعلك معى ودمت

[jabrah]

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

[Shivan Rekany]

24 دقائق مضت, jabrah said:

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

الان تريد ان يحذف السجلات المكررة حسب اي حقل 
حسف الصنف .. اي يبقى سجل واحد لكل صنف
ام حسب الرقم الصنف .. اي يبقى سجل واحد لكل رقم صنف 

واليك هذا الرابط حتى ترد علينا

 

[jabrah]

شكرا اخى على سرعة الرد المطلوب حذف السجل كامل : الصنف + رقم الصنف + التاريخ واى بيانات اخرى وجدت بالسجل حذف كامل والابقاء على سجل واحد فقط بالجدول - مع فائق شكرى

[Shivan Rekany]

4 ساعات مضت, jabrah said:

شكرا اخى على سرعة الرد المطلوب حذف السجل كامل : الصنف + رقم الصنف + التاريخ واى بيانات اخرى وجدت بالسجل حذف كامل والابقاء على سجل واحد فقط بالجدول - مع فائق شكرى

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

DELETE [Table-1].ID, [Table-1].L, [Table-1].M, [Table-1].D
FROM [Table-1]
WHERE ((([Table-1].ID) Not In (SELECT First(id)  FROM [Table-1] GROUP BY L;)));

اي سيخليه سجل الاول من كل الصنف وسيحذف الاخر

واليك ملفك بعد تعديل

 

الاصناف المتكررة.rar

[jabrah]

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

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

[Shivan Rekany]

10 ساعات مضت, jabrah said:

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

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

لان عندك تقرير اخر وبيظهر التكرار فيه

لذالك هذا الكود بيعمل المطلوب

On Error Resume Next
If DCount("*", "q1") = 0 Then
        MsgBox "ليس لدينا اي سجل مکرر"
    Else
DoCmd.SetWarnings False
    DoCmd.OpenQuery "QUERY1", acViewNormal
DoCmd.SetWarnings True
Me.Requery
End If

 

[jabrah]

اشكرك اخى الفاضل ارجو ان تتحملنى قليلا ....هل يمكن اضافة رساله اخرى فى الكود تفيد بعدد السجلات التى سوف يتم حذف مع (موافق ) أو (لا) ......السؤال الاخير هل الكود يقوم بحذف السجلات فى الجدول الرئيسى ايضاً؟ اعتذر منك لقد اكثرت عليك بالاسئلة .......لك فائق شكرى وتقديرى