qathi قام بنشر مايو 26 مشاركة قام بنشر مايو 26 السلام عليكم احيي اساتذتنا الافاضل واعضاء منتدانا الشامخ وأسأل الله أن تكونوا في أتم الصحة والعافيه المطلوب كالتالي: عند الضغط على زر (سحب اسكانر) {ولم يكن جهاز الاسكانر غير موصل تظهر رسالة تخبر المستخدم أن الجهاز الاسكانر غير موصل } ولا يؤدي ذلك لظهور مشاكل اخر .. لأني قمت بمحاولات سابقة كانت تؤدي الى اخطاء وشكرا لكم على ماتقدموه لنا من وقتكم وجهدكم الثمين مرفق ملف للتعديل علية ScanPro.zip رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مايو 26 مشاركة قام بنشر مايو 26 وعليكم السلام ورحمة الله وبركات أخي @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 رابط هذا التعليق شارك More sharing options...
qathi قام بنشر مايو 29 الكاتب مشاركة قام بنشر مايو 29 في 26/5/2024 at 22:06, Foksh said: الإضافة كانت فقط في الجملة الشرطية في الكود .. وهذا الملف المرفق بعد التعديل .. شكرا لك استاذنا @Foksh على ردك وتعديلك الملف واعتذر عن تاخر ردي لأسباب مرضية قمت بتجربة الملف الان .. لا يعمل عند توصيل الاسكانر او عدم توصيلة تظهر نفس الرسالة "لا يوجد ماسح ضوئي متصل" بالرغم ان جهاز الاسكانر موصل قمت بعمل ايقاف للكود التالي فعمل الكود كما في السابق If scanner.DeviceInfos.Count = 0 Then MsgBox "لا يوجد ماسح ضوئي متصل", vbExclamation Exit Sub End If ارجوا حل المشكلة .. بارك الله فيكم رابط هذا التعليق شارك More sharing options...
qathi قام بنشر مايو 29 الكاتب مشاركة قام بنشر مايو 29 للرفع.. رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مايو 29 مشاركة قام بنشر مايو 29 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 رابط هذا التعليق شارك More sharing options...
qathi قام بنشر مايو 30 الكاتب مشاركة قام بنشر مايو 30 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 ارجوا حل المشكلة .. بارك الله فيكم رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مايو 30 مشاركة قام بنشر مايو 30 جرب هذا المرفق ، جزء من أحد مشاريعي 🙄 Scanner.accdb رابط هذا التعليق شارك More sharing options...
qathi قام بنشر مايو 30 الكاتب مشاركة قام بنشر مايو 30 43 دقائق مضت, Foksh said: جرب هذا المرفق ، جزء من أحد مشاريعي 🙄 جربت الملف استاذنا @Foksh اسمح لي استاذنا بهذه الملاحظة وارجو ان يكون يسع صدرك لي عند الضغط على الزر لايضهر معالج جهاز الاسكانر لانه يوجد في المعالج زر المعاينة وعند الضغط عليه تظهر الصور وتستطيع ان تقتص الجزء الذي تريد عكس الملف الذي ارسلته .. مباشرة يقوم بسحب الصورة الى مجلد .. مما يكون صورة جزء منها المطلوب وبقية الصورة عبارة عن فراغ ابيض مشوهه رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مايو 30 مشاركة قام بنشر مايو 30 12 دقائق مضت, qathi said: اسمح لي استاذنا بهذه الملاحظة وارجو ان يكون يسع صدرك لي بداية الفكرة اللي في الملف تم حل مشكلة التعرف على الماسح الضوئي ؟؟ أم لا ؟؟؟؟؟؟ ثم ممكن نحل هذه المشكلة التي ذكرتها رابط هذا التعليق شارك More sharing options...
qathi قام بنشر مايو 30 الكاتب مشاركة قام بنشر مايو 30 (معدل) 9 دقائق مضت, Foksh said: بداية الفكرة اللي في الملف تم حل مشكلة التعرف على الماسح الضوئي ؟؟ أم لا ؟؟؟؟؟؟ نعم استاذنا @Foksh تم التعرف على الاسكانر فأذا كان الجهاز غير موصل تظهر الرسالة .. وأذا كان موصل يقوم الكود مباشرة بسحب الصورة متبقي ضهور المعالج الاسكانر في حالة انه موصل كما اخبرتك سابقاً تم تعديل مايو 30 بواسطه qathi رابط هذا التعليق شارك More sharing options...
qathi قام بنشر مايو 31 الكاتب مشاركة قام بنشر مايو 31 (معدل) استاذنا @Foksh متبقي ضهور المعالج الاسكانر في حالة انه موصل كما اخبرتك سابقاً تم تعديل مايو 31 بواسطه qathi رابط هذا التعليق شارك More sharing options...
qathi قام بنشر مايو 31 الكاتب مشاركة قام بنشر مايو 31 للرفع .. ارجو المساعدة للأهمية بارك الله فيكم رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يونيو 1 مشاركة قام بنشر يونيو 1 14 ساعات مضت, qathi said: للرفع .. ارجو المساعدة للأهمية بارك الله فيكم كنت في إجازة ، إن شاء الله هحاول اليوم ارفقلك التعديل ، رابط هذا التعليق شارك More sharing options...
qathi قام بنشر يونيو 1 الكاتب مشاركة قام بنشر يونيو 1 4 ساعات مضت, Foksh said: كنت في إجازة ، إن شاء الله هحاول اليوم ارفقلك التعديل ، استاذنا @Foksh ماشاء الله .. تعيش وتتهناء أن شاء الله .. انتظر ابدعاتك استاذنا الغالي وياريت اعرف اسمك الاول حتى اناديك كما تعودنا رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يونيو 1 مشاركة قام بنشر يونيو 1 (معدل) 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان