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

[أحمد العيسى]

السلام عليكم
يوجد فى قاعدة بياناتى نموذج "frm_OnlyYou" يحتوى على مربع اختيار مبنى على حقل"onlyyou"يمكن من خلاله تحديد أو عدم تحديد السجلات المرغوبة ، استخدمه فى عرض السجلات بتقرير منفصل الذى يحمل الأسم "تقرير_الأرقام" ويمكن طباعة محتوياته
المطلوب تكرماً تعديل هذا الكود ليقوم بحذف تلك السجلات بعد عرض رسالة تحذير ولكم منى جزيل شكرى
الكود المطلوب تعديله :

كود

Private Sub VPrint_Click()
   If Me.rrr = 0 Then
    MsgBox "يجب أن تختار اسم واحد على الأقل", vbInformation, "الأختيار"
   Exit Sub
   End If
  
   Me.Refresh
   DoCmd.OpenReport "تقرير_الأرقام", acPreview, "", "onlyyou=true"
   Form_frm_OnlyYou.Visible = False
End Sub

 

[أحمد العيسى]

حل هذا الموضوع بالسطور التالية بعد كثير من المحاولة والخطأ

كود

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

[أبا عمر]

تم التعامل مع بعض المشاركات   

ينقل