My subform does not update on changing the record

[Guest]

Hi, i have a subform that needs to run the following code everytime the user
changes the record. The code is used to update textbox and labels on the form
so that the user only see's exactly what they need to see after they have
selected a source from the cboPartSource combo box. At the moment this is
working fine on the after update of the combo box but when the user changes
to a different record on the subform it does not update to show what is
already selected in the combo box. I have tried using the on current of the
form but it does not seem to work for me. Can anyone help me with this
problem or suggest a better way of doing this. Thanks in advance


Private Sub Form_Current()

If Me.cboPartSource.Value = "" Then
Me.lblSourceHeading.Visible = True
Me.lblSourceHeading.Caption = ""
Me.Box.Visible = True
Me.cboData1.Visible = False
Me.txtData1.Visible = False
Me.txtData2.Visible = False
Me.txtData3.Visible = False
Me.txtData4.Visible = False
Me.txtData5.Visible = False
Me.lblHeading1.Visible = False
Me.lblHeading2.Visible = False
Me.lblHeading3.Visible = False
Me.lblHeading4.Visible = False
Me.lblHeading5.Visible = False

ElseIf Me.cboPartSource.Value = "Original" Then
Me.lblSourceHeading.Visible = True
Me.lblSourceHeading.Caption = "Original"
Me.Box.Visible = True
Me.cboData1.Visible = False
Me.txtData1.Visible = True
Me.txtData1.ControlSource = "lngOrderDate"
Me.txtData1.InputMask = "00\-00;0"
Me.txtData2.Visible = True
Me.txtData2.ControlSource = "lngEstDeliveryWeek"
Me.txtData2.InputMask = "00\-00;0"
Me.txtData3.Visible = True
Me.txtData3.ControlSource = "chrOrderCon"
Me.txtData4.Visible = True
Me.txtData4.ControlSource = "lngOrderNo"
Me.txtData5.Visible = True
Me.txtData5.ControlSource = "lngActDeliveryWeek"
Me.txtData5.InputMask = "00\-00;0"
Me.lblHeading1.Visible = True
Me.lblHeading1.Caption = "Order Date"
Me.lblHeading2.Visible = True
Me.lblHeading2.Caption = "Estimated Delivery Date"
Me.lblHeading3.Visible = True
Me.lblHeading3.Caption = "Order Confirmation"
Me.lblHeading4.Visible = True
Me.lblHeading4.Caption = "Order No"
Me.lblHeading5.Visible = True
Me.lblHeading5.Caption = "Actual Delivery Date"
End If

End Sub

 

[Gary]

i'm a begginer by most standards but is the oncurrent you have used on
the subform or main form?

which ever you have used try using the other, that's my suggestion for
what it may be worth

Gary

 

[Guest]

Thanks but i have tried this in both on current events and it does not work
in either