Set the value of a checkbox on a sub-form.

[weightinwildcat]

I am using the following code to set the value of a checkbox on a sub-form:

If Not IsNull(Forms![Ship Partial Form].[Ship Partial Subform Two].Form.DateShippedTextbox.value) Then
Forms![Ship Partial Form].[Ship Partial Subform Two].Form.ShipPartialCheckbox.value = True
Else
Forms![Ship Partial Form].[Ship Partial Subform Two].Form.ShipPartialCheckbox.value = False
End If

The default view is Continuous Forms.

IF the current record has a Date value in the DateShippedTextbox then the check boxes will show a checkmark for ALL the records. Likewise, if there is NOT a date value, the check boxes will NOT show a checkmark for ANY of the records. Is there a place where I can put this code where things will show up correctly?

 

[PWise]

is the ShipPartialCheckbox bound or unbound

 

[weightinwildcat]

It is bound to a calculated field, as follows:

IsShipped: IIf(Not IsNull([DateShipped]),True,False)