سؤال : هل يمكن دمج السجلات في الجدول، بهذه الطريقة ؟

[اشرف السيد يوسف]

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

مرفق.accdb

[Foksh]

اخي @اشرف السيد يوسف ، ارجو منك الإهتمام بعنوان الموضوع اولاً ، ثم اذا كان هذا الطلب يتبع موضوع سابق استكماله في المشاركة الأصلية لك لتحقيق النتيجة المطلوبة التي تريدها 🤗 

 

ولأني خارج المنزل حالياً لم أكمل معك طلبك السابق.

 

اتمنى أن تجد الحل من أحد الإخوة والأساتذة 🥰

[اشرف السيد يوسف]

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

 

[عبد اللطيف سلوم]

3 ساعات مضت, اشرف السيد يوسف said:

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

مرفق.accdb 560 kB · 0 downloads

اخي اشرف يا ريت توضح طلبك مشان نقدر نساعدك 

ايش المطلوب ؟؟ ايش يعني دمج السجلات ؟؟

يا ريت توضح الفكرة اكثر

[عبد اللطيف سلوم]

الأخ @اشرف السيد يوسف

منذ ساعة وأنا انتظرك 

لما تنزل موضوع من اربع ساعات على الاقل كل ساعة ادخل اتفقد الوضع 

[اشرف السيد يوسف]

اتأسف لحضرتك لأنتظارك زشكرأ لتعبك

المطلوب دمج السجلين بسجل واحد مع تحريك البيانات من السجل الثانى الى مواضع الجقول الموضحة بالصورة

[kanory]

1 ساعه مضت, اشرف السيد يوسف said:

المطلوب دمج السجلين بسجل واحد مع تحريك البيانات من السجل الثانى الى مواضع الجقول الموضحة بالصورة

رغم ان العنوان لا يمثل المطلوب وهذا مخالف لترتيبات وقوانين المنتدى .....

لكن بعد الدمج ماهو مصير السجل الثاني ( هل يحذف أم يبقى في الجدول ) ....... 

 

[اشرف السيد يوسف]

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

 

[Foksh]

30 دقائق مضت, اشرف السيد يوسف said:

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

 

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

ثم ماذا لو كانت اكثر من سجلين 🧐 هل أيضاً سيتم الاستغناء عنها في حال كان احد الحقول غير فارغ مكرراً !!

[kanory]

Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim R As Integer
Dim firstRecordFields As String
Dim firstRecordFields1 As String

Set rs1 = CurrentDb.OpenRecordset("SELECT Table1.الاسم FROM Table1 GROUP BY Table1.الاسم;", dbOpenDynaset)
rs1.MoveLast: rs1.MoveFirst
R = rs1.RecordCount

For i = 1 To R
        Set rs = CurrentDb.OpenRecordset("SELECT Table1.الاسم, Table1.العمل1, Table1.العمل2, Table1.اللجنة1, Table1.اللجنة2 " & _
                                        " FROM Table1 " & _
                                        " WHERE (((Table1.الاسم)=""" & rs1!الاسم & """));", dbOpenDynaset)
        If Not (rs.BOF And rs.EOF) Then
            rs.MoveLast
            firstRecordFields = rs!العمل1
            firstRecordFields1 = rs!اللجنة1
            rs.MoveFirst
            rs.Edit
            rs!العمل2 = firstRecordFields
            rs!اللجنة2 = firstRecordFields1
            rs.Update
        End If
        rs1.MoveNext
Next i
rs.Close
rs1.Close
Set rs = Nothing
Set rs1 = Nothing

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

 

[اشرف السيد يوسف]

لا أدرى كيف اشكر سيادتك على وقتك ومجهودك 

ولكن هذا الكود يوضع فى وحدة نمطية ام ماذا .لك الشكر

[اشرف السيد يوسف]

شكر جليل للأستاذ kanory

[kanory]

ممكن في وحدة نمطية وتناديها من النموذج

او تعمل زر وتلصق الكود مباشرة فيه

بالتوفيق

[اشرف السيد يوسف]

الأخ kanory لكم جزيل الشكر