تعديل على كود الماسح الضوئي

[مهند محسن]

السلام عليكم ورحمة الله تعالى وبركاته

اساتذتى الكرام

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

انا اريد تعديل الكود ان يكون حفظ  الصور التي تكون من خلال الماسح الضوئي في مجلد باسم(photo) بجوار قاعدة البيانات وهو مرفق مع قاعدة البيانات ويكون الحفظ  (برقم الربط) وهو رقم تلقائي.

مع فائق الشكر

صادر وارد.rar

تم تعديل فبراير 20, 2023 بواسطه مهند محسن

[kkhalifa1960]

تفضل أخي جرب ووافني بالرد .

واذا تمام اضغط على أفضل اجابة

scanner.rar

[مهند محسن]

الاستاذ العزيز السلام عليكم ورحمة الله وبركاتة

شكراً على سرعة الرد واتمنى لك الموفقية ان شاء الله

الكود يعمل جيد جداً ولكن انا طامع بكرمك... عند الضغط على Scan لخذ سكنر للصورة تظهر نافذة تطلب فيها الحفظ هل بالمكان عدم اظهار هذه النافذة ويكون الحفظ تلقائي في ملف Photo وبعد حفظ الصورة تظهر رسالة يطلب (نعم او لا) لخذ سكنر مرة ثانية بنفس رقم الربط هذا اذا كانت المرفقات اكثر من ورقة.

مع فائق الشكر والاحترام

[kkhalifa1960]

10 ساعات مضت, مهند محسن said:

الكود يعمل جيد جداً ولكن انا طامع بكرمك... عند الضغط على Scan لخذ سكنر للصورة تظهر نافذة تطلب فيها الحفظ هل بالمكان عدم اظهار هذه النافذة ويكون الحفظ تلقائي في ملف Photo وبعد حفظ الصورة تظهر رسالة يطلب (نعم او لا) لخذ سكنر مرة ثانية بنفس رقم الربط هذا اذا كانت المرفقات اكثر من ورقة.

استاذ مهند انا عملت طلبك الاول وأنا ماعندي سكانر للتجريب لذا انصحك بفتح موضوغ جديد ومرفق به ماتوصلنا اليه . واذكر طلباتك الجديده  لعل أحد الزملاء يفيدك . .

 

[مهند محسن]

كل الشكر لك استاذ

 

[ابوخليل]

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

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

اخي مهند

عندي ماسح محفوظ في الدرج انتظرني اربطه بالحاسب وافحص مثالك واوافيك بما اصل اليه

[ابوخليل]

اخي مهند

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

السبب انه الاسم  والامتداد  واحد هنا  وندوز لا يقبل

الحل اضافة رقم تسلسلي يضاف الى رقم الربط ، وستواجهك مشكلة هنا وهي ربط هذه الصور بالكتاب .. 

اي بمعلومية ماذا ؟

فكر بطريقة وفكرة مناسبة لك وافدنا .. حتى نعمل على تحقيقها

في المرفق يتم حفظ صورة واحدة بمجلد البرنامج

 

صادر وارد2.rar

[مهند محسن]

كل الشكر والاحترام لك الاستاذ القدير  ابو خليل

 

 

[ابوخليل]

استبدل كامل الكود الذي في المثال بهذا الكود ، حيث تم اضافة الاسطر الخاصة بتصيد الأخطاء

للتجربة : شغل الجلب مرة اخرى بالرقم نفسه على الكود الموجود وانظر النتيجة ثم استبدله بهذا الكود واعد تشغيل الجلب على الرقم نفسه وانظر الفرق

On Error GoTo Err_scan
Dim scandiag As Object
Dim image As Object
Dim r As Integer: Dim x As String
      If IsNull(Me.[رقم الربط]) Then
      MsgBox "ادخل بيانات الكتاب"
        Exit Sub
       End If
        r = Me.[رقم الربط]
        x = CurrentProject.Path & "\photo\" & r & ".jpg"
        Set scandiag = CreateObject("wia.commondialog")
        Set image = scandiag.ShowAcquireImage(, , , wiaFormatJPEG)
       If image.FormatID <> wiaFormatJPEG Then
Dim IP
Set IP = CreateObject("Wia.ImageProcess")
IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(1).Properties("FormatID").Value = wiaFormatJPEG
Set image = IP.Apply(image)
End If
         
         If image Is Nothing Then
           MsgBox "تم الغاء الإجراء"
          Else
         image.SaveFile x
         Me.m.Picture = x
        Me.Refresh
       End If
        MsgBox "تم الحفظ"

Exit_scan:
    Exit Sub

Err_scan:
    MsgBox Err.Description
    Resume Exit_scan