Pages within pages using tab control

[beacon]

Hi,

I'm using Access 2003 and I'm trying to create a tab control that, upon pressing a command button, will take you to a second page of that particular tab.

For example, I have a tab control with six tabs/pages that will be labeled General Info, Informants, Cert of Trial Comp, Trial Comp Eval, Areas of Trial Comp. These are more like sections for the user to access to enter in data into fields that are placed within them.

The problem that I've encountered is that not all of the fields that I want to display will do so in the size of the window I have to use. What I thought about doing to remedy this was to create a second tab control with all of the same tabs/pages, but change the information on the pages where I have to go overboard. Then I figured I could create a command button that became active when I reached that tab and would allow the user to go to the second page of the tab, which, in essence, would only make the second tab control visible.

First off, the tab control doesn't activate the page when you click on the tab...you have to actually click somewhere on the page below the tab. Secondly, when I click the command button I created, all of the formatting goes haywire. All of the sudden, the second tab control has stretched beyond belief and the fields for the second tab control are intermingled with the fields from the first tab control.

Is there a better way to accomplish what I've set out to do? Is there any way to do what I'm attempting? Is there any way to control other objects by clicking on the tabs in the tab control? If 2 trains are travelling in opposite directions at 80 mph...oops, I got distracted.

Thanks for the help......

[Rabbit]

Rather than 2 tab controls, why not overlap the controls on the same tab and have the control button toggle the visibility of the controls?

[beacon]

Rather than 2 tab controls, why not overlap the controls on the same tab and have the control button toggle the visibility of the controls?

That's a good idea...that's kind of what I was hoping to accomplish by using the 2 tab controls, but this makes sense. May take writing more code than I had hoped, but should look better.

As far as the control button is concerned...I don't want it to be visible unless a particular tab is selected by the user, but the tab control requires you, from what I've seen, to not only select the tab, but also click somewhere on the page. Is there a way to get the tab to be the focal point of the control to prevent this??

Thanks for the advice

[Rabbit]

I'm not sure what you mean but the tab control has an On Change event that triggers when a user moves between tabs. So you can use that or you can just put the button on the tab.

[ADezii]

Hi,

I'm using Access 2003 and I'm trying to create a tab control that, upon pressing a command button, will take you to a second page of that particular tab.

For example, I have a tab control with six tabs/pages that will be labeled General Info, Informants, Cert of Trial Comp, Trial Comp Eval, Areas of Trial Comp. These are more like sections for the user to access to enter in data into fields that are placed within them.

The problem that I've encountered is that not all of the fields that I want to display will do so in the size of the window I have to use. What I thought about doing to remedy this was to create a second tab control with all of the same tabs/pages, but change the information on the pages where I have to go overboard. Then I figured I could create a command button that became active when I reached that tab and would allow the user to go to the second page of the tab, which, in essence, would only make the second tab control visible.

First off, the tab control doesn't activate the page when you click on the tab...you have to actually click somewhere on the page below the tab. Secondly, when I click the command button I created, all of the formatting goes haywire. All of the sudden, the second tab control has stretched beyond belief and the fields for the second tab control are intermingled with the fields from the first tab control.

Is there a better way to accomplish what I've set out to do? Is there any way to do what I'm attempting? Is there any way to control other objects by clicking on the tabs in the tab control? If 2 trains are travelling in opposite directions at 80 mph...oops, I got distracted.

Thanks for the help......

You may want to take a look at this:
Accessing Tabs on a Tab Control

[beacon]

You may want to take a look at this:
Accessing Tabs on a Tab Control

I checked out that link, but it wasn't exactly what I was looking for. It's all good. I'll just make due because it's really not a big deal.

I do have another problem that I think I need another set of eyes for. I tried out Rabbit's suggestion of using the one tab control and then making everything visible or invisible, but some of the controls that I've set up don't want to gain focus despite the code I've written.

Here's the gist...I have a tab control that has visible and invisible labels and textboxes. Off of the tab control I have 4 picture labels and 8 control buttons that indicate which of the labels and textboxes on the tab control need to be visible/enabled.

The pictures are of a disabled next page and previous page control and of an active next page and previous page control. These are used throughout.

On the 4th tab, I have a next page button and a previous page button that are working fine. They only progress forward or backward one step.

On the 5th tab, I have 3 next page buttons and 3 previous page buttons. Obviously, on the first page the next page button and picture should be visible and active, while the disabled previous page picture should be displayed. On the next 2 "pages", the next page and previous page buttons and pictures should be displayed, while on the last page the previous page button and picture should be displayed and the disabled next page picture should be showing.

I have a temporary placeholder label in the position I want each of these controls or labels to be when they are active. I also have temporary label placeholders for each of them (that are off to the side) that I have been returning the controls and labels to if they aren't being used.

The trouble I'm running into is that when you click on the next page button for "page" 3 (control TAB5NP3) the next page picture is visible, but the next page button for "page" 4 is not, despite the fact that I have written code to place it on top. Additionally, each of the previous page buttons, with the exception of the first previous page button (contol TAB5PP1) are doing the same thing.

I'm attaching my code, in the hope that someone can determine where my mistake is. Also, since I have limited Access VBA experience, if there's a better way to write some of the code I've written and you want to indulge me, please do.

**** I had to edit this message and attach my code to my next post because it wouldn't let me post what I have. I kept getting 2 error messages: 1 said that I needed to fill out the subject and message fields (which I did) and the other said that my post needed to be longer than 20 characters. Combine this post and the next post together and I'm pretty sure I destroyed the 20 character requirement. Sorry for "top-posting" if that's what it's called. I really did try everything I could to get it to work.

[Rabbit]

I stopped tracking what you were trying to do after a bit. You've made it overly complex. Here's what I use to navigate between tabs.

Private Sub but_Next_Click()
    Select Case Me.MainTab
        Case 0 To (Me.MainTab.Pages.Count - 2)
            Me.MainTab.Pages(Me.MainTab + 1).SetFocus
    End Select
End Sub
 
Private Sub but_Prev_Click()
    Select Case Me.MainTab
        Case 1 To (Me.MainTab.Pages.Count - 1)
            Me.MainTab.Pages(Me.MainTab - 1).SetFocus
    End Select
End Sub
 

[beacon]

Ok...don't worry about it then. I must be in over my head. Maybe I can rig it somehow.

[Rabbit]

Ok...don't worry about it then. I must be in over my head. Maybe I can rig it somehow.

You don't have to rig it. Just use my code. it navigates through the tabs and only uses two buttons. If you need to do stuff beyond that, then we can modify it.

[beacon]

I don't understand what your code is doing though...

Are you saying that I should create extra pages in the tab control and have their visibility controlled by the next/previous page buttons? If so, I thought you were suggesting that I set each of the controls and labels on the page that I didn't want to use as not visible until I reached the click event that activates them.

Is creating extra pages with the tab control and setting them to not visible (with the same caption as another page) possible?

[Rabbit]

I don't understand what your code is doing though...

Are you saying that I should create extra pages in the tab control and have their visibility controlled by the next/previous page buttons? If so, I thought you were suggesting that I set each of the controls and labels on the page that I didn't want to use as not visible until I reached the click event that activates them.

Is creating extra pages with the tab control and setting them to not visible (with the same caption as another page) possible?

Are we not talking about a problem that is different from your control/label visibilty problem?

It sounded as if you wanted custom tab navigation buttons and you created a set for each page. I'm just saying you don't need a set of navigation buttons for each page. My code does it with 2 buttons.

If this is actually related to your original problem and not a problem in of itself, then I have misunderstood what you originally meant.

Yes, my original proposition was to set the visibility of the controls, but not when the page changes but when a button was clicked, which was what was originally requested no?

However, you may have stumbled upon an easier solution. Yes you can create two tabs, each with the same caption, but with a different name. And then you can just set the visibility of the tab.

tab = page just to clear confusion.

[beacon]

My original question/problem/headache was two-fold. First, the issue was that when you click on a tab, it doesn't actually activate that tab. You have to select the tab and then click somewhere below the tab, on what I'm gunna call the data portion of the tab, to get code to work.

For example, I created a Page1_Click event that would make a next page button visible and enabled. When you actually click on the tab though nothing happens. You have to click in the data portion of the tab for this event to work. That part of it isn't a big deal. It would be nice to know if it can be manipulated so that events would begin when the user clicks on the tab, instead of having to click the tab and then also click the data portion to get code to work.

The second part of it was, understandably, more confusing. I'm going to refrain from repeating that and just tell you my intentions now that I've got the multiple tab thing going.

Now, instead of having 6 tabs as I did initially, I have 10 tabs. The fourth tab actually consists of the 3rd and 4th page indices with the 3rd being the only one visible when the form loads. Creating a button to go back and forth between these 2 tabs/page indices is easy.

Where I start to have trouble is on the so called 5th tab, which starts with page index of 5 and goes through 8, with only 5 visible when the form loads. Here I want to be able to navigate forward and backward through these pages. I'm not sure if I could do this without having multiple control buttons, so I'm going to start working on it under the assumption that I can't. If it is possible and anyone wants to help me out with code...thanks. Otherwise, I keep going with what I know until I hit another roadblock.

[Rabbit]

My original question/problem/headache was two-fold. First, the issue was that when you click on a tab, it doesn't actually activate that tab. You have to select the tab and then click somewhere below the tab, on what I'm gunna call the data portion of the tab, to get code to work.

For example, I created a Page1_Click event that would make a next page button visible and enabled. When you actually click on the tab though nothing happens. You have to click in the data portion of the tab for this event to work. That part of it isn't a big deal. It would be nice to know if it can be manipulated so that events would begin when the user clicks on the tab, instead of having to click the tab and then also click the data portion to get code to work.

The second part of it was, understandably, more confusing. I'm going to refrain from repeating that and just tell you my intentions now that I've got the multiple tab thing going.

Now, instead of having 6 tabs as I did initially, I have 10 tabs. The fourth tab actually consists of the 3rd and 4th page indices with the 3rd being the only one visible when the form loads. Creating a button to go back and forth between these 2 tabs/page indices is easy.

Where I start to have trouble is on the so called 5th tab, which starts with page index of 5 and goes through 8, with only 5 visible when the form loads. Here I want to be able to navigate forward and backward through these pages. I'm not sure if I could do this without having multiple control buttons, so I'm going to start working on it under the assumption that I can't. If it is possible and anyone wants to help me out with code...thanks. Otherwise, I keep going with what I know until I hit another roadblock.

Here's the tricky thing about tabs, all the tabs are children of a master control called the tab control. This tab control is the object that holds the events and information relating the navigation inside the tab control. The tab/page events handle what happens inside the tab/page.

When you change pages, it is not the On Click event of the page that triggers, but the On Change event of the tab control.

[beacon]

Here's the tricky thing about tabs, all the tabs are children of a master control called the tab control. This tab control is the object that holds the events and information relating the navigation inside the tab control. The tab/page events handle what happens inside the tab/page.

When you change pages, it is not the On Click event of the page that triggers, but the On Change event of the tab control.

So how do you reference the tabs/pages if you use the OnChange event or is there a way? That's not what you were trying to show me with the code you wrote, is it?

[beacon]

I was able to get it to work using TabControl.Value = 3 where 3 is the index of the page I want to access.

When I switch back and forth using my next and previous page buttons it does some glitchy shake, but I'm sure that's because the tabs aren't in the exact same location and are having to switch with each other.

[beacon]

I spoke too soon...

I did get the tabs to work to the point where they will make something happen without having to click on the tab page.

I'm still having trouble with the control buttons though. I have 2 buttons on tab 4, one for next page and one for previous page. Then I have 3 next page buttons and 3 previous page buttons on tab 5.

Here's some code I wrote that worked fine for tab 4 until I wrote the procedure for tab 5. When I wrote the procedure for 5, everything I did for 4 basically stopped working.

Option Compare Database
 
 
Private Sub NP_Click()
    Me.Page4.Visible = False
    With Me.Page41
        .Visible = True
        .Enabled = True
        tab4t110.SetFocus
    End With
End Sub
 
Private Sub PP_Click()
    Me.Page41.Visible = False
    With Me.Page4
        .Visible = True
        .Enabled = True
        tab4t1.SetFocus
    End With
End Sub
 
Private Sub TabCtl0_Change()
 
    If TabCtl0.Value = 3 Then
        Me.NPpic.Visible = True
        Me.DisNP.Visible = False
        tab4t1.SetFocus
        With Me.NP
            .Top = Me.DisNP.Top
            .Left = Me.DisNP.Left
            .Visible = True
            .Enabled = True
        End With
 
    Else
        Me.DisNP.Visible = True
        Me.NPpic.Visible = False
        With Me.tempbutton
            .Visible = True
            .Enabled = True
            .SetFocus
        End With
        With Me.NP
            .Top = Me.NPtemp.Top
            .Left = Me.NPtemp.Left
            .Visible = False
            .Enabled = False
        End With
    End If
End Sub
 
Private Sub TabCtl0_Change()
    If TabCtl0.Value = 4 Then
        Me.PPpic.Visible = True
        Me.DisPP.Visible = False
        With Me.PP
            .Top = Me.DisPP.Top
            .Left = Me.DisPP.Left
            .Visible = True
            .Enabled = True
        End With
    Else
        Me.DisPP.Visible = True
        Me.PPpic.Visible = False
        With Me.PP
            .Top = Me.PPtemp.Top
            .Left = Me.PPtemp.Left
            .Visible = False
            .Enabled = False
        End With
    End If
End Sub
 
Private Sub TabCtl0_Change()
    If TabCtl0.Value = 5 Then
        Me.NPpic.Visible = True
        Me.DisNP.Visible = False
        tab5t1.SetFocus
        With Me.NP2
            .Top = Me.DisNP.Top
            .Left = Me.DisNP.Left
            .Visible = True
            .Enabled = True
        End With
 
    Else
        Me.DisNP.Visible = True
        Me.NPpic.Visible = False
        With Me.tempbutton
            .Visible = True
            .Enabled = True
            .SetFocus
        End With
        With Me.NP2
            .Top = Me.NP2temp.Top
            .Left = Me.NP2temp.Left
            .Visible = False
            .Enabled = False
        End With
    End If
End Sub

Eventually I'm going to have a click event for NP2, 3, and 4 and also for PP1, 2, 3. Unless, that is, there's a way that I can indicate to the control buttons that they should only control the tab pages for a specific tabcontrol.value.

[Rabbit]

You shouldn't have multiple subs with the same name. Plus, you should be able to do everything with 2 command buttons.

In this example I have 5 pages. 0, 1, 4, 5 are always visible. Of 2 and 3, only one is visible at any time.

Private Sub but_Next_Click()
   Select Case Me.TabCtl0
      Case 0, 3 To 4
         Me.TabCtl0 = Me.TabCtl0 + 1
      Case 1
         Me.TabCtl0.Pages(2).Visible = True
         Me.TabCtl0 = 2
         Me.TabCtl0.Pages(3).Visible = False
      Case 2
         Me.TabCtl0.Pages(3).Visible = True
         Me.TabCtl0 = 3
         Me.TabCtl0.Pages(2).Visible = False
   End Select
End Sub
 
Private Sub but_Prev_Click()
   Select Case Me.TabCtl0
      Case 1 To 2, 5
         Me.TabCtl0 = Me.TabCtl0 + 1
      Case 3
         Me.TabCtl0.Pages(2).Visible = True
         Me.TabCtl0 = 2
         Me.TabCtl0.Pages(3).Visible = False
      Case 4
         Me.TabCtl0.Pages(3).Visible = True
         Me.TabCtl0 = 3
         Me.TabCtl0.Pages(2).Visible = False
   End Select
End Sub
 

[beacon]

Ok...I'm with you on what you are doing. Using a switch statement definitely makes more sense, but I'm not exactly sure how it reads. Why do you have Case 0, 3 to 4 and then Case 1 to 2, 5? I'm confused by how you skip case numbers and your syntax, probably because I've never seen it before.

Also, if I have pages that extend beyond just one extra page, will my cases be much different?

Thanks again Rabbit for your help. By the way, do you know of any good reference books for Access that focus mainly on the vb aspect of it? It's problems like the ones I've been having that you don't find in these Microsoft Press books.

[beacon]

Should I also use a switch or select statement (sorry, I'm studying C++ too) in my TabCtl0_Change() method? I'm trying out your last suggestion, but I think that because I don't exactly understand what the code is saying, I'm having a hard time modifying it to match up with my stuff considering the fact that I have one tab that consists of 4 pages where only one is visible at a time.

By the way, I don't want the next or previous page buttons to control all of the tabs. I just want them to control the tabs that will have multiple pages.

This may be part of what's confusing me about your code. It looks like you are using the buttons to control all of the movement between all of the tabs. If that's the case, I'm trying to not have the buttons even be visible until you reach the first tab with multiple pages. I have a pic of a disabled button that will be used the rest of the time.

[Rabbit]

Ok...I'm with you on what you are doing. Using a switch statement definitely makes more sense, but I'm not exactly sure how it reads. Why do you have Case 0, 3 to 4 and then Case 1 to 2, 5? I'm confused by how you skip case numbers and your syntax, probably because I've never seen it before.

Also, if I have pages that extend beyond just one extra page, will my cases be much different?

Thanks again Rabbit for your help. By the way, do you know of any good reference books for Access that focus mainly on the vb aspect of it? It's problems like the ones I've been having that you don't find in these Microsoft Press books.

Sorry, you'll find commented code below.

You cases won't be too much different, you'll just have to tweak the numbers slightly.

Can't really help there. I mostly learned by messing around, google, and the help files, which are excellent. The Access/VBA help files are some of the best I've seen. Usually help files are too technical or too general to be of any help.

In this example I have 5 pages. 0, 1, 4, 5 are always visible. Of 2 and 3, only one is visible at any time.

Private Sub but_Next_Click()
   Select Case Me.TabCtl0
      Case 0, 3 To 4 ' If the page is 0, 3, or 4: Move to next page
         Me.TabCtl0 = Me.TabCtl0 + 1
      Case 1 ' If page is 1, then I have to make sure page 2 is visible because they might have been on page 2 earlier, clicked next, making page 2 invisible and page 3 visible, then clicked on page 1 and click next again but now page 2 is not visible.
         Me.TabCtl0.Pages(2).Visible = True
         Me.TabCtl0 = 2
         Me.TabCtl0.Pages(3).Visible = False
      Case 2 ' If page is 2, then make page 3 visible and page 2 invisible.
         Me.TabCtl0.Pages(3).Visible = True
         Me.TabCtl0 = 3
         Me.TabCtl0.Pages(2).Visible = False
   End Select
End Sub
 
Private Sub but_Prev_Click()
   Select Case Me.TabCtl0
      Case 1 To 2, 5 ' If page is 1, 2, or 5: Move to previous page. The reason 2 is in here is because you can't be on 2 unless it's visible.
         Me.TabCtl0 = Me.TabCtl0 - 1 ' This should've been minus not plus, my mistake.
      Case 3 ' Same reasoning as Case 2 from the first sub.
         Me.TabCtl0.Pages(2).Visible = True
         Me.TabCtl0 = 2
         Me.TabCtl0.Pages(3).Visible = False
      Case 4 'Same reasoning as Case 1 from the first sub except in the reverse direction.
         Me.TabCtl0.Pages(3).Visible = True
         Me.TabCtl0 = 3
         Me.TabCtl0.Pages(2).Visible = False
   End Select
End Sub
 

Should I also use a switch or select statement (sorry, I'm studying C++ too) in my TabCtl0_Change() method? I'm trying out your last suggestion, but I think that because I don't exactly understand what the code is saying, I'm having a hard time modifying it to match up with my stuff considering the fact that I have one tab that consists of 4 pages where only one is visible at a time.

By the way, I don't want the next or previous page buttons to control all of the tabs. I just want them to control the tabs that will have multiple pages.

This may be part of what's confusing me about your code. It looks like you are using the buttons to control all of the movement between all of the tabs. If that's the case, I'm trying to not have the buttons even be visible until you reach the first tab with multiple pages. I have a pic of a disabled button that will be used the rest of the time.

You won't have to use the TabCtl0_Change method unless you need it to do something when they click on a certain tab. If you're going to use the buttons to navigate, and navigation is all you need, then you don't need to use the TabCtl0_Change method.

In this case, you can either have two buttons on each of those pages and each of those buttons either opens up the next page or previous page. This means 8 buttons and 8 _Click methods.

Something a little more challenging but cleaner is to use two buttons that aren't on any of the pages. In this case you will use the TabCtl0_Change method to toggle the button's visibility. Then you see what page they're on and depending on which button they clicked, it'll open up the next/previous page.

[beacon]

That clears things up, if for no other reason than because I apparently wasn't clear on some of what I'm doing.

I have multiple buttons (8, I think) and they are all off of the tab control. I was using the change() method to determine which page I'm on so I could have a particular button slide over into position.

Now I think I just need 2 next page buttons and 2 previous page buttons and can actually use a switch for the pages themselves instead of the tab control.

I think I'm still going to use the change() method because I want the user to actually click each of the tabs and only click the next page button if there are additional pages with the same caption as another....a sub-page, if you will.

Are you talking about the Help on the toolbar in Access? Did you just use the search for topic option or are you talking about something else?

[Rabbit]

If you're going to go with the 8 buttons route, just put 2 on each page, then you don't have to worry about which one is visible.

If you go with just two, then you will need the Change event to make the buttons visible when you need them. Just so you know, the Change event does not trigger if you change the page through code.

I mostly use the context sensitive help. In the VBA editor if there's txtBox1_AfterUpdate, and I don't know when After Update occurs, I will hightlight AfterUpdate and press F1. In Access, if i'm in a property I don't understand, I'll click on it and then press F1.

[beacon]

I used the switch, but I'm running into the same problem I ran into when I used the nested if statements.

When I get to the 5th tab (with the caption Areas of Trial Competency...the one with 3 others like it that are initially not visible), I can select the next page button, but once I get to the next page, and all subsequent pages, the previous page buttons aren't showing.

I have a picture I use when the buttons are active (NPpic and PPpic) and a picture for when they aren't active (DisNP and DisPP). I thought that maybe I should drop the picture into the command and just use the .enabled property, but I'm not sure if that's the reason why the button isn't showing. It makes me wonder, if I do change up the pictures will that fix the problem or are the pictures not the problem in the first place? It probably is and has resulted in me fighting a never ending battle with the z-axis to bring certain items to the front.

Any ideas?

Private Sub NP_Click()
    Select Case Me.TabCtl0
        Case 3
            Me.Page41.Visible = True
            Me.tab4t110.SetFocus
            Me.Page4.Visible = False
        Case 4
            Me.Page4.Visible = True
            Me.tab4t1.SetFocus
            Me.Page41.Visible = False
    End Select
End Sub
 
Private Sub NP2_Click()
    Select Case Me.TabCtl0
        Case 5
            Me.Page51.Visible = True
            Me.tab51t1.SetFocus
            Me.Page5.Visible = False
        Case 6
            Me.Page52.Visible = True
            Me.tab52t1.SetFocus
            Me.Page51.Visible = False
        Case 7
            Me.Page53.Visible = True
            Me.tab53t1.SetFocus
            Me.Page52.Visible = False
        Case 8
            Me.DisNP.Visible = True
    End Select
End Sub
 
Private Sub PP_Click()
    Select Case Me.TabCtl0
        Case 4
            Me.Page4.Visible = True
            Me.tab4t1.SetFocus
            Me.Page41.Visible = False
        Case 3
            Me.Page41.Visible = True
            Me.tab4t110.SetFocus
            Me.Page4.Visible = False
    End Select
End Sub
 
Private Sub PP2_Click()
    Select Case Me.TabCtl0
        Case 5
            Me.DisPP.Visible = True
        Case 6
            Me.Page5.Visible = True
            Me.tab5t1.SetFocus
            Me.Page51.Visible = False
        Case 7
            Me.Page51.Visible = True
            Me.tab51t1.SetFocus
            Me.Page52.Visible = False
        Case 8
            Me.Page52.Visible = True
            Me.tab52t1.SetFocus
            Me.Page53.Visible = False
    End Select
End Sub
 
Private Sub TabCtl0_Change()
    Select Case Me.TabCtl0
        Case 0 To 2, 9
            Me.DisNP.Visible = True
            Me.DisPP.Visible = True
            Me.NPpic.Visible = False
            Me.PPpic.Visible = False
            With Me.NP
                .Top = Me.NPtemp.Top
                .Left = Me.NPtemp.Left
                .Visible = False
                .Enabled = False
            End With
            With Me.PP
                .Top = Me.PPtemp.Top
                .Left = Me.PPtemp.Left
                .Visible = False
                .Enabled = False
            End With
        Case 3
            Me.NPpic.Visible = True
            Me.DisPP.Visible = True
            With Me.NP
                .Top = Me.DisNP.Top
                .Left = Me.DisNP.Left
                .Visible = True
                .Enabled = True
            End With
            With Me.PP
                .Top = Me.PPtemp.Top
                .Left = Me.PPtemp.Left
                .Visible = False
                .Enabled = False
            End With
            Me.DisNP.Visible = False
            Me.PPpic.Visible = False
        Case 4
            Me.DisNP.Visible = True
            Me.PPpic.Visible = True
            With Me.PP
                .Top = Me.DisPP.Top
                .Left = Me.DisPP.Left
                .Visible = True
                .Enabled = True
            End With
            With Me.NP
                .Top = Me.NPtemp.Top
                .Left = Me.NPtemp.Left
                .Visible = False
                .Enabled = False
            End With
            Me.DisPP.Visible = False
            Me.NPpic.Visible = False
        Case 5
            With Me.NP2
                .Top = Me.DisNP.Top
                .Left = Me.DisNP.Left
                .Visible = True
                .Enabled = True
            End With
            Me.NPpic.Visible = True
            Me.DisPP.Visible = True
            With Me.PP2
                .Top = Me.PP2temp.Top
                .Left = Me.PP2temp.Left
                .Visible = False
                .Enabled = False
            End With
            Me.DisNP.Visible = False
            Me.PPpic.Visible = False
        Case 6
            With Me.NP2
                .Top = Me.DisNP.Top
                .Left = Me.DisNP.Left
                .Visible = True
                .Enabled = True
            With Me.PP2
                .Top = Me.DisPP.Top
                .Left = Me.DisPP.Left
                .Visible = True
                .Enabled = True
                .SetFocus
            End With
            Me.NPpic.Visible = True
            Me.PPpic.Visible = True
            Me.DisNP.Visible = False
            Me.DisPP.Visible = False
        Case 7
            With Me.NP2
                .Top = Me.DisNP.Top
                .Left = Me.DisNP.Left
                .Visible = True
                .Enabled = True
            End With
            With Me.PP2
                .Top = Me.DisPP.Top
                .Left = Me.DisPP.Left
                .Visible = True
                .Enabled = True
            End With
            Me.NPpic.Visible = True
            Me.PPpic.Visible = True
            Me.DisNP.Visible = False
            Me.DisPP.Visible = False
        Case 8
            With Me.PP2
                .Top = Me.DisPP.Top
                .Left = Me.DisPP.Left
                .Visible = True
                .Enabled = True
            End With
            Me.DisNP.Visible = True
            Me.PPpic.Visible = True
            With Me.NP2
                .Top = Me.NP2temp.Top
                .Left = Me.NP2temp.Left
                .Visible = False
                .Enabled = False
            End With
            Me.NPpic.Visible = False
            Me.DisPP.Visible = False
    End Select
End Sub
 

[Rabbit]

I can't follow what you're doing with the code.

You're referencing all these controls but I don't know what they're supposed to be.

Ok, so I have a tab control TabCtl0. It has 5 pages. Page 0 and Page 4 are always visible. At any time, of Page1, Page2, and Page3, only one is visible. As a default, Page1 is visible.

I have two buttons that is not on the tab control: but_Next and but_Prev.

Private Sub TabCtl0_Change()
   If TabCtl0 >= 1 And TabCtl <= 3 Then
      Me.but_Next.Visible = True
      Me.but_Prev.Visible = True
   Else
      Me.but_Next.Visible = False
      Me.but_Prev.Visible = False
   End If
End Sub
 
Private Sub but_Next_Click()
   Select Case Me.TabCtl0
      Case 1
         Me.TabCtl0.Pages(2).Visible = True
         Me.TabCtl0 = 2
         Me.TabCtl0.Pages(1).Visible = False
      Case 2
         Me.TabCtl0.Pages(3).Visible = True
         Me.TabCtl0 = 3
         Me.TabCtl0.Pages(2).Visible = False
   End Select
End Sub
 
Private Sub but_Next_Click()
   Select Case Me.TabCtl0
      Case 3
         Me.TabCtl0.Pages(2).Visible = True
         Me.TabCtl0 = 2
         Me.TabCtl0.Pages(3).Visible = False
      Case 2
         Me.TabCtl0.Pages(1).Visible = True
         Me.TabCtl0 = 1
         Me.TabCtl0.Pages(2).Visible = False
   End Select
End Sub
 

[beacon]

Hey Rabbit,

I finally got it to work. The problem the whole time was that I had 2 pictures of buttons that I was trying to use underneath a transparent button and, unfortunately, their precedence sometimes got mixed up with the buttons.

Anyway, I embedded the pictures into the buttons and everything came out perfect.

I'm going to provide a finished version with comments either later today or sometime tomorrow.

Thank you again Rabbit for taking so much time out of your schedule to help me out with this. I can honestly say that I've learned more in the past few days working on this than I would have ever expected to need to know to accomplish what I originally set out to do.

It's frustrating when you're used to using containers in VB6 and then don't have that option entirely in Access and have to find ways around it.

Anyway...keep it real and hopefully you won't hear from me for a while.

*beacon*

[Rabbit]

Not a problem, good luck.

[mosslovell]

Hi, I just wanted to say thanks for the link earlier in this thread, it was what I needed, the link with the following

Me!TabCtl0.Pages(0).SetFocus

I created a button on each of the pages but would it be possible to place the same outside of the tabbed form for example on the main form or does Me! only exist on the tabbed form.

if so how can i do it?

Moss

[ADezii]

Hi, I just wanted to say thanks for the link earlier in this thread, it was what I needed, the link with the following

Me!TabCtl0.Pages(0).SetFocus

I created a button on each of the pages but would it be possible to place the same outside of the tabbed form for example on the main form or does Me! only exist on the tabbed form.

if so how can i do it?

Moss

The same syntax can be used outside of the Tab Control, but within the confines of the Parent Form. If you wish to produce the same effect from another Form however, the syntax would be:

Forms!<Your Form Name>![TabCtl0].Pages(0).SetFocus