G
Guest
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
(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