حذف سجلات محددة

[TQTHAMI]

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

طلب ان شاء الله يتم حلة من قيل الاخوة المتواجدين

بعد كتابة الرقم في الحقل N  وعند الضغط على زر الامر يتم حذف كافة السجلات التي تحمل الرقم المكتوب

موضح داخل المرفق

153.rar

[ابوخليل]

عليكم السلام

DoCmd.RunSQL "DELETE tbl1.*, tbl1.n FROM tbl1 WHERE (((tbl1.n)=[forms]![FORM1]![n]))"

 

[AbuuAhmed]

هذا إجراء للزر في حدث عند النقر
 

Private Sub cmdDelet_Click()
    Dim Records As Long
    Dim Msg As String
    Dim ctl As Control
    Dim TableName As String
    
    On Error Resume Next
    
    TableName = "tblTable1"
    Set ctl = Me.n
    
    If Trim(Nz(ctl, "")) = "" Then
        MsgBox "الحقل فارغ .. يجب أن يحتوي على قيمة ما", , "عفوًا"
        ctl.SetFocus
        GoTo ExitSub
    End If
    
    Records = DCount("*", TableName, "n=" & ctl)
    If Records = 0 Then
        MsgBox "لا يوجد سجلات بنفس القيمة لحذفها", , "عفوًا"
        GoTo ExitSub
    End If
    
    Msg = "سوف يتم حذف " & Records & " سجلات نهائيا الآن"
    If vbOK = MsgBox(Msg, vbOKCancel + vbDefaultButton2, "تأكيد") Then
        Err.Clear
        DoCmd.RunSQL "Delete * from [" & TableName & "] where n=" & ctl & ";"
        
        If Err.Number = 0 Then
            MsgBox "تم الحذف"
        Else
            MsgBox Err.Description, , Err.Number
        End If
    End If

ExitSub:
    Set ctl = Nothing
End Sub

 

Database32_02.accdb

تم تعديل ديسمبر 29, 2022 بواسطه AbuuAhmed

[TQTHAMI]

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

يسعد لي مساءكم بالسعادة والخير

من وفت اضافة الموضوع جتى الساعة  السابعه وانا احاول 

وطلعت بكود الاخ العزيز

 ابوخليل

ولة منا كل الشكر والتقدير

ولكن خطائي لايغفر في عالم البرمجة

DoCmd.RunSQL "DELETE tbl1.*, [tbl1.n] FROM tbl1 WHERE [tbl1.n]=[forms]![FORM1]![n]))"

الحطاء كان الاقواس 

ولك مني اجمل تحية وتقدير

الاخ الغالي  AbuuAhmed

من  حقيقة اغلب مشاركاتي انت من يحيب عليها فلك كل الشكر والعرفان 

وجزاكم الله خير الجزاء