تعديل مسار الصور دفعة واحدة

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

السلام عليكم

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

المطلوب (تعديل على الكود)

اُريد عند نقل قاعدة البيانات الى مكان اخر في الكومبيوتر يقوم الكود في الزر بالتعديل على مسار الصورة لكافةالسجلات دفعة واحدة في الجدول

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

New folder.rar

تم تعديل يونيو 11, 2021 بواسطه محمد التميمي

[د.كاف يار]

2 ساعات مضت, محمد التميمي said:

السلام عليكم

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

المطلوب (تعديل على الكود)

اُريد عند نقل قاعدة البيانات الى مكان اخر في الكومبيوتر يقوم الكود في الزر بالتعديل على مسار الصورة لكافةالسجلات دفعة واحدة في الجدول

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

New folder.rar 213.63 kB · 7 downloads

استبدل الكود الخاص بأزرار التحديث بالكود التالي

 

On Error Resume Next
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim x, z As String
    
    Set rs = CurrentDb.OpenRecordset("Table")
    
    If Not rs.BOF And Not rs.EOF Then
        rs.MoveFirst
        While (Not rs.EOF)
        
        x = Right(rs.Fields("PicPath2"), Len(rs.Fields("PicPath2")) - InStrRev(rs.Fields("PicPath2"), "\"))
        rs.Edit
        rs!PicPath2 = Application.CurrentProject.Path & "\" & "Pictures" & "\" & x
        rs.Update

            rs.MoveNext
        Wend
    End If
    rs.Close
    Set rs = Nothing

DoCmd.Requery

 

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

شكراً استاذ حسين

تم استبدال الكود

ولاكن تعطل كود اضافة صورة بالكامل

[د.كاف يار]

تفضل التعديل

 

Database.accdb

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

بارك الله بك استاذي الفاضل

الكود صحيح ويعمل بامتياز ولاكن الخطأ كان من عندي

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