Expand Or Collapse form footer 1

[nikademous]

Hello, I have been trying to figure out how to get my switchboards(frm_Switchboard) form footer to expand or collapse based on Yes/No field in table (tbl_MenuItems). If I select an option that requires a start and end then collapse the footer and once dates are entered select the button again and it will open either the Form, Report ect and collapse the footer again. Can someone please take a look and see how I can do this?

I have a example button on the (frm_Switchboard) header that collapses and expands the footer I just need it to do it automatically based on the (tbl_MenuItems) field.

Thoughts....

 

[strongm]

Well you've pretty much already got the code you need for this in cmdToggleFooter_Click(). You just need aminor modification and stick something like the following after opening the recordset in HandleButtonClick

So, after

[tt]rs.Open stSql, con, 1
[/tt]
put

[tt][pre]If rs![ExpandFooter] = True Then
ExpandFooter
cmdToggleFooter.Caption = "Collapse"
Else
CollapseFooter
cmdToggleFooter.Caption = "Expand"
End If[/pre][/tt]

 

[nikademous]

Thanks again stronm I wouldn't have guessed that's how/where!!!! I had to change it a little to get to work correctly.

   'Expand or Collaps footer based on tbl_MenuItems field: ExpandFooter
    If rs![ExpandFooter] = False Then
       If cmdToggleFooter.Caption = "Collapse" Then
        CollapseFooter
        cmdToggleFooter.Caption = "Expand"
        End If
    ElseIf rs![ExpandFooter] = True Then
        ExpandFooter
        cmdToggleFooter.Caption = "Collapse"
    End If