Arthur Fuller
fuller.artful at gmail.com
Sat May 10 11:54:06 CDT 2008
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 >