2saad قام بنشر مارس 23 مشاركة قام بنشر مارس 23 السلام عليكم ورحمة الله وبركاته محتاج ارحل بيانات جدول data1 و data1 و data3 الي data يا ريت مع الشرح لآني مبتدئ وعايز افهم وشكرا لكم جميعا وكل عام وأنتم طيبونقاعدة بيانات مدرسية (2).accdb رابط هذا التعليق شارك More sharing options...
أفضل إجابة kkhalifa1960 قام بنشر مارس 23 أفضل إجابة مشاركة قام بنشر مارس 23 تفضل أستاذ @2saad محاولتي حسب مافهمت . تم عمل استعلام تجميعي للجداول (Data1,Data2,Data3) وهو (Query1) . ثم عمل استعلام بناء الجدول (Data) وهو (Query2) وأخذ قيمه من الاستعلام التجميعي (Query1) ثم حفظه وغلقه .ثم الضغط مرتان عليه بتظهر لك رسالة وافق عليها بنعم ثم اذهب للجدول (Data) بتحصل مبتغاك . اليك المرفق . ووافني بالرد . واذا كان هذا طلبك لا تنسى الضغط على افضل اجابة . قاعدة بيانات مدرسية (2).rar رابط هذا التعليق شارك More sharing options...
2saad قام بنشر مارس 23 الكاتب مشاركة قام بنشر مارس 23 شكرا جزيلا وربنا يبارك فيك وفي جميع الأخوة الأعضاء 1 رابط هذا التعليق شارك More sharing options...
شايب قام بنشر April 3 مشاركة قام بنشر April 3 في 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 اخونا الشايب 1 رابط هذا التعليق شارك More sharing options...
محمد سعيد رشاد قام بنشر April 5 مشاركة قام بنشر April 5 شكرا جزيلا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.