1. you dont need all these buttons, but you can. To delete an item in the list box, use the listBox_KeyDown() event.
The user selects an item, pressed delete ,then the event runs a delete query to remove the item selected
Code:
sub lstBox_KeyDown(KeyCode As Integer, Shift As Integer)
if KeyCode = vbKeyDelete then
docmd.setwarnings false
docmd.openquery "qdDel1Item" 'delete query uses the users pick in criteria
lstBox.requery
end if
2. You can have the user dbl-click the item in the list box to change it from yes to no (or visa versa)
Code:
sub lstBox_doubleclick()
docmd.setwarnings false
docmd.openquery "quUpd1Item" 'this update query uses the users pick in criteria , and set the field to: NOT [field]
lstBox.requery
end if