تفضل استاذ @بلال اليامين تعديل الكود عندك
Dim i As Integer
For i = 1 To 6
DoCmd.SetWarnings False
DoCmd.OpenQuery "qqq"
DoCmd.SetWarnings True
Next i
شرح لطلبك .
تفضل المرفقان مرفقي للشرح ومرفقك بعد التعديل .
DD427.rar
الحاقي-1.accdb
تفضل أخي بس طبعا الجداول المرتبطة سيتغير مسارها عندك ....... طبق عليها الشرح السابق .
-اذا كان هذ طلبك لا تنسى الضغط على أفضل اجابة .
الحقول الغير متطابقة.rar