Making button visible / not visible depending on field criteria

[StuartR]

Hi,



I have a button named bttn4 on a form which generally is not visible. (The Visible setting on the Property Sheet is set to "No") The button is to open another form when clicked.

I have a tick box field on the form called [BML Driver]

If BML Driver is ticked, I want the button to show. If BML Driver is not ticked I want the button to remain hidden.

I have put the following code on the On Current event ...

Sub Form_Current()
    'show bttn4

If Me.[BML Driver] = "yes" Then
bttn4.visible = True
bttn4.SetFocus

Else
bttn4.visible = False

End If

The bttn4.visible seemed to work OK, but when I added the criteria of the tick box it stopped working !!!

Any help or advice would be appreciated.

Cheers

Stuart

[June7]

Would not use "yes" (this is just a string, not a Boolean value). Use True or False, without quote marks. However, don't even need the Boolean constants, just reference the checkbox value because its value would be either True or False.

Sub Form_Current()
Me.bttn4.Visible = Me.[BML Driver]
If Me.bttn4.Visible Then Me.bttn4.SetFocus
End If

Advise not to use spaces in any names (nor punctuation/special characters with the exception of underscore).

[StuartR]

That's great June.

I managed to get there myself just before your reply came in, however once I have the button visible, it is staying visible when I scroll through the records, when really it should disappear on the next record if [BML Driver] is unchecked on the next record.

Where should I put a bit of code to make the button invisible again ?

Cheers

Stuart

[StuartR]

No probs June ~ Just solved it.

Thanks for your help.

[June7]

How did you fix? The button state will be the same for all records because there really is only one button to set property of and that setting will be reflected in all instances of the control.

[StuartR]

Basically by including the else statement ...

If Me.[BML Driver] = True Then
bttn4.visible = True
bttn4.SetFocus

Else
bttn4.visible = False

End If

This seems to fix it, but it may create other issues I am not yet aware of !!!

Stuart