حذف البيانات المكررة

[ًعبد من عباد الله]

السلام عليكم

بالمرفق استعلام بحث عن تكرار البيانات في حقل "مذكرة"

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

حذف البيانات المكررة.accdb

[Shivan Rekany]

  في 20‏/2‏/2018 at 07:35, وائل أبو عبد الرحمن said:

السلام عليكم

بالمرفق استعلام بحث عن تكرار البيانات في حقل "مذكرة"

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

حذف البيانات المكررة.accdbFetching info...

Expand  

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

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


 

حذف البيانات المكررة.accdb

[ًعبد من عباد الله]

أستاذ شيفان

بداية شكرا لحضرتك علي مشاركتك الإيجابية

  في 20‏/2‏/2018 at 07:52, Shivan Rekany said:

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

Expand  

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

- هل مع كل جدول لابد أن أنشيء جدول جديد للجدول الأصلي وعمل استعلام جديد مع الاستعلام الأصلي كما فعلت أنت.

- أين وكيف سأحذف البيانات المكررة بعد حصرها مع ملاحظة أني أريد معاينة المكرر أولا قبل حذفه.

أكرر شكرى لك

تم تعديل فبراير 20, 2018 بواسطه وائل أبو عبد الرحمن

[Shivan Rekany]

  في 20‏/2‏/2018 at 08:09, وائل أبو عبد الرحمن said:

- هل مع كل جدول لابد أن أنشيء جدول جديد للجدول الأصلي وعمل استعلام جديد مع الاستعلام الأصلي كما فعلت أنت.

Expand  

نعم واحذف الجدول الاصلي بعدين

  في 20‏/2‏/2018 at 08:09, وائل أبو عبد الرحمن said:

- أين وكيف سأحذف البيانات المكررة بعد حصرها مع ملاحظة أني أريد معاينة المكرر أولا قبل حذفه.

Expand  

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

[ًعبد من عباد الله]

أستاذى الكريم

أريد حصر التكرار سواء في جدول أو استعلام لمعاينته ثم أقوم بحذف المتكرر يدويا لا أن يتم الحذف تلقائيا لأن الاستعلام الذي يظهر التكرار لا يستجيب للحذف 

[Shivan Rekany]

  في 20‏/2‏/2018 at 08:55, وائل أبو عبد الرحمن said:

أستاذى الكريم

أريد حصر التكرار سواء في جدول أو استعلام لمعاينته ثم أقوم بحذف المتكرر يدويا لا أن يتم الحذف تلقائيا لأن الاستعلام الذي يظهر التكرار لا يستجيب للحذف 

Expand  

اتفضل اليك هذا 
 

حذف البيانات المكررة.accdb

[ًعبد من عباد الله]

أستاذ Shivan Rekany

بداية أعتذر عن التأخير الاضطراري في الرد.

  في 20‏/2‏/2018 at 09:47, Shivan Rekany said:

اتفضل اليك هذا 

Expand  

ثانيا ما شاء الله ما تفضلت به هو المطلوب فجزاك الله خيرا

ثالثا إذا سمحت لي - بارك الله فيك - بطلب أخير استكمالا للأمر وهو فصل اسم التعريف في حقل نص التعريف T3reeftText بنقله إلي حقل التعريف AlT3reef بالنسبة للحقول التي لا يوجد بها تعريف حتى لا أضطر لفعل ذلك يدوياً وبالمثال يتضح المقال.

مثلاً في السجل رقم 5576 نجد في حقل نص التعريف الجملة التالية:-

استعبر : استفعل من العَبْرة ، وهي تَحلُّب الدمع

والمطلوب هو نقل كلمة استعبر "أي ما يمثل كلمة التعريف" إلي حقل التعريف وحذف الـ ( : ) وبقاء باقي الجملة في حقل نص التعريف ووضع نقطة نهاية الجملة ليصبح هكذا وشكرا جزيلا لحضرتك.

تم تعديل فبراير 20, 2018 بواسطه وائل أبو عبد الرحمن

[ًعبد من عباد الله]

للرفع

 

[ًعبد من عباد الله]

أستاذ Shivan Rekany

مع الشكر هل من إجابة لطلبي الأخير

[Shivan Rekany]

  في 20‏/2‏/2018 at 15:26, وائل أبو عبد الرحمن said:

استعبر : استفعل من العَبْرة ، وهي تَحلُّب الدمع

والمطلوب هو نقل كلمة استعبر "أي ما يمثل كلمة التعريف" إلي حقل التعريف وحذف الـ ( : ) وبقاء باقي الجملة في حقل نص التعريف ووضع نقطة نهاية الجملة ليصبح هكذا وشكرا جزيلا لحضرتك.

Expand  

اتفضل
تم العمل هذه الوحدة النمطية
 

Option Compare Database
Option Explicit
Public Function GetQablaRimoz(SText)
    Dim i
    Dim Text
    Dim Nu As Integer
    For i = 1 To Len(SText)
        If (Mid(SText, i, 1)) = ":" Then
            Nu = Nu + 1
            Text = Text & Mid(SText, i, 1)
        End If
    Next
        Dim LArray() As String
        LArray = Split(SText, ":")
    If Nu > 0 Then
            GetQablaRimoz = LArray(0)
    End If
End Function
Public Function GetBaadaRimoz(SText)
    Dim i
    Dim Text
    Dim Nu As Integer
    For i = 1 To Len(SText)
        If (Mid(SText, i, 1)) = ":" Then
            Nu = Nu + 1
            Text = Text & Mid(SText, i, 1)
        End If
    Next
        Dim LArray() As String
        LArray = Split(SText, ":")
    If Right(SText, 1) <> "." Then
            If Nu = 0 Then
                    GetBaadaRimoz = SText & " ."
                ElseIf Nu = 1 Then
                    GetBaadaRimoz = LArray(1) & " ."
                ElseIf Nu = 2 Then
                    GetBaadaRimoz = LArray(1) & LArray(2) & " ."
                ElseIf Nu = 3 Then
                    GetBaadaRimoz = LArray(1) & LArray(2) & LArray(3) & " ."
            End If
        Else
            If Nu = 0 Then
                    GetBaadaRimoz = SText
                ElseIf Nu = 1 Then
                    GetBaadaRimoz = LArray(1)
                ElseIf Nu = 2 Then
                    GetBaadaRimoz = LArray(1) & LArray(2)
                ElseIf Nu = 3 Then
                    GetBaadaRimoz = LArray(1) & LArray(2) & LArray(3)
            End If
    End If
End Function

وهذه الاستعلامات التحديث Q1
 

UPDATE T3reeft SET T3reeft.AlT3reef = GetQablaRimoz([T3reeft]![T3reeftText])
WHERE (((T3reeft.AlT3reef) Is Null));

 Q2
 

UPDATE T3reeft SET T3reeft.T3reeftText = GetBaadaRimoz([T3reeft]![T3reeftText]);

قم بتشغيل استعلام الاول وبعدين الاستعلام الثاني
اليك المرفق 
 

حذف البيانات المكررة.accdb

[ًعبد من عباد الله]

ما شاء الله 

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