Value of combo on main form to make combo on subform visible= Errors 1

[capndave]

I have combined information from several FAQ and postings and have not been successful with this code:

Private Sub TypeOccur_AfterUpdate()


If TypeOccur.Value = "60" Then
Me!frmsubTxnDetail.SetFocus
Me!frmsubTxnDetail.cboTxnRxn_Label.Visible = True
Me!frmsubTxnDetail.cboTxnRxn.Visible = True

Else
Me!frmsubTxnDetail.SetFocus
Me!frmsubTxnDetail.cboTxnRxn_Label.Visible = False
Me!cboTxnRxn.Visible = False
End If
End Sub

with err message at 3rd line "Run time 438 Object does not support this property or method"

I have tried referring to dependent combo label as

Me!cboTxnRxn_Label.Visible = True which also does not work.

My intention is to include several if/then based on OccurType combo value to make visible different combos on frmsubTxnDetail

Thanks

 

[TheAceMan1]

How are ya capndave . . .

Be aware: [blue]you can't hide a control while it has the focus![/blue] Also, attached labels hide/unhide with the control.

[blue]   Dim sfrm As Form
   
   Set sfrm = [frmsubTxnDetail].Form
   
   If Me!TypeOccur = "60" Then
      sfrm!cboTxnRxn.Visible = True
   Else
      sfrm!cboTxnRxn.Visible = False
   End If
   
   Set sfrm = Nothing[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886