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

كود استعلام حذف

DoCmd.RunSQL "DELETE Tbl_add.* FROM Tbl_add;"

كود استعلام الحاق

DoCmd.RunSQL "INSERT INTO Tbl_add ( snd, name, value1, sdad1, [date] )SELECT Tbl_data.ContractID, Tbl_data.name, Tbl_data.value, Tbl_data.sdad, Tbl_data.date FROM Tbl_data;"

مشكور أخي على اجابتك لطلبي وجزاك الله مني الف خير