Originariamente inviato da longline
Secondo me hai usato una check box come comando per selezionare tutti perchè ti sei ispirato alle pagine web. Se invece utilizzi un pulsante di comando il problema non ce l'hai più.

Ogni volta che viene premuto il pulsante, tutte le checkbox vengono impostate a true. Fine.
Ciao. Ho provato a seguire il tuo consiglio, quindi a sostituire la checkbox con un pulsante ma ottengo un errore (di run-time 2113 è stato immesso un valore non valido per il campo) in corrispondenza della riga Me.Controls("cb" & i) = Me.cbAll in questa sub

codice:
Private Sub cbAll_Click() 
Dim i As Integer
For i = 1 To 3
   Me.Controls("cb" & i) = Me.cbAll
Next i
End Sub
Come la dovrei modificare?