اتفضل اليك ما طلبت لكن ارجوا ان لا نتعدى قوانين  المنتدى .. لكل موضوع سؤال جديد بعد البحث عن ما يريد هذا هو الكود لحذف الصور مع السجل Private Sub Command21_Click() On Error Resume Next Dim MyPict As String DoCmd.SetWarnings False MyPict = CurrentProject.Path & Me.PicFile Kill (MyPict) DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Me.Requery DoCmd.SetWarnings True MsgBox "تم الحذ