ظهور رسالة تخبر المستخدم أن جهاز الاسكانر غير موصل

[qathi]

السلام عليكم
احيي اساتذتنا الافاضل واعضاء منتدانا الشامخ
وأسأل الله أن تكونوا في أتم الصحة والعافيه

المطلوب كالتالي:

عند الضغط على زر (سحب اسكانر)  {ولم يكن جهاز الاسكانر غير موصل تظهر رسالة تخبر المستخدم أن الجهاز الاسكانر غير موصل } ولا يؤدي ذلك لظهور مشاكل اخر .. لأني قمت بمحاولات سابقة كانت تؤدي الى اخطاء

 

وشكرا لكم على ماتقدموه لنا من وقتكم وجهدكم الثمين

مرفق ملف للتعديل علية

ScanPro.zip

[Foksh]

وعليكم السلام ورحمة الله وبركات أخي @qathi ،،

استكمالاً لطلبك في موضوع سابق ، تفضل هذا التعديل على الزر المسؤول عن السحب من السكانر ,,

 

Private Sub scan1_Click()
[picfile] = Null
On Error Resume Next

Dim filelocation As String ' متغير موقع الملف

filelocation = Application.CurrentProject.Path & "\" & "Image" & "\Items\" & Me.mID & "T." & ".jpg"
'filelocation = Application.CurrentProject.Path & "\" & "Image" & "\" & "Items" & "\" & Me.mID & "T." & ".jpg"

    If scanner.DeviceInfos.Count = 0 Then
        MsgBox "لا يوجد ماسح ضوئي متصل", vbExclamation
        Exit Sub
    End If

   Dim scandiag As New WIA.CommonDialog
   
   Dim image As WIA.ImageFile
   
   Set image = scandiag.ShowAcquireImage
   
   image.SaveFile filelocation

Me.picfile = filelocation
Me.Refresh

End Sub

الإضافة كانت فقط في الجملة الشرطية في الكود .. وهذا الملف المرفق بعد التعديل ..

Scan01.accdb

[qathi]

في 26‏/5‏/2024 at 22:06, Foksh said:

الإضافة كانت فقط في الجملة الشرطية في الكود .. وهذا الملف المرفق بعد التعديل ..

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

واعتذر عن تاخر ردي لأسباب مرضية

 

قمت بتجربة الملف الان .. لا يعمل

عند توصيل الاسكانر او عدم توصيلة تظهر نفس الرسالة

"لا يوجد ماسح ضوئي متصل"

بالرغم ان جهاز الاسكانر موصل

 

قمت بعمل ايقاف للكود التالي فعمل الكود كما في السابق

    If scanner.DeviceInfos.Count = 0 Then
        MsgBox "لا يوجد ماسح ضوئي متصل", vbExclamation
        Exit Sub
    End If

 

ارجوا حل المشكلة .. بارك الله فيكم

 

[qathi]

للرفع..

[Foksh]

2 ساعات مضت, qathi said:

ارجوا حل المشكلة .. بارك الله فيكم

 

لنجرب اعادة ترتيب الأحداث .. لأ المرفق عندي يعمل 100% في جهازي في العمل

 

Private Sub scan1_Click()
[picfile] = Null
On Error Resume Next
    If scanner.DeviceInfos.Count = 0 Then
        MsgBox "لا يوجد ماسح ضوئي متصل", vbExclamation
        Exit Sub
	Else
Dim filelocation As String ' متغير موقع الملف

filelocation = Application.CurrentProject.Path & "\" & "Image" & "\Items\" & Me.mID & "T." & ".jpg"
'filelocation = Application.CurrentProject.Path & "\" & "Image" & "\" & "Items" & "\" & Me.mID & "T." & ".jpg"

   Dim scandiag As New WIA.CommonDialog
   
   Dim image As WIA.ImageFile
   
   Set image = scandiag.ShowAcquireImage
   
   image.SaveFile filelocation

Me.picfile = filelocation
Me.Refresh
	End If
End Sub

 

[qathi]

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

لنجرب اعادة ترتيب الأحداث .. لأ المرفق عندي يعمل 100% في جهازي في العمل

 

Private Sub scan1_Click()
[picfile] = Null
On Error Resume Next
    If scanner.DeviceInfos.Count = 0 Then
        MsgBox "لا يوجد ماسح ضوئي متصل", vbExclamation
        Exit Sub
	Else
Dim filelocation As String ' متغير موقع الملف

filelocation = Application.CurrentProject.Path & "\" & "Image" & "\Items\" & Me.mID & "T." & ".jpg"
'filelocation = Application.CurrentProject.Path & "\" & "Image" & "\" & "Items" & "\" & Me.mID & "T." & ".jpg"

   Dim scandiag As New WIA.CommonDialog
   
   Dim image As WIA.ImageFile
   
   Set image = scandiag.ShowAcquireImage
   
   image.SaveFile filelocation

Me.picfile = filelocation
Me.Refresh
	End If
End Sub

نفس المشكلة السابقة استاذنا @Foksh

في 29‏/5‏/2024 at 15:43, qathi said:

قمت بتجربة الملف الان .. لا يعمل

عند توصيل الاسكانر او عدم توصيلة تظهر نفس الرسالة

"لا يوجد ماسح ضوئي متصل"

بالرغم ان جهاز الاسكانر موصل

 

قمت بعمل ايقاف للكود التالي فعمل الكود كما في السابق

    If scanner.DeviceInfos.Count = 0 Then
        MsgBox "لا يوجد ماسح ضوئي متصل", vbExclamation
        Exit Sub
    End If

 

ارجوا حل المشكلة .. بارك الله فيكم

 

[Foksh]

جرب هذا المرفق ، جزء من أحد مشاريعي 🙄

 

Scanner.accdb

[qathi]

43 دقائق مضت, Foksh said:

جرب هذا المرفق ، جزء من أحد مشاريعي 🙄

جربت الملف استاذنا @Foksh

 

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

 

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

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

 

[Foksh]

12 دقائق مضت, qathi said:

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

 

بداية الفكرة اللي في الملف تم حل مشكلة التعرف على الماسح الضوئي ؟؟ أم لا ؟؟؟؟؟؟
ثم ممكن نحل هذه المشكلة التي ذكرتها

[qathi]

9 دقائق مضت, Foksh said:

بداية الفكرة اللي في الملف تم حل مشكلة التعرف على الماسح الضوئي ؟؟ أم لا ؟؟؟؟؟؟

نعم  استاذنا @Foksh   تم التعرف على الاسكانر فأذا كان الجهاز غير موصل تظهر الرسالة .. وأذا كان موصل يقوم الكود مباشرة بسحب الصورة

 

متبقي ضهور المعالج الاسكانر في حالة انه موصل كما اخبرتك سابقاً

 

تم تعديل مايو 30 بواسطه qathi

[qathi]

استاذنا @Foksh  

متبقي ضهور المعالج الاسكانر في حالة انه موصل كما اخبرتك سابقاً

تم تعديل مايو 31 بواسطه qathi

[qathi]

للرفع ..

ارجو المساعدة للأهمية بارك الله فيكم

[Foksh]

14 ساعات مضت, qathi said:

للرفع ..

ارجو المساعدة للأهمية بارك الله فيكم

كنت في إجازة ، إن شاء الله هحاول اليوم ارفقلك التعديل ،

[qathi]

4 ساعات مضت, Foksh said:

كنت في إجازة ، إن شاء الله هحاول اليوم ارفقلك التعديل ،

استاذنا @Foksh  ماشاء الله .. تعيش وتتهناء أن شاء الله ..

 

انتظر ابدعاتك استاذنا الغالي وياريت اعرف اسمك الاول حتى اناديك كما تعودنا

[Foksh]

2 ساعات مضت, qathi said:

انتظر ابدعاتك استاذنا الغالي وياريت اعرف اسمك الاول حتى اناديك كما تعودنا

حالا اخي الكريم ..

أخوك فادي من الأردن 

 

تفضل أخي @qathi ، جرب هذه الفكرة التي تم فيها تعديل بسيط لإظهار معالج السكانر في حال وجوده :-

Dim imgFileName As String
Dim imgPath As String
Dim WIA As Object
Dim scanner As Object
Dim imgFile As Object
Dim MyPath As String
imgPath = CurrentProject.Path & "\Data\JPG\"
imgFileName = imgPath & Me.ID & ".jpg"
If Dir(imgPath, vbDirectory) = "" Then
    MkDir imgPath
End If
If Dir(imgFileName) <> "" Then
    If MsgBox("الصورة موجودة مسبقاً. هل ترغب في استبدالها؟", vbQuestion + vbYesNo, "تأكيد الاستبدال") = vbYes Then
        On Error Resume Next
        Kill imgFileName
        On Error GoTo 0
    Else
        imgFileName = imgPath & Me.ID & "_new.jpg"
    End If
End If
Set WIA = CreateObject("WIA.CommonDialog")
On Error Resume Next
Set scanner = WIA.ShowSelectDevice()
On Error GoTo 0
If Not scanner Is Nothing Then
    On Error Resume Next
    Set imgFile = WIA.ShowAcquireImage()
    On Error GoTo 0
    If Not imgFile Is Nothing Then
        On Error Resume Next
        imgFile.SaveFile imgFileName
        On Error GoTo 0
        Me.Pic_Path.Requery
        Me.Pic_Path = imgFileName
    Else
        MsgBox "فشل في الحصول على الصورة من الماسح الضوئي!", vbExclamation, "خطأ"
    End If
Else
    MsgBox "يرجى التأكد من توصيل الماسح الضوئي وتشغيله.", vbExclamation, "تنبيه"
End If

 

وهذا الموفق

 

Scanner.accdb

 

تم تعديل يونيو 1 بواسطه Foksh