Problems With BeforeUpdate

I have the following code entered on a subform:Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.RegVerify = -1 And Me.RegStatus = 0 Then
Dim strMsg As String
strMsg = "This household has not been registered." & Chr(10) & Chr(10) & _
"Do you wish to register the household now?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Register Household?") = vbYes Then
Me.RegStatus = -1
Me.CurrentYearRegDate = Format(Now(), "mm/dd/yyyy")
Else
End If
End If
End SubThe code is placed on the subform 'Form_Main_Hshld' with the intention that if the 'RegVerify' checkbox is selected the data entry person will receive a reminder that they did not register the current household. The code seemed to work fine, but there are 4 subforms on the 'Form_Main_Hshld' form and if any of those are selected the code will run inadvertantly. Is there anyway to code so that the program only runs the verification process when moving between records on the 'Form_Main_Hshld' form?

-aldo