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

[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
این خطا رو میده در حالیکه هیچ اسکنی از قبل از طریق برنامه دیگه در جریان نمی باشد
156142

[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 مگه همین نیست؟
156189

[moustafa]

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

[mazoolagh]

سلام و روز خوش

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

[moustafa]

سلام و روز خوش

بنظر میاد داستان همیشگی ابجکت هایی هست که تعریف کردین،
ولی در پایان کار dispose نشده رها شدن.
دورد وایام به کام
در این مورد اطلاعی ندارم ممکنه بیشتر توضیح بفرمائین و چاره بگین ؟.ممنونم

[mazoolagh]

سلام دوباره
تاپیک زیر یک توضیح مختصر دادم (پست های 13 و 14 و 16)
نمایش نام شیت های اکسل در کمبوباکس (barnamenevis.org) (https://barnamenevis.org/showthread.php?588563-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D9%86%D8%A7%D9%85-%D8%B4%DB%8C%D8%AA-%D9%87%D8%A7%DB%8C-%D8%A7%DA%A9%D8%B3%D9%84-%D8%AF%D8%B1-%DA%A9%D9%85%D8%A8%D9%88%D8%A8%D8%A7%DA%A9%D8%B3)

[eb_1345]

الآن به طور اتفاقی چشمم افتاد به این تاپیک (https://barnamenevis.org/showthread.php?576419-%D9%86%D8%B1%D9%85-%D8%A7%D9%81%D8%B2%D8%A7%D8%B1-%D8%A7%D8%B3%DA%A9%D9%86-%D8%AA%D8%B5%D8%A7%D9%88%DB%8C%D8%B1) فکر کردم شاید کدهائی در نمونه این تاپیک باشه که به دردتون بخوره

[moustafa]

الآن به طور اتفاقی چشمم افتاد به این تاپیک (https://barnamenevis.org/showthread.php?576419-%D9%86%D8%B1%D9%85-%D8%A7%D9%81%D8%B2%D8%A7%D8%B1-%D8%A7%D8%B3%DA%A9%D9%86-%D8%AA%D8%B5%D8%A7%D9%88%DB%8C%D8%B1) فکر کردم شاید کدهائی در نمونه این تاپیک باشه که به دردتون بخوره

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

[eb_1345]

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

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

[moustafa]

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

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