مساعدة في كشف عن خطأ في المعادلة

[ahmedhossin]

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

[د.كاف يار]

اخي الكريم

تفضل هذا الكود البسيط لجلب الصورة من الماسح الضوئي

Dim fdialog As Office.FileDialog
Dim filepath As String
Dim sdialog As New WIA.CommonDialog
Dim imagefile As WIA.imagefile
On Error GoTo errorhandle
Set fdialog = Application.FileDialog(msoFileDialogSaveAs)
filepath = CurrentProject.Path & "\" & "SCAN" & "-" & Format(Now, "dd-mm-yyyy" & "-" & "hh:mm") & ".jpg"
            Set imagefile = sdialog.ShowAcquireImage()
            imagefile.SaveFile filepath
            [اسم مربع عنصر التحكم لوضع لتخزين المسار] = filepath
errorhandleexit:
        Exit Sub
errorhandle:
        MsgBox Err.Description
        Resume errorhandleexit

 

[ahmedhossin]

جزاك الله خيرا و جعلها في ميزان حسناتك كود الجلب من الكمبيوتر نفسه 

[د.كاف يار]

تفضل هذا المثال وضعت لك مثالين لسحب الصورة من الماسح الضوئي و جلب صورة من الكمبيوتر

Database12222.mdb