Actually, I appreciate your help, It pointed me in the right direction.
This is how I finally got it to work.
<SCRIPT language=vbscript event=onrowenter for=do***ent>
<!--
dim ShowText
dim ReturnedbyText
ShowText=ReturnedtoDev.checked
IF ShowText =false then
ReturnedtoDevby.style.visibility="hidden"
ReturnedtoDevBy_Label.style.visibility="hidden"
ReturnedtoDev.style.visibility="hidden"
ReturnedtoDev_Label.style.visibility="hidden"
Else
ReturnedtoDevby.style.visibility="visible"
ReturnedtoDevBy_Label.style.visibility="visible"
ReturnedtoDevby.style.backgroundColor="FFFF08"
ReturnedtoDevby.contentEditable=false
ReturnedtoDev.disabled=true
ReturnedtoDev.style.visibility="visible"
ReturnedtoDev_Label.style.visibility="visible"
END IF
-->
</SCRIPT>--
If this posting was helpful, please click on the Yes button.
Regards,
Michael Arch.
"PaulD" wrote:
> Well, this is what I get for posting an answer without researching.
What I
> meant to post was
>
> ReternedtoDev.style.visibility="hidden"
>
> I may be wrong again but this is what the help claims should work. If
that
> doesnt work post back and I will actually create a page and test my
answer.
> Paul D
>
> "Michael" <Michael@[EMAIL PROTECTED]
> wrote in message
> news:02FF3A80-7AB1-43E2-8802-450366E35D67@[EMAIL PROTECTED]
> : Paul,
> : Thank you for your help, I have tried what you suggested, and I placed
it
> : behind a button and a msgbox for testing,
> : msodsc.CurrentSection.DataPage.Recordset.Fields("ReturnedtoDev").Value
> : returns True or False
> : So the If statement gets evaluated but
> : ReturnedtoDev.visible = false
> : doesn't hide the checkbox, also when I use the ALT-RightArrow to help
me
> : with the syntax visible is not one the listed attributes for the
Control.
> : What do you suggest?
> :
> :
> :
> : Regards,
> :
> : Michael Arch.
> :
> :
> :
> :
> : "PaulD" wrote:
> :
> : > The datapagecomplete event is where you want your code. From there
it
> gets
> : > tricky since I don't know how your page is setup. Something like
this
> : > should get you going in the right direction
> : >
> : > <SCRIPT language=vbscript event=DataPageComplete(oEventInfo)
for=MSODSC>
> : > <!--
> : > dim ShowText
> : > ShowText =
> : >
>
msodsc.CurrentSection.DataPage.Recordset.Fields("your_checkbox_fieldname").Value
> : > If ShowText = "Yes" then 'not sure of this, it may be true -1 or
some
> other
> : > value you will need to verify
> : > textbox1.visible = false
> : > textbox2.visible = false
> : > End If
> : > -->
> : > </SCRIPT>
> : >
> : > This assumes the default value for the boxes is visible.
> : >
> : > "Michael" <Michael@[EMAIL PROTECTED]
> wrote in message
> : > news:F6E269C9-F57C-4D3B-9C47-BA31BD293F71@[EMAIL PROTECTED]
> : > :I have a simple Data Access Page that runs from a simple query. I
need
> to
> : > : find a way to hide a few controls (Text Boxes).
> : > : The control that will decide the faith of the textboxes is a
Checkbox,
> the
> : > : field in the source table for this checkbox is a Yes/No field, I
want
> the
> : > : text boxes to be hidden when the Check box is not checked as well
as
> the
> : > : check box otherwise everything should be visible.
> : > :
> : > : --
> : > : Regards,
> : > :
> : > : Michael Arch.
> : > :
> : > :
> : >
> : >
> : >
>
>
>
|
