كود لتشغيل الاسكنر

[ahm2019]

السلام عليكم

ممكن مساعدة فى قاعدة بيانات

المطلوب عندالضغط على الزر شهادة الميلاد 

يتم تشغيل الاسكنر ويحظ الصور فى مجلد d: doc

واسم الصورة يكون الرم الوظيفى -1

والزر الثانى نفس الوظيفة واسم الصورة 

واسم الصورة يكون الرم الوظيفى -2

 

شكرا مقدما

 

[MrTid]

Dim f As Object
Dim strfile As String
Dim strfolder As String
Dim varItem As Variant
Set f = Application.FileDialog(3)
f.allowMultiselect = True
If f.show Then
For Each varItem In f.selectedItems
strfolder = Left(varItem, Len(varItem) - Len(strfile))
MsgBox "Folder" & strfolder & vbCrLf & _
"File: " & strfile
picturesource = strfolder + strfile
Next
End If
Set f = Nothing