حذف الصوره من المجلد المرفق بعد ادراجها

[at_aziz]

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

 

ياخوان لدي مشكله  لم اعرف احلها

في المرفق مثال لادراج صوره عن طريق الاسكنر او الجهاز وحفظها في مجلد مرفق مع قاعدة البيانات

واريد لما احذف السجل تنحذف الصوره ايضا  من المجلد المرفق 

الكود الحالي في المثال  يحذف السجل  وتبقى الصوره في المجلد

فماهي الطريقه ياخوان 

ارجو المساعده بارك الله فيكم وجزاكم الله خير

aziz.rar

[sandanet]

اخي عزيز استخدم الأمر التالي 

Kill (EmpPIC.Value)

ضعه قبل امر الحذف هذا 

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

واخبرني بالنتيجة 

 

[at_aziz]

بارك الله فيك  وجزاك الله خير اخي الفاضل sandanet

اخي جربت لكن للاسف مايعمل الكود

 

وفقك الله

[رمهان]

عزيزي

هناك دالة getimagefolder  يمكنك استخدامها

ولكن حيث انني لا استطيع التجربة على مثالك حيث الحاجة لتسجيل الاداة

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

 

Kill currentproject.path & "\images\" & EmpPIC.Value

بالتوفيق

[at_aziz]

بارك الله فيك وجزاك الله اخي الفاضل رمهان

الله يعطيك الصحة والعافيه

 

فعلا هذا هو المطلوب 

الكود يعمل تمام

وفقك الله 

وشكرا لك والشكر موصول لاخي sandanet