فصل اسم الملف عن مساره

جزاكم الله خيرا أستاذتنا الرائعة زهرة

ممتاز بارك الله فيك استاذتي زهرة ...

ماذا لو احتجت ان اصحح المسار الموجود  بالجدول على فرض أن لدي بيانات كثيرة فيه بالحقل EmpPic واريد تحيثها إلى المسار الجديد مع عدم تغيير اسم الملف ؟

قد حاولت اعمل ذلك عبر الكود التالي :

 Dim db As Database
 Dim MyTABLE As Recordset
Set db = DBEngine.Workspaces(0).Databases(0)
Set MyTABLE = db.OpenRecordset("tblEmployees", dbOpenTable)
Do While Not MyTABLE.EOF
MyTABLE.Edit
MyTABLE![EmpPic] = Application.CurrentProject.Path & "\" & txtOnlyFile
    MyTABLE.Update
    MyTABLE.MoveNext
  Loop
MyTABLE.Close

الموضوع للرفع بارك الله فيكم ....

وين نشاطكم المعهود ...

تم حل الموضوع .. أشكر للجميع مشاركاتهم ...
يرجى غلق الموضوع .