show box on form open based on combo box 2

[DrSmyth]

I've a form with some code in the open routine:

Me.Box89.Visible = True
Forms![Referrals Edit]![ReferralType].SetFocus
If Me.ReferralType.Text = "Premier Service Managers" Or Me.ReferralType.Text = "FPM" Or Me.ReferralType.Text = "AFSM" Or Me.ReferralType.Text = "Financial Planning Direct" Then
Me.Box89.Visible = False
Else: Me.Box89.Visible = True
End If

basically i have some commands behind 'Box89' that i want hidden if certain text is not present in a text box on the form. This works fine if i'm accessing the form to edit a current record (using this code:

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Referrals Edit"
    
    stLinkCriteria = "[Beneficiary Name]=" & "'" & Me![search_bene] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

)

whereas if i'm accessing the form to add a new record (using this code

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Frm_InputCaseholder"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.GoToRecord , , acNewRec

)

it does not hide the box (box89)despite the text box meeting the relevant criteria.

Can anbody help?


it doesn't work

 

[snyperx3]

Have you tried putting code in the ReferralType OnChange event?

Also, you dont have to set the focus to the textbox if you use .Value.

If Me.ReferralType.Value = "Premier Service Managers" Or Me.ReferralType.Value = "FPM" Or Me.ReferralType.Value = "AFSM" Or Me.ReferralType.Value = "Financial Planning Direct" Then
     Me.Box89.Visible = False
Else
     Me.Box89.Visible = True
End If

-Pete

 

[avolkert]

SYNPERX3 has a good question/suggestion.

I'm inclined to suggest, depending on what the form is doing and when, that you might want to examine the form's ON CURRENT property.

Esentially, that property (code attached, of course) runs whenever the record changes.

I don't know ... this is a little perplexing. I'll check back to find out a better answer later.

You might want to touch base with a Tek-Tips user, MajP ... that guy's really good.

Alan J. Volkert
Fleet Services
GE Commercial Finance Capital Solutions
(World's longest company title)
Eden Prairie, MN

 

[DrSmyth]

Hi snyperx3,

I've got some code running from the ReferralType OnChange event, but it isn't invoked when i open the form (presently). I'll take a look at the oncurrent event, see if there's anything there that can help me..

Cheers guys I'll let you know how i get on...

 

[DrSmyth]

Hi avolkert, i added the code to the oncurrent event and it now seems to work, thanks for the pointer. You can have a star.

Also a star for you snyperx3 as the code seems much neater using the .value property as opposed to the .text

Thanks for the help folks