تعديل كود حفظ مسار الصور من الماسح الضوئي (سكانر)

[Ahmed_J]

السلام عليكم اساتذتي الاعزاء

لدي ملف للاستاذ الفاضل احمد عبد المنعم (رحم الله والده)

هو جلب الصور من جهاز السكانر وتحويلها الى PDF

البرنانج يعمل عندي بصورة صحيحة لكن يقوم بأنشاء مجلد بجانب قاعدة البيانات ويحفظ الصور فيه

المطلوب:  اريد البرنامج ان يحفظ الصور في مسار بجانب قاعدة البيانات  في مجلد ثابت (My Archive-Import-My pdf)

اريد ان يحفظ الصورة فقط ولا يفوم بنشاء اي مجلد آخر (اريد الغاء عمل انشاء المجلد)

وشكرا لكم

 

scanner.rar

تم تعديل أكتوبر 14, 2023 بواسطه Ahmed_J

[ابو جودي]

16 دقائق مضت, Ahmed_J said:

المطلوب:  اريد البرنامج ان يحفظ الصور في مسار بجانب قاعدة البيانات  في مجلد ثابت (My Archive-Import-My pdf)

 

بسيطه ان شاء الله 

غير السطر الاتى فى الكود 

FDName = [Fname] & "_" & [id] & "_" & Format([ADate], "dd-mm-yyyy")

 الى 

FDName = CurrentProject.Path & "\My Archive\Import\My pdf"

 

[Ahmed_J]

استاذ @ابو جودي

السلام عليكم

قمت بتغيير السطر وظهر الخطا التالي

تحياتي

[ابو جودي]

طيب يا سيدى انت زعلان وبتزعق ليه  اتفضل 

FDName = "\My Archive\Import\My pdf"

 

[زياد الحسناوي]

@Ahmed_J

استاذ احمد اعتذر ع المداخلة ولكن هل يقوم بالسحب المتعدد من السكنر

[Ahmed_J]

السلام عليكم

استاذ @ابو جودي

ظهرت رسالة الخطا التالية

استاذ @زياد الحسناوي

لدي جهاز كانون عادي بالمنزل  FLAT

لكن البرنامج يسمح بالسحب المتكرر بعد ظهور رسالة تاكيد 

تحياتي

 

تم تعديل أكتوبر 14, 2023 بواسطه Ahmed_J

[ابو جودي]

استاذ @Ahmed_J انا لو مكانك اعمل سطل شاى واراجع الكود 

اولا كل التقدير لصاحب المرفق جزاه الله خيـرا 

بس على سبيل المثال وليس الحصر كان ممكن اختصار اسطر الكود لسهولة التعديل للتطوير مستقبلا

 

 

طيب جرب السطر ده

FDName = "My Archive\Import\My pdf"

 

[Ahmed_J]

استاذ @ابو جودي

استاذ @Moosak

تظهر هذه الرسالة 

ان الملف موجود مسبقا 

اعتقد يجب ان تكون الصورة بعد المجلد  (my pdf)

تم تعديل أكتوبر 14, 2023 بواسطه Ahmed_J

[Ahmed_J]

UP

[ابو جودي]

5 ساعات مضت, Ahmed_J said:

استاذ @ابو جودي

استاذ @Moosak

تظهر هذه الرسالة 

ان الملف موجود مسبقا 

اعتقد يجب ان تكون الصورة بعد المجلد  (my pdf)

واضح من الرسالة انه هنا يتعامل مع المجلدات وليس الملفات 

واعتقد حسب كود مصمم قاعدة البيانات لو تم الضغط على زر الامر Yes  وكما هو واضح من الرسالة سوف يتم حذف المجلد بنا فى داخله

واعتقد عن الضغط على No  سوف يقوم باحباط العملية او استكمال باقى الخطوات تبعا للكود سوف انظر واعود اليكم 

[Ahmed_J]

استاذ @ابو جودي

كلامك دقيق جدا

صحيح هو يفعل ذلك  واعتقد من خلال الوحدة النمطية  يدقق المجلد الاخير (my pdf) لانه موجود

البرنامج يقوم بانشاء مجلد وانا لااريد ذلك ابدا

اريد ان يحفظ الصورة في مسارها فقط

تحياتي

 

 

تم تعديل أكتوبر 14, 2023 بواسطه Ahmed_J

[ابوخليل]

السلام عليكم

التعديل تم كالتالي :

1- وجدت خلل غير ملاحظ وهو تسمية متغير بنفس اسم حقل الاسم  ... وهنا تظهر فائدة  Option Explicit في رأس المحرر

2- حذفت جميع ما يخص انشاء المجلدات وحذفها ، واذا اردنا حذف الملف وبياناته التي في الجدول فأرى من الأفضل تخصيص زر خاص بها 

3- المشكلة الحقيقية كانت في ادخال مجلد قاعدة البيانات ضمن المسار  .. فقمت باستبعاده عن المسار

اخيرا ازلت جميع المسافات في تسميات المجلدات .. للتنبيه فيما لو نقلت القاعدة بجانب مجلداتك

 

Newfolder.rar

[Ahmed_J]

السلام عليكم

استاذ @ابوخليل

عاشت ايدك كلوا تمام

فقط لدي طلب اخير ان كان ممكن

البرنامج يعمل على ماسح ضوئي عادي ( صورة صورة)

المطلوب:  هل ممكن تعديل الكود الموجود بالبرنامج ليصبح  (feeder) ياخذ الصور  متتاليه لان لدي جهاز كانون كما في الصورة

بار ك الله فيكم

تحياتي

تم تعديل أكتوبر 15, 2023 بواسطه Ahmed_J

[ابوخليل]

الجهاز الذي عندي HP عادي  ولولا وجوده عندي لما تمكنت من ضبط الكود .. طبعا اي تعديل يحتاج تجربة

لذا لا يمكنني معالجة الكود ما لم يكن عندي مثل جهازك هذا

اتوقع ان خاصية عدد النسخ  موجودة في مربع حوار الجهاز ،، مثل الطابعة

اذا كان توقعي صحيح فالكود يحتاج فقط لدوارة (لوب) يدرج فيها معرف الصورة