للخبراء المحترمين أريد تعديل بسيط على كود حفظ المرفقات

[mohamed_th]

السلام عليكم 

انا استخدم الكود ده لحفظ المرفقات بجوار قاعدة البيانات ،، بمعني انا اضغط على زر في سجل ـ داخل نموذج عناصر متعددة ـ المفروض يحفظ مرفقات السجل الحالي 

Set db = CurrentDb
Set rstable = db.OpenRecordset("TablName")
Set rsfile = rstable.Fields("FieldNAme").Value
rsfile.Fields("FileData").SaveToFile Application.CurrentProject.Path

الكود شغال وتمام لكن المشكلة انه هو بيحفظ مرفقات اول سجل فى الجدول وليس مرفقات السجل اللي انا عليه الآن 

حفظ المرفقات.accdb

[husamwahab]

تفضل اخي العزيز

ارجو ان يكون طلبك

حفظ المرفقات-10.rar

[mohamed_th]

تم تعديل يوليو 1, 2020 بواسطه mohamed_th

[husamwahab]

بالخدمة استاذ mohamed_th