تعديل كود حذف

[وعد المحلاوي]

السلام عليكم الاساتذة الكرام 

اخوني اذا ممكن المساعدة في تصحيح هذا الكود

وهو كود حذف السجل والصورة 

المشكلة عنده الحذف الكود يذهب الى السجل الاول ويرجع بعدها الى السجل الحالي 

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

مع العلم اني غيرت في الكود ولاكن تظهر رسالة اكسس وهيه عبارة (#محذوف) في كل الحقول بعد الحذف

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

 

تم تعديل فبراير 11, 2024 بواسطه Moosak
تنسيق الكود

[Foksh]

منذ ساعه, وعد المحلاوي said:

Me.Requery

جرب احذف هذا الجزء أخي الكريم ،

 

متابع

[وعد المحلاوي]

السلام عليكم Foksh

عند حذف هذا الجزء Me.Requery تظهر #محذوف

[Foksh]

1 ساعه مضت, وعد المحلاوي said:

    DoCmd.GoToRecord , , acNewRec

من المفترض بناءً على هذا السطر أن يتم نقلك إلى سجل جديد في حال تم الحذف أو لم يتم ، وعدم ظهور نتيجة الحذف  كما في الصورة .

 

أو أرسل مرفقك لرؤيته

[وعد المحلاوي]

استاذ Foksh   اسف تاخرت عليك برد

شكرا لك على  مساعدتك واهتمامك 

س/ ممكن الغلط يكون في  ترتيب الاسطر  في الكود يعني ممكن يكون حذف السجل اول وبعدين حذف الصورة يكون تحت او العكس 

تحياتي لك 

[Foksh]

اخي الكريم ، في هذا السطر
 

4 ساعات مضت, وعد المحلاوي said:

Kill (AA1)

من المفترض أن يمثل AA1 مسار الصورة المستهدفة للحذف .

لذلك من الطبيعي أن تقوم أولاً بحذف الصورة ثم تقوم بحذف السجل .

[وعد المحلاوي]

شكرا استاذ Foksh

تعبتك معي تحياتي لك