حل هذا الموضوع بالسطور التالية بعد كثير من المحاولة والخطأ
كود
Private Sub DelRecords_Click()
If Me.rrr = 0 Then
MsgBox "يجب أن تختار أسم واحد على الأقل", vbInformation, "الاختيار"
Exit Sub
End If
On Error GoTo Err_DelRecords_Click
If MsgBox("ستقوم الآن بحذف السجلات المحددة " & vbCrLf _
& "" & vbCrLf _
& " " & vbCrLf _
& "هل أنت متأكد ؟" & vbCrLf _
& "إضغط (نعم) للإستمرار أو ( لا) لإلغاء الأمر", vbQuestion + vbYesNo _
+ vbMsgBoxRight + vbMsgBoxRtlReading, "تحذير") = vbYes Then
Dim strName As String
DoCmd.SetWarnings False
DoCmd.RunSQL ("Delete From tbl_Tel Where tbl_Tel.OnlyYou = True;")
Me.Refresh
strName = Me.Name
DoCmd.Close acForm, strName
DoCmd.OpenForm strName
End If
Exit_DelRecords_Click:
Exit Sub
Err_DelRecords_Click:
MsgBox Err.Description
Resume Exit_DelRecords_Click
End Sub