الصور لاتظهر عند عمل scan

[almersat]

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

قمت بتحديث الاكسيس إلى أوفيس بروفيشنال ٢٠١٦ بعدها ظهرت مشكلتين:

1-عند عمل scan عن طريق الاكسيس تظهر الصوره فارغه

٢- عدم ظهور الصور في التقرير. 

هل يوجد حل لهذه المشكله.. 

[Eng.Qassim]

وعليكم السلام

احيانا تكون المشكلة بتنسيق خاصية تخزين الصور

وتظهر تلك المشكلة في نواة 32bit

حاول تغيير الخاصية كما في الصورة عسى ان تنفعك

[almersat]

مشكور eng. Qassim على الرد

ستتم التجربة وإبلاغك بالنتائج

[د.كاف يار]

تفضل هذا المثال

 

Scaneer.accdb

[محمد التميمي]

3 ساعات مضت, د.كاف يار said:

تفضل هذا المثال

 

السلام عليكم

احسنت استاذ د.كاف يار بارك الله بك على التعديل

بعد اذن اخونا almersat

استاذي العزيز ممكن تعديل على كود جلب الصورة بحيث يتم الاستغناء عن شرط التسجيل لمكتبة من النوع   15.0 Microsoft Office كما موضح في الصورة ادناه

 

مع فائق الشكر والتقدير 

صورة.rar

[د.كاف يار]

23 دقائق مضت, محمد التميمي said:

السلام عليكم

احسنت استاذ د.كاف يار بارك الله بك على التعديل

بعد اذن اخونا almersat

استاذي العزيز ممكن تعديل على كود جلب الصورة بحيث يتم الاستغناء عن شرط التسجيل لمكتبة من النوع   15.0 Microsoft Office كما موضح في الصورة ادناه

 

مع فائق الشكر والتقدير 

صورة.rar 145.64 kB · 0 downloads

تفضل

 Dim f                  As Object
 Dim SelectFile         As String

 Set f = Application.FileDialog(3)
 f.AllowMultiSelect = True
    With f
       .AllowMultiSelect = False
       .Title = "Select File Location to Export XLSx :"
       .InitialFileName = "jeffatwood.xlsx"

    If .Show = True Then
       For Each varFile In .SelectedItems
         SelectFile = varFile
       Next
    End If
End With

 

جلب صورة موظف.zip

[محمد التميمي]

3 دقائق مضت, د.كاف يار said:

تفضل

 Dim f                  As Object
 Dim SelectFile         As String

 Set f = Application.FileDialog(3)
 f.AllowMultiSelect = True
    With f
       .AllowMultiSelect = False
       .Title = "Select File Location to Export XLSx :"
       .InitialFileName = "jeffatwood.xlsx"

    If .Show = True Then
       For Each varFile In .SelectedItems
         SelectFile = varFile
       Next
    End If
End With

 

جلب صورة موظف.zip 180.49 kB · 0 downloads

احسنت ياعيوني

ولاكن اختلف الكود لم يحفظ الصورة برقم السجل ولا في ملف Pictures

[د.كاف يار]

7 دقائق مضت, محمد التميمي said:

احسنت ياعيوني

ولاكن اختلف الكود لم يحفظ الصورة برقم السجل ولا في ملف Pictures

تفضل هذا التعديل

 

thaaer.zip

[محمد التميمي]

5 دقائق مضت, د.كاف يار said:

تفضل هذا التعديل

 

بارك الله بجهودك القيمة يا اخي الكريم ورحم الله والديك في الدنيا والاخرة

هذا هو المطلوب شكراً جزيلاً

[د.كاف يار]

3 دقائق مضت, محمد التميمي said:

بارك الله بجهودك القيمة يا اخي الكريم ورحم الله والديك في الدنيا والاخرة

هذا هو المطلوب شكراً جزيلاً

لحظة حذف الصورة ماهو بهذي الطريقة يكون !

فأنت تقوم بحذف المسار فقط و لا يتم حذف الصورة من المجلد

 

تفضل هذا التعديل

 

 

 

thaaer.zip

يبدوا انني تسرعت اعتذر لم انتبه انك فعلا تستخدم وظيفة kill

[محمد التميمي]

13 دقائق مضت, د.كاف يار said:

لحظة حذف الصورة ماهو بهذي الطريقة يكون !

فأنت تقوم بحذف المسار فقط و لا يتم حذف الصورة من المجلد

 

تفضل هذا التعديل

 

 

 

thaaer.zip 32.07 kB · 0 downloads

يبدوا انني تسرعت اعتذر لم انتبه انك فعلا تستخدم وظيفة kill

لاتعتذر اخي الكريم انت المتفضل علينا بارك الله بك

[almersat]

الف شكر eng. Qassim

الف شكر د.كاف يار

تم حل المشكله بعد توجيهاتكم🤗