السلام عليكم الاساتذة الكرام
اخوني اذا ممكن المساعدة في تصحيح هذا الكود
وهو كود حذف السجل والصورة
المشكلة عنده الحذف الكود يذهب الى السجل الاول ويرجع بعدها الى السجل الحالي
انا اريد عند حذف السجل والصورة يبقى في مكان السجل المحذوف او السجل التالي لااريد ان يذهب الى السجل الاول الذي فيه بيانات
مع العلم اني غيرت في الكود ولاكن تظهر رسالة اكسس وهيه عبارة (#محذوف) في كل الحقول بعد الحذف
On Error Resume Next
DoCmd.SetWarnings False
If MsgBox("لتأكيد الحذف اضغط اوك", vbOKCancel + vbQuestion, "حذف السجل والكتاب ") = vbOK Then
Me.Undo
Dim x1
x1 = "مسار الصورة"
Kill (AA1)
DoCmd.OpenQuery "qrydelet"
DoCmd.OpenQuery "qrydeletform11"
Me.Requery
MsgBox "تم حذف السجل بنجاح", vbInformation, "حذف السجل"
Else
MsgBox "تم الغاء الحذف", vbInformation, "الغاء الحذف"
End If
DoCmd.SetWarnings True
DoCmd.GoToRecord , , acNewRec