كودحذف سجل اثناء الكتابه

[sayedomara]

اريد عمل زر حذف سجل بحيث يظهر رساله تحذير . هل تريد حذف هذا السجل نعم او لا . ارجو المساعده انا مبتدا

تم تعديل يونيو 12, 2017 بواسطه sayedomara

[Shivan Rekany]

هل قصدك هذا

  If MsgBox("هل تريد الحذف السجل ", vbYesNo , "تنبيـــه") = vbYes Then
		Docmd.runcommand accmdselectrecord
        DoCmd.RunCommand acCmdDeleteRecord
        MsgBox "تم الحذف"
        me.Refresh
	
   End If

 

[ابوخليل]

If MsgBox("هل تريد حذف هذا السجل ؟", _
    vbCritical + vbYesNo, _
    "تحذير") = vbYes Then
   DoCmd.RunCommand acCmdDeleteRecord
Else
Exit Sub

 

@Shivan Rekany