If Yes/No Button Ticked, Hide Text Boxes

[fionama]

Hi, I'm trying to set a tick box on a form so that, if ticked, one text box (SourceOfRequest) will be visible and a number of others invisible, and if not ticked, vice versa.

The code works fine if I'm referring to just one text box (as below) :-

Private Sub StatisticalRequest_AfterUpdate()
If StatisticalRequest = True Then
SourceOfRequest.Visible = True
Else: SourceOfRequest.Visible = False
End If
End Sub

but if I add additional lines such as...


Private Sub StatisticalRequest_AfterUpdate()
If StatisticalRequest = True Then
SourceOfRequest.Visible = True

and MedicalRecordNumber.Visible=False
and Surname.Visible=False...

Else: SourceOfRequest.Visible = False
End If
End Sub

....it's not accepted.
Could you help me with the code please?
Many thanks.

 

[davejam]

just wondering, you haven't left the words 'and' in have you?? this will certainly break it

daveJam

*two wrongs don't make a right..... but three lefts do!!!!*

 

[PHV]

And what about this ?
Private Sub StatisticalRequest_AfterUpdate()
Me!SourceOfRequest.Visible = Me!StatisticalRequest
Me!MedicalRecordNumber.Visible = Not Me!StatisticalRequest
Me!Surname.Visible = Not Me!StatisticalRequest
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Zion7]

Similiar to PHV's (actually adapted from a suggestion by PHV, long time ago)

Dim blnVisible As Boolean

blnVisible = Me!StatisticalRequest

Me!SourceOfRequest.Visible = blnVisible
Me!MedicalRecordNumber.Visible = Not blnVisible
Me!Surname.Visible = Not blnVisible

 

[fionama]

Had the "and" in the code...stupid me.
Thanks again for your help!