ACCESS FEED: Re: [MS_AccessPros] Object visibility

Jumat, 22 Februari 2013

Re: [MS_AccessPros] Object visibility

My fault, Paul. I accidentally included "If" and a line return. It should have been:
Dim bolShowCtrl as Boolean

bolShowCtrl = (cboServiceProvider = "Advant-Edge Solutions")
lblChemoWaste.Visible = bolShowCtrl
txtChemoWaste.Visible = bolShowCtrl

Bill

--- In MS_Access_Professionals@yahoogroups.com, "paulc8481" wrote:
>
> 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]
> >
>