[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
>