[access] deselezionare checkbox seleziona tutti se almeno una voce non è spuntata

[mentos]

Anzichè chiamare il checkbox del pane cb1, il checkbox della pasta cb2 e via dicendo, li crei "in serie" con lo stesso nome (es cb_cibi) e utilizzando la proprietà index con 4 righe di codice risolvi il problema in questo modo:

Private Sub cb_cibi_Click(index as integer) 
if cb_cibi(index).value=1 then
cbAll.value = 0
end if
End Sub