ACCESS FEED: Re: [MS_AccessPros] Object visibility

Kamis, 21 Februari 2013

Re: [MS_AccessPros] Object visibility

Hi Bill,

Thanks for the input but I have tried the code you gave me and I keep getting either "expression error" or "Syntax error" I modified your code a couple of ways but still the errors occur. I'm sure I'm doing something not quite right, so I went back to using my code in the "current event" and it worked ok except that If the control field is made blank, the other fields do not disappear. Do I need to place some code in the "after update" event or in some other event?
To be honest I would really like to use your version of the code. It looks so professional and that is what I really want to learn; different ways to code well. I like the whole idea of making the If statement an expression in itself and setting it equal to the boolean variable.

Thanks and always learning

Paul

--- In MS_Access_Professionals@yahoogroups.com, "Bill Mosca" wrote:
>
> Paul
>
>
>
> You will have to put the code in the form's Current event so it checks each
> record.
>
>
>
> And here is a shorter version:
>
>
>
> Dim bolShowCtrl as Boolean
>
>
>
> bolShowCtrl = (If cboServiceProvider = "Advant-Edge Solutions"_
> lblChemoWaste.Visible = bolShowCtrl
> txtChemoWaste.Visible = bolShowCtrl
>
>
>
>
>
>
>
> Regards,
> Bill Mosca,
> Founder, MS_Access_Professionals
> That'll do IT http://thatlldoit.com/> http://thatlldoit.com
> MS Access MVP
>
> https://mvp.support.microsoft.com/profile=C4D9F5E7-BB03-4291-B816-64270730881E>
> https://mvp.support.microsoft.com/profile=C4D9F5E7-BB03-4291-B816-64270730881E
>
> My Nothing-to-do-with Access blog
>
> http://wrmosca.wordpress.com> http://wrmosca.wordpress.com
>
>
>
> From: MS_Access_Professionals@yahoogroups.com
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of paulc8481
> Sent: Sunday, February 17, 2013 10:32 AM
> To: MS_Access_Professionals@yahoogroups.com
> Subject: [MS_AccessPros] Object visibility
>
>
>
>
>
>
> I am trying to get a field to appear and disappear when a certain value is
> entered in a textbox. I have been able get the text box to appear when the
> correct value is selected and disappear when the value is changed to another
> value, but if I choose to make the textbox blank the other textbox does not
> disappear. Also when the textbox is visible it remains visible when scrolling
> through all the other records even when the value in the textbox changes to a
> value that should make it go blank. below is the code I am using.
>
> Any help would be appreciated.
>
> Thanks Paul
>
>
> Private Sub cboServiceProvider_AfterUpdate()
>
> If cboServiceProvider = "Advant-Edge Solutions" Then
>
> lblChemoWaste.Visible = True
>
> txtChemoWaste.Visible = True
>
> ElseIf cboServiceProvider <> "Advant-Edge Solutions" Or cboServiceProvider.Value
> = " " Then
>
> lblChemoWaste.Visible = False
>
> txtChemoWaste.Visible = False
>
> End If
>
> End Sub
>
>
>
>
>
> [Non-text portions of this message have been removed]
>