Glad it worked. Just forgot one thing, in the OnClick event of the Bound checkbox, put...
Private Sub YourBoundCheckbox_Click()
Me.YourUnboundCheckBox= False
End Sub
so if all records are selected and one record is deselected, the "select all" checkbox is ready to select all again, if...