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

[moustafa]

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

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

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

[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 را راهم دانلود کنید و به کتاب خانه اضافه کن

[moustafa]

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 مگه همین نیست؟
Untitled5.png

[moustafa]

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

[mazoolagh]

سلام و روز خوش

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

[moustafa]

سلام و روز خوش

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

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

[mazoolagh]

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

[eb_1345]

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

[moustafa]

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

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

[eb_1345]

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

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

[moustafa]

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

تشکر جناب بهرامی
این خطاها رو داد :
Untitled20.png
Untitled21.png