ترحيل جداول الي جدول واحد

[2saad]

السلام  عليكم ورحمة الله وبركاته

محتاج ارحل بيانات جدول data1 و data1 و data3 الي data

يا ريت مع الشرح لآني مبتدئ وعايز افهم

وشكرا لكم جميعا وكل عام وأنتم طيبونقاعدة بيانات مدرسية (2).accdb

[kkhalifa1960]

تفضل أستاذ @2saad محاولتي حسب مافهمت . تم عمل استعلام تجميعي للجداول (Data1,Data2,Data3) وهو (Query1) . ثم عمل استعلام  بناء الجدول (Data) وهو (Query2) وأخذ قيمه 

من الاستعلام التجميعي (Query1) ثم حفظه وغلقه .ثم الضغط مرتان عليه بتظهر لك رسالة وافق عليها بنعم ثم اذهب للجدول (Data) بتحصل مبتغاك . اليك المرفق . ووافني بالرد .

واذا كان هذا طلبك لا تنسى الضغط على افضل اجابة .

قاعدة بيانات مدرسية (2).rar

[2saad]

شكرا جزيلا وربنا يبارك فيك وفي جميع الأخوة الأعضاء

[شايب]

في 23‏/3‏/2024 at 19:54, kkhalifa1960 said:

تفضل أستاذ @2saad محاولتي حسب مافهمت . تم عمل استعلام تجميعي للجداول (Data1,Data2,Data3) وهو (Query1) .

مع ان الموضوع قديم وتمت الاجابة بشكل موفق

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

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

الكود المقترح في زر امر

Dim rs As DAO.Recordset
Dim rst As DAO.Recordset
Dim a As Integer
Dim fld As DAO.Field
Dim strSQL As String
strSQL = "SELECT Data1.* from data1 Union SELECT Data2.* from data2 UNION SELECT Data3.* from data3;"
Set rs = CurrentDb.OpenRecordset(strSQL)
Set rst = CurrentDb.OpenRecordset("data")
rs.MoveFirst
For a = 0 To rs.RecordCount - 1
rst.AddNew
   For Each fld In rs.Fields
   If fld.Name <> "م" Then
    rst.Fields(fld.Name) = fld.Value
    End If
Next fld
rst.Update
rs.MoveNext
Next a
rs.Close: rst.Close
Set rs = Nothing: Set rst = Nothing

اخونا الشايب

[محمد سعيد رشاد]

شكرا جزيلا