تعديل كود اضافة صورة

[بلال اليامين]

السلام عليكم

اريد عند اضافة صورة يتم تخزنها داخل البرنامج

ليس في  المجلد 

البرنامج.rar

[Foksh]

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

دون تحميل الملف المرفق ، فقط حول الحقل الى حقل مرفقات .

ولكنك هنا ستواجه مشكلة في تضخم حجم قاعدة البيانات مستقبلاً اخي الكريم.

 

الكثير من المواضيع تحدثت عن هذه المشكلة وكان الحل بحفظ الصور والمرفقات بمجلد بجانب قاعدة البيانات.

[بلال اليامين]

اخي لقد نقلة البرنامج مع المجلد ولم اجد الصور

اخي هل يوجد خطاء في البرنامج

[Foksh]

1 ساعه مضت, بلال اليامين said:

اخي هل يوجد خطاء في البرنامج

كلا أخي الكريم 😅 ، الخطأ في طريقة التنفيذ . لذا قمت بإضافة دالة بسيطة تقوم بتحديث الحقل الخاص بمسار الصور من خلال الدالة التالية :-

Public Sub UpdateImagePaths()
    Dim dbPath As String
    Dim newBasePath As String
    Dim sql As String

    dbPath = CurrentProject.Path
    newBasePath = dbPath & "\Images\"

    sql = "UPDATE tblImportExcel SET PicPath5 = '" & newBasePath & "' & Mid(PicPath5, InStr(PicPath5, 'Images') + 7);"

    DoCmd.SetWarnings False
    DoCmd.RunSQL sql
    DoCmd.SetWarnings True
End Sub

واستدعاءها في حدث عند الفتح للنموذج أو اي نموذج يعمل في بداية المشروع .

انظر ملفك وانقله على اي مكان تريد وجربه الآن .

 

 

البرنامج.zip

[kkhalifa1960]

مشاركةً مع استاذ @Foksh  إليك هذا المرفق ادخال الصورة من أي مكان وعرضها بأي مكان حتى لو شغلته علي غير كمبيوتر .

ولو عندك اقسام وتريد انشاء فولدر  باسم القسم وحفظ صور موظفينه به . وافني بالرد وانا حاضر . 

Insert Images.rar