(تمت الاجابة) خطأ عند الغاء عملية مسح للصورة

[بوحمد]

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

db3.rar

[ابوخليل]

عند الغاء عملية مسح الصور

يوجد في النموذج زر حذف مباشر

السؤال : كيف تلغي عملية مسح الصور ؟

[بوحمد]

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

[ابوخليل]

جرب ضع هذا السطر

On Error Resume Next

في بداية الكود ليصبح الكود هكذا :

Private Sub cmdScan_Click()

On Error Resume Next

Dim Ret As Long, PictureFile As String

' إذا كنت ترغب في تحزين الصور في مسار آخر فغير المسار من هنا

' حالياً سيتم تخزين الصور في نفس مجلد البرنامج

PictureFile = mypathofdb() & Me.ID & "image.jpg"


Ret = TWAIN_AcquireToFilename(Me.Hwnd, PictureFile)


If Ret = 0 Then


Me.pic_path = PictureFile

Me.pic.Picture = Me.pic_path


Else

Kill PictureFile

MsgBox "فشلت عملية السكان", vbCritical, "تنبيه"

End If

End Sub

[بوحمد]

ابو خليل بالفعل جربت الكود ولم تظهر رسالة الخطأ اشكرك وجزاك الله خيرا