I have some code on my oncurrent event on my form (frmFollow) with subform
(frmClaims).  Some of it is working (the bits with *** behind the line) but
the rest isn't.  There are no errors when I cycle through the records or
enter new records, and the database compiles fine with no errors either. Does
anyone have any suggestions?

TIA

Private Sub Form_Current()

If Initial_Analysis.Value = "Editing Error" Then
Me!ProcessorName.Visible = True***
Else: Me!ProcessorName.Visible = False
End If

If Me!ProcessorName.Visible = True & Me!ProcessorName.Value Is Null Then
MsgBox "Enter Processor Name…", vbOKOnly
End If

If Initial_Analysis.Value = "Picking Error" Then
Me!PickerName.Visible = True***
Else: Me!PickerName.Visible = False
End If

If Me!PickerName.Visible = True & Me!PickerName.Value Is Null Then
MsgBox "Enter Picker Name…", vbOKOnly
End If

If Initial_Analysis.Value = "Credit for Overcharge" Then
Me!frmProducts!CreditforOvercharge = True
End If

If Initial_Analysis.Value = "Carrier Claim" Then
Me!CarrierClaim = True
Else: Me!CarrierClaim = False
End If

If Me!CarrierClaim = True Then
Me!frmProducts.Visible = False
End If

If Me!CarrierClaim = False Then
Me!frmProducts.Visible = True
End If

End Sub