[AccessD] Conditional Form Footer Visibility

Thanks a lot, William. I'll take it for a spin right now.
Arthur

On Sat, May 10, 2008 at 11:44 AM, William Hindman <
wdhindman at dejpolsystems.com> wrote:

> ...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
> >
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>