السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام
طبعا انا صممت برنامج ارشيف الكتروني وبه خاصية سحب عدة صور من الكمبيوتر
طبعا الحين انا اريد ان اضيف عليه خاصية السحب من الماسح الضوئي عدة صور بحيث عند سحب الصور احفظ الصور في الفولدر الذي احدده وبعد حفظ الصور في المسار الذي احدده جلب مسار الصور التي حفظتها في الفولدر الي النموذج الفرعي وهذا مرفق من البرنامج الذي كان الفضل فيه اولا ( لمولي عز وجل) ثم الاخ محمد سلامه والاخ شيفان زادهم الله من علمه وبارك الله فيهم
ملحوظة صغيرة : اذا لم تكن تعرف عدد مرات المسح فعند تطبيق اللوب السابق Do While يجب عليك ازالة اللوب For i = 1 To Nz(Me.Text1, 1) من المرفق السابق وذلك لأن لوب
Do While Err.Number <> -2145320957 يتوقف فقط عندما يكون رقم الخطأ المستلم من الفيدر يساوي -2145320957 اي لم يعد هنالك ورق في السكانر لتصويره
بينما اللوب For i = 1 To Nz(Me.Text1, 1) يتوقف عن العد فقط عندما يعد تصاعدياً الى قيمة مربع النص Text1