كود حذف سجل و كود تحديث حقل

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

تفضل

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
'مضمون الرسالة التي ترغب بظهورها
Msg = "هل تريد تنفيذ ...... ?"    
' نوع و طبيعة الخيار
Style = vbYesNo + vbCritical + vbDefaultButton2    
' عنوان الرسالة
Title = "MsgBox Demonstration"    

Response = MsgBox(Msg, Style, Title, Help, Ctxt)

If Response = vbYes Then    ' User chose Yes.
' في حال كانم الجواب نعم
	Docmd.openquery "اكسب اسم الاستعلام هنا"
Else    
' في حال كان الجواب لا
	msgbox "تم إلغاء الامر "
End If