خطا در اکسن مدارک

با سلام
در کدهای زیر که برای اسکن مدارک گذاشتم

Private Sub btnScan_Click()

    Dim FileLocation As String

    Dim Dpath, x As String

    Dim fso

    

    Set fso = CreateObject("Scripting.FileSystemObject")

     

    Dpath = CurrentProject.path & "\pic"

    x = "Y" & Left(Forms!sanad1!tarikh_sand, 4) & "S" & Forms!sanad1!radif_sand & "F" & Forms!info!radif_factor & ".jpg"

    

    

    FileLocation = Dpath & "\" & x

        If Dir(FileLocation) <> vbNullString Then  'ÈÑÑÓí ÚÏã æÌæÏ ÝÇíá ÈÑÇí ÌáæíÑí ÇÒ ÇÑæÑ ÇÓ˜ä

                

            fso.deletefile FileLocation

        End If

    

    Dim scanDiag As New WIA.CommonDialog

    Dim Image As WIA.ImageFile

        

    Set Image = scanDiag.ShowAcquireImage()

    Image.SaveFile FileLocation

        

    masire_asli = FileLocation

    imgFactor.Picture = FileLocation



End Sub

این خطا رو میده در حالیکه هیچ اسکنی از قبل از طریق برنامه دیگه در جریان نمی باشد
ضمیمه 156142

Private Sub btnScan_Click()
Dim FileLocation As String
Dim Dpath As String
Dim x As String
Dim fso As Object
Dim scanDiag As Object
Dim Image As Object


' ایجاد شیء FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")

' تعیین مسیر ذخیره تصویر
Dpath = CurrentProject.Path & "\pic"
x = "Y" & Left(Forms!sanad1!tarikh_sand, 4) & "S" & Forms!sanad1!radif_sand & "F" & Forms!info!radif_factor & ".jpg"

FileLocation = Dpath & "" & x

' بررسی وجود فایل و حذف آن در صورت وجود
If fso.FileExists(FileLocation) Then
fso.DeleteFile FileLocation
End If

' ایجاد شیء CommonDialog برای اسکن تصویر
Set scanDiag = CreateObject("WIA.CommonDialog")

' اسکن تصویر
On Error GoTo ErrorHandler
Set Image = scanDiag.ShowAcquireImage()

' ذخیره تصویر اسکن شده
Image.SaveFile FileLocation

' نمایش تصویر در کنترل تصویر
masire_asli = FileLocation
imgFactor.Picture = FileLocation

Exit Sub


ErrorHandler:
MsgBox "خطا در اسکن تصویر: " & Err.Description, vbExclamation, "خطا"
End Sub کتاب خانه WIA را راهم دانلود کنید و به کتاب خانه اضافه کن

نقل قول:

---

نوشته شده توسط hamidreza472012

Private Sub btnScan_Click()
Dim FileLocation As String
Dim Dpath As String
Dim x As String
Dim fso As Object
Dim scanDiag As Object
Dim Image As Object


' ایجاد شیء FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")

' تعیین مسیر ذخیره تصویر
Dpath = CurrentProject.Path & "\pic"
x = "Y" & Left(Forms!sanad1!tarikh_sand, 4) & "S" & Forms!sanad1!radif_sand & "F" & Forms!info!radif_factor & ".jpg"

FileLocation = Dpath & "" & x

' بررسی وجود فایل و حذف آن در صورت وجود
If fso.FileExists(FileLocation) Then
fso.DeleteFile FileLocation
End If

' ایجاد شیء CommonDialog برای اسکن تصویر
Set scanDiag = CreateObject("WIA.CommonDialog")

' اسکن تصویر
On Error GoTo ErrorHandler
Set Image = scanDiag.ShowAcquireImage()

' ذخیره تصویر اسکن شده
Image.SaveFile FileLocation

' نمایش تصویر در کنترل تصویر
masire_asli = FileLocation
imgFactor.Picture = FileLocation

Exit Sub


ErrorHandler:
MsgBox "خطا در اسکن تصویر: " & Err.Description, vbExclamation, "خطا"
End Sub کتاب خانه WIA را راهم دانلود کنید و به کتاب خانه اضافه کن

---

با سلام و احترام وسپاس
کابخانه WIA مگه همین نیست؟
ضمیمه 156189

فرقی نکرد همون اور باقیست.البته بعضا با کدهای خودم اسکن میکنه ولی غالبا همچین خطایی میده

سلام و روز خوش

بنظر میاد داستان همیشگی ابجکت هایی هست که تعریف کردین،
ولی در پایان کار dispose نشده رها شدن.

نقل قول:

---

نوشته شده توسط mazoolagh

سلام و روز خوش

بنظر میاد داستان همیشگی ابجکت هایی هست که تعریف کردین،
ولی در پایان کار dispose نشده رها شدن.

---

دورد وایام به کام
در این مورد اطلاعی ندارم ممکنه بیشتر توضیح بفرمائین و چاره بگین ؟.ممنونم

سلام دوباره
تاپیک زیر یک توضیح مختصر دادم (پست های 13 و 14 و 16)
نمایش نام شیت های اکسل در کمبوباکس (barnamenevis.org)

الآن به طور اتفاقی چشمم افتاد به این تاپیک فکر کردم شاید کدهائی در نمونه این تاپیک باشه که به دردتون بخوره

نقل قول:

---

نوشته شده توسط eb_1345

الآن به طور اتفاقی چشمم افتاد به این تاپیک فکر کردم شاید کدهائی در نمونه این تاپیک باشه که به دردتون بخوره

---

دستتون درد نکنه فقط از نوع ویندوز 32 بیتی هست تبدیلاش یادم رفته !...............

نقل قول:

---

نوشته شده توسط moustafa

دستتون درد نکنه فقط از نوع ویندوز 32 بیتی هست تبدیلاش یادم رفته !...............

---

به 64 بیتی تبدیل شد

نقل قول:

---

نوشته شده توسط eb_1345

به 64 بیتی تبدیل شد

---

تشکر جناب بهرامی
این خطاها رو داد :
ضمیمه 156238
ضمیمه 156239