Ahmed_J

السلام عليكم وجدت برنامج للارشفة الالكترونية (تنفيذي EXE) جميل جدا لكنه غير مجاني وغير معمول بالاكسس المهم عند فتح البرنامج توجد نافذة للاعدادات ومن ضمنها اعدادات الماسح الضوئي البرنامج تعرف لوحده على الماسح الضوئي ويمكن الاختيار لو كان اكثر من جهاز موجود كما في الصورة يمكن من الاعدادات اختيار نوع الماسح الضوئي وحجم الورق ونوع الدقة هل من الممكن عمل ذلك بالاكسس بدون اي برنامج وسيط عن طريق نموذج ؟؟؟؟ تحياتي

استاذ @ابوخليل في المنزل لدي جهاز عادي كانون كما في الصورة 1 اما في العمل لدي جهاز كانون (فيدر 2*1) كما في الصورة 2 والصورة (3) الجهاز الاول مافي مشكلة بالعمل من خلاله المشكلة بالجهاز الثاني الذي فيه خيارين (Flatbed ) و(Decument Feeder) كيف اختار منهم برمجييا تحياتي

السلام عليكم استاذ @ابوخليل الصورة رقم 1 هي للماسح العادي كانون الصورة رفم 2 هي للماسح الفيدر كانون في الموضوع السابق للاخ @مخاوي الليل 1 تم التحكم بالماسح الضوئي صورة ملونة او اسود وابيض وكان شيء جيد لو كان الامكان في نهاية الكود الاختيار من القائمة المنسدلة اما (Flatbed ) او (Decument Feeder) فقط لانتهت المشكلة تحياتي للجميع

السلام عليكم استاذي العزيز @مخاوي الليل 1 الله يبارك فيك البرنامح اشتغل عندي على ماسح ضوئي عادي من نوع كانون تم سحب صورة ملونة وصورة اسود وابيض وكل شيء تمام اعتقد الكود المسؤول عن ذلك هو ملون' itm.Properties("Current Intent") = 1 اسود وابيض' itm.Properties("Current Intent") = 2 سؤالي : هل يمكن اختيار من القائمة المنسدلة (Paper Source) التي فيها خيارين: الاول : Flatbed الذي يقوم بسحب صورة واحدة فقط الثاني: Decument Feeder الذي يقوم بسحب عدة صور دفعة واحدة : كما في الصورة يعني عمل كودين في زرين مختلفين الكود الاول للخيار الاول والكود الثاني للخيار الثاني تحياتي للجميع

السلام عليكم اللي بعرفه ان IS NOT NULL تستخدم في لغة الاستعلام NOT IS NULL تستخدم في لغة البرمجة تحياتي

السلام عليكم اتمنى من الاساتذة الجواب الشافي هل يمكن عمل ذلك ام لا ؟؟؟؟؟

up

السلام عليكم اساتذتي الاعزاء نظرا لكثرة اجهزة المسح الضوئي وانواعها وكثرة البرامج المعموله لها عملت هذا الموضوع هل من الممكن تمرير كود وعمل ذلك برمجياً ؟؟؟؟ وتحديد خصائص الماسح الضوئي بالكود من خلال مساره بالجهاز (اقصد مثلاً جعل الماسح اوتوفيدر او عادي او ملون او اسود وابيض ...الخ) حتى كل شخص يمكنه ننبع مسار الماسح الضوئي الخاص به والعمل عليه حسب متطلباته يعني مثلا الكود Shell ("c:\windows\system32\wiaacmgr.exe") او الكود Dim Dialog1 As New WIA.CommonDialog Dim DPI As Integer Dim img As WIA.ImageFile Dim Scanner As WIA.Device Set Scanner = Dialog1.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, true, False) Set img = Scanner.Items(1).Transfer(WIA_FORMAT_JPEG) صور مرفقة توضح قائمة منسدلة يمكن الاختيار منها اما فيدر(مسح ضوئي اكثر من صورة) او عادي (مسح ضوئي لصورة واحدة فقط) وشكرا لكم

السلام عليكم استاذ @ابوخليل آسف على التاخير كنت مسافر كل شيء تمام بارك الله فيك وشكرا لك

السلام عليكم استاذ @ابوخليل ربي يحفظك من كل مكروه كل شيء تمام البرنامج يحفظ الملف في مساره الصحيح ويحفظه برقم الكتاب وبصيغة pdf المشكلة الوحيدة : عدم ظهور ملف pdf عند تحميله من الماسح الضوئي عند تحميلة مباشرة من النموذج بعد عمل كل الاعدادات المطلوبة الا بعد اغلاق وفتح النموذج مرة اخرى او الانتقال الى السجل التالي او السجل السابق يظهر الملف بصورة اعتيادية. لكنني انتبهت على ملاحظة عند تشغيل الماسح الضوئي (الكود يذهب مباشرة الى آخر كود موجود والماسح لسه يعمل) لذلك لايجد المسار الصحيح له خطرت لي فكرة ان اضع بين كود تشغيل الماسح ونهاية الكود فاصل زمني (PauseTime = 20) لمدة 20 ثانية وفعلا نجحت الفكرة وظهر ملف pdf في النموذج لكن هذه طريفة غير صحيحة لان المدة ثابتة (20) ثانية بينما ممكن اعمل مسح ضوئي لاكثر من كتاب اتمنى توضحت المشكلة والفكرة لديك سؤال: اليس من المفروض ان يكمل الماسح الضوئي عمله ثم ينتقل للخطوة التالية بالكود؟ انا لااعلم تحياتي

السلام عليكم استاذي العزيز @ابوخليل الملف هو برنامج بسيط لارشفة الكتب الرسمية - اذا كان الكتاب صفحة واحدة اقوم بالمسح على شكل صورة jpg وهو موضوع انتهيت منه والحمد لله - اذا كان الكتاب معه مرفقات عديدة اقوم بمسحها على شكل pdf (المشكلة فقط بعدم ظهور الملف في النموذج) عند وضعة بالمسار المحدد 1- نعم لكل ملف pdf سجل خاص به وصفحة بيانات بالنموذج 2- معرف الصورة هو (رقم الكتاب) 3- لااعتقد اني احتاج لجدول فرعي مثال مرفق تحياتي Desktop.rar

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

الخي العزيز قلت لك لابد من وضع (plugins) بجانب البرنامج لكي يعمل pdf اما الجودة براحتك لديك خيارات جودة من (40%) الى (95%) تحياتي

السلام عليكم اخي زياد العزيز الصورة الاولى خاصة باخراج الملف pdf الصورة الثانية خاصة بالدقة

السلام عليكم السؤال الاول : يجب تثبيت ادوبي اكروبات و (iview462_plugins) لكي يعمل pdf السؤال الثاني: يمكنك تعديل الخيارات باقل جود ممكنة تحياتي

استاذ @ابوخليل انا عاجز عن شكرك الله يبارك فيك ان شاء الله في ميزان حسناتك بانتظار الخطوة الاخيرة ان شاء الله التي لم تكتمل (اظهار ملف PDF في النموذج)

السلام عليكم استاذ @ابوخليل الله يبارك فيك ويجعلها في ميزان حسناتك 1- تم تجربة الصور وكل شيء تمام وفي المسار المحدد للصور Dim mypath As String mypath = Application.CurrentProject.Path & "\My_Archive\Import\My_Pictures\" Shell ("c:\Program Files (x86)\irfanview\i_view32.exe /batchscan=(Ahmed,,,,," & mypath & " ,jpg,0) /scanhidden") 2- تم تجربة pdf وكل شيء تمام وفي المسار المحدد للpdf Dim mypath As String mypath = Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" Shell ("c:\Program Files (x86)\irfanview\i_view32.exe /batchscan=(Ahmed,,,,," & mypath & " ,pdf,0) /scanhidden") 3- تم تثبيت (IrfanView) 32 bit وتثبيت iview462_plugins 4- تم ضبط اعدادات IrfanView كما في الصور 1 , 2 ولتقليل حجم ملف pdf لانه في الاعدادات الافتراضية يكون حجمه اكثر من (20 MB) 5- الخطوة الاخيرة ان شاء الله التي لم تكتمل (اظهار ملف PDF في النموذج) ملاحظة 1 : عند اغلاق النموذج وفتحه مرة اخرى او عند الانتقال للصفحة الاخير والعودة للصفحة الحالية يظهر الملف في النموذج وفي المسار المحدد ملاحظة 2: اذا بقي اسم الملف (Ahmed.pdf) كما هو فانه سيتم المسح الضوئي فوق الملف السابق في كل مرة وكذلك فتح نفس الملف في كل صفحات الاكسس اذ يمكن اضافة عليه مثلا رقم الكتاب في الحقل (A)لكي يصبح لكل ملف اسم مختلف عن الاخر وشكرا لك استاذي العزيز Desktop.rar

السلام عليكم استاذ @Foksh شكرا على تعبك معي كل فيديوات الاستاذ محمد عبد الغفار انا شاهدتها شكرا لك لابد من وجود فكرة اخرى up

استاذي العزيز يقوم بتحويل التقرير الى pdf وليس الصور شكرا لك بارك الله فيك

السلام عليكم بالعكس ان مستمتع معك استاذي العزيز شكرا لك لكن يظهر خطا اعتقد يريد مكتبة حملت اكثر من واحدة لكن للاسف

استاذ @Foksh شكرا لك لكن الملف عند التحويل معطوب لايعمل

السلام عليكم استاذ @ابوخليل مافصرت وتعبتك كتير الله يبارك فيك استاذي العزيز كود الحفظ لم يعمل شكرا لك استاذ اتمنى المساعدة من الاساتذه الاخرين up

السلام عليكم استاذي العزيز @ابوخليل الله يبارك فيك شكرا كثيرا استاذي العزيز المشكلة عندي ليست بتحويل الصورة الى pdf ؟ ملاحظة : هذا الكود شغال 100% حيث يقوم بتحويل الصورة من الماسح الضوئي الى pdf مباشرة ويحفظها في المسار C:\temp بأسم Ahmed01.pdf كما في الصور 1و2 . Shell ("c:\Program Files (x86)\irfanview\i_view32.exe /batchscan=(ahmed,1,1,2,0,c:\temp,pdf,1) /scanhidden") علما بانني قمت بتثبيت برنامج (.IrfanView.exe) والاضافة (view462_plugins.exe) الذي سبب المشكلة في عدم التعرف على pdf لديك استاذي العزيز: قم بتحميل الاضافة (view462_plugins.exe) ويعمل لديك ان شاء الله المطلوب : اريد عن تشغيل الماسح الضوئي يحفظ ملف pdf في المسار (My_Archive-Import-My_pdf) واظهار pdf في النموذج. كما في الصورة 3. وشكرا

up

up