تفضل استاذ @بلال اليامين تعديل الكود عندك
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
لو تبغي تشغيل هذه الخاصية لديك . مرفق تكست اسمه (Movi) ثم انقله الى الدرايف (C\windows) ...السبب لو أي شخص حاول أخذ كوبي من الرنامج لا يعمل عنده بدونه . أما لو حابب تلغيها .
تفضل أخي المرفق بدونه وايضاًومعه ملف (Movi) .
DDAbood-1.rar