Frame is not appearing using select case

E

Emma

I have a form on which there is an Option Frame that was appearing once "New
Contract" was selected in the Job_Type combo box. For some reason, it no
longer is appearing on selection, but does appear if I move off the record
and then back on.

Can someone tell me how to get it to appear and to stay visible on records
that have the "New Contract" Option selected?

Private Sub Job_Type_AfterUpdate()

Dim MyOpenArgs As String

MyOpenArgs = Me!Job_ID & "," & Me!cbo_Account_No & "," &
Me!cbo_Account_No.Column(1)


Select Case Me!Job_Type
' Case 1 'Addendum

' DoCmd.OpenForm ""
' Me.refresh

Case 5 'Evaluations

DoCmd.OpenForm "Frm_Tbl_Evaluation_Details", , , , acFormAdd, ,
MyOpenArgs
Me.Refresh

Case 7 'Contract Options
Me!Frame_Contract_Type.Visible = True
Me.Refresh

Case 8 'Rentals

DoCmd.OpenForm "Frm_Rental_Detail", , , , acFormAdd, , MyOpenArgs
Me.Refresh

Case 12 'debit memos

DoCmd.OpenForm "Frm_Tbl_Debit_Memo", , , , acFormAdd, , MyOpenArgs
Me.Refresh


Case Else 'go to comments
DoCmd.GoToControl "Comments"
Me.Refresh

End Select
 
E

Emma

Please disregard. I found the problem. I had another function that was
making it disappear.

Thank you,
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top