[nasos23]

Καλημέρα σε όλους.
Μιχάλη στο συνημμένο επέλεξα τα εξής:
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