حذف سجلات تم تحديدها و زر تحديد الكل

[ahmad_mustafa]

السلام عليكم 

في الملف المرفق ارجو مساعدتي بحذف سجل معين تم تحديده او زر تحديد الكل لحذف كل السجلات

ولكم الشكر

حذف سجلات حسب تحديدها.rar

[محمد أبوعبدالله]

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

تفضل اخي الكريم

Private Sub أمر146_Click()
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE table1.*, table1.علامة FROM table1 WHERE (((table1.علامة)=True));"
    DoCmd.SetWarnings True
End Sub

Private Sub تدقيق144_Click()
    DoCmd.SetWarnings False

    If Me.تدقيق144 = True Then
        DoCmd.RunSQL "UPDATE table1 SET table1.علامة = True;"
    ElseIf Me.تدقيق144 = False Then
        DoCmd.RunSQL "UPDATE table1 SET table1.علامة = False;"
    End If
    Me.Requery
    DoCmd.SetWarnings True
End Sub

حذف سجلات حسب تحديدها.rar

تحياتي

[ahmad_mustafa]

اشكرك اخ محمد ،،،

فعلا هذا طلبي  لكن الملاحظة ان السجل يبقى ثابت لا يحدث نفسه الا بالضغط على زر f5

[Eng.Qassim]

6 ساعات مضت, ahmus said:

السجل يبقى ثابت لا يحدث نفسه

ضع اخر كود زر الحذف      Me.Requery