تشغيل وسحب الصورة من خلال الماسح الضوئي

[Ahmed_J]

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

بحث وعملت طوال اليوم لكن لم اصل الى نتيجة 

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

طلبي هو :

1- خزن  الصور في فولدر بجانب قاعدة البيانات اللي اسمه scanner 

2- تشغيل الماسح الضوئي من خلال زر بالاكسس  وحقظ الصور في نفس الفولدر Scanner

3- اتمنى ان يكون الحغظ متسلسل  وبتاريخ جهاز الحاسوب

4- لو كان عندي اكثر من سحب صورة هل بالامكان تحويل اكثر من صورة الى PDF من خلال كود  عن طريق زر الماسح الضوئي

تحياتي للجميع

ربي يوفقكم اجمعين

 

test.rar

[Ahmed_J]

• up

[aboeyad2007]

ارى لديك سجلات موظفين ماترغب تحفظ الصورة لكل موظف على حده؟

باسمه او برقم المعرف ،، او مجلد منفصل لكل موظف

[Ahmed_J]

السلام عليكم

شكرا للمتابعة استاذي العزيز

المهم هو تشغيل الماسح الضوئي لاكثر من صورة للموظف

[د.كاف يار]

تفضل هذا التعديل

 

test.zip

[Ahmed_J]

السلام عليكم

شكرا لك استاذ  @د.كاف يار

هل الكود الخاص بالماسح الضوئي  هو كود فيدر (Feeder ) يعني يسحب عدة صور دفعة واحدة

تحياتي لك

 

 

[Ahmed_J]

السلام عليكم 

استاذي العزيز @د.كاف يار

قمت بتجربة الملف على جهازي

الملف يقوم بمسح صورة واحدة فقط وليس عدة صور   بعد اختيار (decument Feeder)   كما في الصور

وشكرا لك

 

[محمد التميمي]

في 8‏/4‏/2022 at 22:47, د.كاف يار said:

تفضل هذا التعديل

 

test.zip 4.15 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 25 downloads

السلام عليكم

بعد اذن صاحب المشاركة الاخ احمد

بارك الله بك استاذي الكريم د.كاف يار وجعله الله في ميزان حسناتك عمل في غاية الروعة

استاذي الكريم لو تكرمت علينا وانت صاحب الكرم

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

الهم احفظ إخواننا من كل سوء ومكروه في هذا الشهر الكريم 

 

[د.كاف يار]

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

السلام عليكم 

استاذي العزيز @د.كاف يار

قمت بتجربة الملف على جهازي

الملف يقوم بمسح صورة واحدة فقط وليس عدة صور   بعد اختيار (decument Feeder)   كما في الصور

وشكرا لك

 

تفضل جرب هذا التعديل

 

Database1.zip

[د.كاف يار]

9 ساعات مضت, محمد التميمي said:

السلام عليكم

بعد اذن صاحب المشاركة الاخ احمد

بارك الله بك استاذي الكريم د.كاف يار وجعله الله في ميزان حسناتك عمل في غاية الروعة

استاذي الكريم لو تكرمت علينا وانت صاحب الكرم

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

الهم احفظ إخواننا من كل سوء ومكروه في هذا الشهر الكريم 

 

ارفق مثال

و للإستزادة

 

لإنشاء فولدر استخدم الكود التالي

Dim fso As Object, FoldrName As String, fldrpath As String

FoldrName = "hi"  ' اسم الفولد هنا و يمكن استبداله بمربع النص

Set fso = CreateObject("scripting.filesystemobject")

' مسار الفولدر
FoldrName = CurrentProject.path & "\" & FoldrName

' في حال عدم وجود الفولدر حسب المسار اعلاه سيتم انشاء فولدر جديد
If Not fso.FolderExists(fldrpath) Then: fso.createfolder (FoldrName)

 

[محمد التميمي]

16 ساعات مضت, د.كاف يار said:

ارفق مثال

و للإستزادة

 

لإنشاء فولدر استخدم الكود التالي

Dim fso As Object, FoldrName As String, fldrpath As String

FoldrName = "hi"  ' اسم الفولد هنا و يمكن استبداله بمربع النص

Set fso = CreateObject("scripting.filesystemobject")

' مسار الفولدر
FoldrName = CurrentProject.path & "\" & FoldrName

' في حال عدم وجود الفولدر حسب المسار اعلاه سيتم انشاء فولدر جديد
If Not fso.FolderExists(fldrpath) Then: fso.createfolder (FoldrName)

 

شكرا جزيلا على الكود

بارك الله بشخصكم الكريم

[Ahmed_J]

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

استاذ @د.كاف يار

في 11‏/4‏/2022 at 18:55, د.كاف يار said:

تفضل جرب هذا التعديل

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

 

[Ahmed_J]

UP

[د.كاف يار]

جرب هذا التعديل

 

Database1.zip

[Ahmed_J]

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

مساء الخير عليكم جميعا

استاذي العزيز @د.كاف يار بارك الله فيك هذه الصور هي نفس الجهاز الذي اعمل علية  (كانون )  Canon-DR-F120-Feeder

قمت بتجربة اخر تعديل لك على الملف

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

تحياتي لك

 

تم تعديل أبريل 23, 2022 بواسطه Ahmed_J

[د.كاف يار]

تمت التجربة بالفعل على نوع مختلف و تم سحب جميع الاوراق بنجاح

اتوقع المشكلة لديك في الاعدادات

[Ahmed_J]

العفو استاذ 

شو تقصد بالاعدادات 

لدي ماسح واحد هو defult

[Ahmed_J]

استاذ @د.كاف يار

السلام عليكم

لايعمل البرنامج ابدا

لاتوجد اي مشكلة بالاعدادات

فقط بدي اوضح شيء الماسح كانون  فيه حالتين للمسح الضوئي

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

الثاني يقوم بمسح  عدة مستندات دفعة واحدة عند وضع المستندات في اعلى الجهاز FEEDER عند وضع المستند في اعلى الجهاز

تحياتي للجميع