الاخ الكريم @kkhalifa1960
البرنامج رائع وفعال بشكل فوق الرائع جزاك الله خيرا
حاولت اطبقه عندي لكن بيمسح الجدول الموجود ومش بينزل الجديد وكتبت لحضرتك الكود تشوفه مع اني راجعته اكثر من مرة بس اكيد انا غلطان علما بان الجدول في القاعدة الام اسمه data وفي القاعدة الفرعية نفس الاسم علي فكرة هو هو نفس الجدول اللي استخدمناه في برنامج التقييم الرائع الشافي
معلش والله بتعبك معايا
UpdtQry = "UPDATE data INNER JOIN data2 ON data.coode = data2.coode SET data2.coode = [data]![coode], data2.name = [data]![name];"
DatBE = CurrentProject.Path & "\samer.accdb"
TblDel = "Drop table data;"
DoCmd.TransferDatabase acLink, "Microsoft Access", DatBE, acTable, "data", "data"
DoCmd.RunSQL UpdtQry
DoCmd.RunSQL TblDel
MsgBox "تـــم الاستخراج بنجــاح"