ربط المسح الضوئي مع الاكسس

[هشام الحامدي]

السلام عليكم ورحمة الله وبركاته

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

كع الشكر الجزيل للجميع

[ARAB101]

وعليكم السلام ورحمة الله وبركاته

 

ضع هذا الكود في وحدة نمطية :

 

Public Sub GetImaage()
    Dim filelocation As String
    Dim diagfile As FileDialog
    Set diagfile = Application.FileDialog(msoFileDialogSaveAs)
    
    diagfile.title = "حفظ ملف الصورة كـ ...."
    diagfile.InitialFileName = "*.bmp"
    
    If diagfile.Show Then
        filelocation = diagfile.SelectedItems(1)
        
        Dim scandiag As Object
        Dim image As Object
        
        Set scandiag = CreateObject("wia.commondialog")
        Set image = CreateObject("wia.imagefile")
        
        Set image = scandiag.showAcquireimage()
        image.savefile filelocation
        
     End If


End Sub

وهذا الكود في الزر داخل النموذج :

Call GetImaage

بالتوفيق

[محمد سلامة]

ممكن توضيح اكتر

او 

ممكن مرفق بخصوص ربط الاسكنر مع الاكسيس