Stop Buttons showing when opening up form

[Bob]

I have a button on my Main Start up page that when click makes these buttons
visible, but when I open up my DB they automatically show on start up, is it
possible they not be visible till I click ckbHelp.......Thanks for any
Help.....Bob

Private Sub ckbHelp_Click()
If ckbHelp = True Then
cmbHelpNewHorse.Visible = True
cmbHelpActFinHorse.Visible = True

End If

If ckbHelp = False Then
cmbHelpNewHorse.Visible = False
cmbHelpActFinHorse.Visible = False
End If

End Sub

 

[JK]

Bob,

In design view, set the property pf the *button* Visible=No

Regards/Jacob

|I have a button on my Main Start up page that when click makes these
buttons
| visible, but when I open up my DB they automatically show on start up, is
it
| possible they not be visible till I click ckbHelp.......Thanks for any
| Help.....Bob
|
| Private Sub ckbHelp_Click()
| If ckbHelp = True Then
| cmbHelpNewHorse.Visible = True
| cmbHelpActFinHorse.Visible = True
|
| End If
|
| If ckbHelp = False Then
| cmbHelpNewHorse.Visible = False
| cmbHelpActFinHorse.Visible = False
| End If
|
| End Sub
|
|

 

[ruralguy via AccessMonster.com]

Hi Bob,
Have you set the .Visible property to NO in design mode for these buttons?

 

[Guest]

Set the Visible property for cmbHelpNewHorse and cmbHelpActFinHorse to No,
using the Properties dialog. Also, you may be able to simplify your code, as
follows:


Private Sub ckbHelp_Click()

cmbHelpNewHorse.Visible = ckbHelp
cmbHelpActFinHorse.Visible = ckbHelp

End Sub


Tom Wickerath
Microsoft Access MVP
https://mvp.support.microsoft.com/profile/Tom
http://www.access.qbuilt.com/html/expert_contributors.html
__________________________________________

 

[Bob]

You guys are so Clever!! I jumped the gun and created a Check box instead ,
What a waste of time Thanks Worked Brilliant Regards Bob

 

[Bob V]

Thanks Tom that saved a lot of typing
What if you had 40 Buttons and they all started with
cmbHelp, is it possible to write code , cmbHelp(Anything).Visible = ckbHelp
Thanks Bob

 

[Arvin Meyer [MVP]]

If your buttons were named like: cmdHelp1, cmdHelp2, cmdHelp3 ... cmdHelp40

You could write code like:

Dim i As Integer

For i = 1 to 40
If cmdHelp & (i).Visible = chkHelp Then
' Do something
End If
Next i

--
Arvin Meyer, MCP, MVP
Microsoft Access
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

 

[Larry Daugherty]

Nothing quite that easy but you can use
For ..... Each on the controls collection comparing some string
constant to part of the control name to do the same thing.

HTH