Combo Box Selection 2

[OceanBlue]

I read a similar post what I didn't get a solution the to problem I am having.

If a certain selection is made from the combo box I need certain fields to be visible, else they should be not visible.

I have this code as:

Private Sub cboJobType_AfterUpdate()
txtApproval.Visible = (JobType.Value = 7 Or cboJobType.Value = 8)
txtPgsRejected.Visible = (JobType.Value = 7 Or cboJobType.Value = 8)
QAframe.Visible = (JobType.Value = 7 Or cboJobType.Value = 8)
End Sub

When I go to the next record or previous record or new record these fields are visible even though the combo selection isn't a case where they should be visible.

How do I fix this, where only when the combo selection is 7 or 8 that these fields be visible when I close the form and reopen it it should be visible only if the combo box has 7 or 8 or if I go to previous or next or new record the fields are visible only if the combo box is 7 or 8.

thanks

 

[Remou]

Hi
I think you will also need to add your code to the On Current event for the form.

 

[PHV]

Put the code in the Current event procedure of the form too.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[OceanBlue]

Much appreciated! That seemed to do the trick.

When I am on a new record I get an error msg "Invalid use of Null" When I click on Debug it highlights

txtApproval.Visible = (JobType.Value = 7 Or cboJobType.Value = 8)
txtPgsRejected.Visible = (JobType.Value = 7 Or cboJobType.Value = 8)
QAframe.Visible = (JobType.Value = 7 Or cboJobType.Value = 8)

 

[Remou]

Maybe:

If Not IsNull(Me.JobType) Then
  txtApproval.Visible = (JobType.Value = 7 Or cboJobType.Value = 8)
  txtPgsRejected.Visible = (JobType.Value = 7 Or cboJobType.Value = 8)
  QAframe.Visible = (JobType.Value = 7 Or cboJobType.Value = 8)
Else
'Code for JobType has not been selected
End If

 

[OceanBlue]

Thank you that works!