ملحوظة صغيرة : اذا لم تكن تعرف عدد مرات المسح فعند تطبيق اللوب السابق 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
    • Like
    1