Forum - Διαγραφή πολλών εγγραφών

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Διαγραφή πολλών εγγραφών (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/6071-diagrafi-pollon-eggrafon.html)

Διαγραφή πολλών εγγραφών

Θα ήθελα στο παράδειγμά μου όταν φιλτράρω το όνομα,όλες οι εγγραφές που θα κάνω check με το check all να διαγραφούν πατώντας delete.Όχι όμως όλες ,μόνον οι φιλτραρισμένες.Ευχαριστώ

Καλημέρα σε όλους.
Μιχάλη στο συνημμένο επέλεξα τα εξής:
1. Στη φόρμα Προέλευση εγγραφών -->Table1
2.Στο πεδίο Select

Κώδικας:

Private Sub YesNo_Click()

Me.Refresh

End Sub

3. Στο κουμπί del

Κώδικας:

Private Sub del_Click()

Dim SQL As String

If IsNull(Me.cbx_onoma) Then

DoCmd.RunSQL "DELETE Table1.Name, Table1.[Select] " & _

" FROM Table1 " & _

" WHERE (((Table1.[Select])=Yes));"

           Me.Requery

           Else

DoCmd.RunSQL "DELETE Table1.Name, Table1.[Select] " & _

" FROM Table1 " & _

" WHERE (((Table1.Name)<> [forms]![Form1]![cbx_onoma]) AND ((Table1.[Select])=Yes));"

                  

    End If

End Sub

Καλημέρα.Ευχαριστώ για την βοήθειά σου