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

[2saad]

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

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

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

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

[kkhalifa1960]

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

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

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

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

[2saad]

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

[شايب]

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

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

Expand  

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

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

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

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

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

اخونا الشايب

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

شكرا جزيلا