برنامج الذكاء الصناعى فى اكواد الاكسس

[figo82eg]

جربت احد مواقع برامج الذكاء الصناعى chatgpt فى توليد كود اكسس لسحب اكثر من ورقة من خلال سكانر فيدار ( يمكن سحب كمية من الورق ) بصيغة pdf بحيث يكون الناتج ملف واحد وكانت إجابته كالتالى:

حاولت تطبيق الكود لدى ولكن لم يفلح فهل اجابته سليمه 

()Private Sub cmdScan_Click
    On Error GoTo ErrorHandler

    ' Create a WIA object
    Dim wia As Object
    Set wia = CreateObject("WIA.CommonDialog")

    ' Set scanner properties
    Dim img As Object
    Dim imgFiles As Object
    Dim fileName As String
    Dim i As Integer
    
    Set imgFiles = CreateObject("WIA.Vector")
    
    For i = 1 To 5 ' تعديل عدد الصفحات الذي تريد سحبها
        Set img = wia.ShowAcquireImage( _
            FormatID:="{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}", _
            Intent:="Color", _
            ItemType:=1, _
            PromptUser:=True, _
            ShowPreview:=True, _
            ShowUserInterface:=True)
        
        fileName = "C:\temp\scan" & i & ".jpg"
        img.SaveFile fileName
        
        ' Add image file to vector
        imgFiles.Add fileName
    Next i
    
    ' Convert images to PDF
    Dim pdf As Object
    Set pdf = CreateObject("AcroExch.PDDoc")
    
    If pdf.Create = True Then
        For i = 0 To imgFiles.Count - 1
            pdf.Open imgFiles(i)
            pdf.Save 1, "C:\temp\scan.pdf"
            pdf.Close
        Next i
    End If
    
    ' Show PDF file
    Application.FollowHyperlink "C:\temp\scan.pdf"

Exit Sub
ErrorHandler:
    MsgBox "An error occurred while scanning: " & Err.Description
End Sub

تم تعديل أبريل 11, 2023 بواسطه figo82eg

[Eng.Qassim]

اعتقد هذا الموضوع يفيدك..وفيه ملف جاهز

 

تم تعديل أبريل 12, 2023 بواسطه Eng.Qassim

[Ahmed_J]

السلام عليكم

سبق وان طرحت هذا الموضوع في الموقع سابقا عن كيفية سحب اكثر من صورة عن طريق الماسح الضوئي Scanner-Canon-DR-F120-Feeder لكني لم اصل الى نتيجة علما بان هذا الجهاز يعمل بطريقتين:

1- سحب ورقة واحدة فقط كما في الصورة الاولى

2- سحب عدة اوراق كما في الصورة الثانية

الطريقة الاولى هي التي تعمل فقط اما الطريقة الثانية لا

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

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

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

[Eng.Qassim]

استاذ @Ahmed_J..هل جربت هذا المرفق

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

 

08 MS access (VBA)scan and attach documents سحب سكان من الفيدر.rar

[Ezril]

الكود شغال لتحويل PDF الى Img. jpg من غير جدول بدل المسار لقراءة عدد اجمالي الصور في الفولدر i بقائمة غير منظم يحفظ الاخراج PDF باسم Scan\ ولسكان كان المسحوب في مسار  \tamp\

اما الآخر ورقه بورقتين امامي وخلفي اجمع الاوراق 

حزمه الاماميه يبدأ برقم 1( Button for 1+2 next

حزمه الخلفية يبدا برقم 2( Button for 2+2

بنفس مسار الحفظ والاسم بترقيم واظن انه للكتب اذا كان كتاب فكه 

[kanory]

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

السلام عليكم

سبق وان طرحت هذا الموضوع في الموقع سابقا عن كيفية سحب اكثر من صورة عن طريق الماسح الضوئي Scanner-Canon-DR-F120-Feeder لكني لم اصل الى نتيجة علما بان هذا الجهاز يعمل بطريقتين:

1- سحب ورقة واحدة فقط كما في الصورة الاولى

2- سحب عدة اوراق كما في الصورة الثانية

الطريقة الاولى هي التي تعمل فقط اما الطريقة الثانية لا

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

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

اخي @Ahmed_J  ماهي الرسالة التى تصدر عند سحبك للفيدر ؟؟؟

والبرنامج المدرج من الاخ @Eng.Qassim يعمل .

[Ahmed_J]

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

استاذي العزيز @kanory

تم تجربة الملف اليوم :

اولا عند الضغط على الزر سحب صورة (scan pc) يعمل الجهاز ويسحب الصورة  بصورة طبيعية كاي جهاز ماسح ضوئي عادي

ثانيا عند الضغط على الزر (من الفيدر) لايعمل وظهرت هذه الرسائل

علما بنه تم تعريف الجهاز بالحاسوب عن طريق القرص الاصلي لجهاز الماسح الضوئي canon

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

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

[kanory]

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

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

استاذي العزيز @kanory

تم تجربة الملف اليوم :

اولا عند الضغط على الزر سحب صورة (scan pc) يعمل الجهاز ويسحب الصورة  بصورة طبيعية كاي جهاز ماسح ضوئي عادي

ثانيا عند الضغط على الزر (من الفيدر) لايعمل وظهرت هذه الرسائل

علما بنه تم تعريف الجهاز بالحاسوب عن طريق القرص الاصلي لجهاز الماسح الضوئي canon

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

طيب استاذي الفاضل 

في المديول وتحت الفانك Public Function federsacan

تجد هذا السطر الخاص باعدادات الصورة المسحوبة اعمل ايقاف هذا السطر ...............

 

[Ahmed_J]

السلام عليكم

تمام سوف اجرب ذلك واخبرك بالنتيجة

شكرا لتواصلك مع التقدير

[Ahmed_J]

السلام عليكم

استاذ @kanory 

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

تحياتي 

 

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

[kanory]

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

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

طيب وقف صائد الاخطاء في الفانك السابق لتتعرف على اسطر الخطأ في الكود ... واعلمني بسطر الخطأ ماهو ؟؟