In the AfterUpdate event of your search box, add this code:
Code:
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "No records found"
Exit Sub
End If
'option 1 - if the checkboxes are named "Check1, Check2,...
Dim x As Integer
For x = 1 To 8
If Me("Check" & x) = False Then
Me("Check" & x) = True
Exit For
End If
Next
'option 2 - if the checkboxes are named individually
If Me!checkboxA = True Then
If Me!checkboxB = True Then
If Me!checkboxC = True Then
'.....
Else
Me!checkboxC = True
End If
Else
Me!checkboxB = True
End If
Else
Me!checkboxA = True
End If