Loop Subform to find null fields

[rdkelly3]

I am having great difficulty in figuring out how to code this properly. basically, what I want to do is at the final stage of receiving a purchase order, the final country of origin needs to be completed (field named [COO]). FYI, we might not know what country the products are coming from at the time of initial issue of said purchase order. My latest variation of code is:

Dim tmprs As Variant
Set tmprs = [PO_Detail subform].Form.Recordset
If Not tmprs.BOF Then
tmprs.MoveFirst
End If
If IsNull(Me.PO_Detail_subform![COO]) Then


With Me.PO_Detail_subform.Form.Recordset
Do While Not .EOF
MsgBox ("COO")
.MoveNext
Loop
End With
End If

Any suggestions would be greatly appreciated.

Thanks,
Robert

[ItsMe]

You could filter the subform to only include the nulls

Me.PO_Detail_subform.form.filteron = false
Me.PO_Detail_subform.form.filter = ""
Me.PO_Detail_subform.form.filter = "[COO] is null"
Me.PO_Detail_subform.form.filteron = True

My preference is to not use the filter but instead adjust the recordsource of the form. Filters may be adjusted by the user and provide inconsistent results. You could include a WHERE clause that would have the child link field as well as COO

[rdkelly3]

Thanks for your response, I will give it a try.
Thanks Again,
Robert