[AccessD] Conditional Form Footer Visibility

...note that you could just add Me.Section(2).Visible to the page change 
event set

William

--------------------------------------------------
From: "William Hindman" <wdhindman at dejpolsystems.com>
Sent: Saturday, May 10, 2008 11:38 AM
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Conditional Form Footer Visibility

> ...this is older than the hills but its still my bread & butter tab change
> code:
>
> Private Sub TabCtl0_Change()
> Dim tbc As Control, pge As Page
>    ' Return reference to tab control.
>    Set tbc = Me!TabCtl0
>     ' Return reference to currently selected page.
>    Set pge = tbc.Pages(tbc.Value)
>    ' Message box showing what page has been selected
>    ' for testing purposes only
>    'MsgBox "We are now on " & pge.Name
>    If pge.Name = "Page3" Then
>        If IsLoaded("frmCompanyEventsSub") Then
>            DoCmd.Close acForm, "frmCompanyEventsSub", acSaveYes
>        End If
>        Forms!frmCompany!CompanySub.Visible = True
>        Forms!frmCompany!CompanySub.SourceObject = "frmCompanyContactsSub
>
> William
>
> --------------------------------------------------
> From: "Arthur Fuller" <fuller.artful at gmail.com>
> Sent: Saturday, May 10, 2008 11:19 AM
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Conditional Form Footer Visibility
>
>> How does one refer to the pages of a tab control from within its tab
>> change
>> event?
>> Arthur
>>
>> On Sat, May 10, 2008 at 10:42 AM, Rocky Smolin at Beach Access Software <
>> rockysmolin at bchacc.com> wrote:
>>
>>> Arthur:
>>>
>>> I'd try using mouse move of the  page to put in Me.Section(2).Visible =
>>> False on the page where you want the footer to disappear and
>>> Me.Section(2).Visible = True on the pages where you want the footer
>>> visible.
>>>
>>>
>>> Rocky Smolin
>>>
>> -- 
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>