This is my latest attempt which results in a compile error
Private Sub Form_AfterUpdate()
Dim malesx As Integer
MsgBox "[ClientId]= '" & Forms!HomePage!NavigationSubform.Form!ClientID & "'"
malesx = Nz(DCount("[Gender]", "Household Information", "[ClientId]= '" &...