او اجعل كل الكود داخل if و end if اي بدون Else
Private Sub ÃãÑ23_Click()
On Error Resume Next
If MsgBox("åá ÊÑíÏ ÝÇÊæÑÉ ÌÏíÏÉ", vbYesNo, "ÊäÈíå") = vbYes Then
DoCmd.SetWarnings (warningsoff)
DoCmd.RunCommand acCmdDeleteRecord
[Forms]![ÝÇÊæÑÉ ÇáÔÑÇÁ]![ÊÇÈÚ15].Locked = True
[Forms]![ÝÇÊæÑÉ ÇáÔÑÇÁ]![ÊÇÈÚ15].Enabled = False
DoCmd.Requery
End If
End Sub