Creating Tab style Forms

[Ktx7ca]

I'm looking for a way to auto create the corect number of tab forms based on information returned from a query.

any ideas?

thanks chris

 

[JBinQLD]

It ain't pretty but something like this should work. On the button used to open your form try this:

Dim intExistingTabs As Integer
Dim intRequiredTabs As Integer
Dim intloop As Integer


y = InputBox("number of tabs")
DoCmd.OpenForm "frmMyTabs", acDesign, , , , acHidden
x = Forms!frmMyTabs.MyTabctl.Pages.Count

If intExistingTabs < intRequiredTabs Then
    For intloop = intExistingTabs To intRequiredTabs - 1
        Forms!frmMyTabs.MyTabctl.Pages.Add
    Next intloop
Else
    For intloop = intRequiredTabs To intExistingTabs - 1
        Forms!frmMyTabs.MyTabctl.Pages.Remove
    Next intloop
End If
    
 DoCmd.OpenForm "frmMyTabs"

Is this what you mean? Naturally you will need to replace the input box with your query to get number of required tabs and i presume you will want to add some logic to give the tabs sensible names...

JB

 

[Ktx7ca]

HI JB

Thanks for the code, I seam of have a a bit of a problem. It wants Y an X defined, I got Y working but I can;t seam to get X defined correctly.

thanks chris

 

[TheAceMan1]

How are ya Ktx7ca . . .

Posting the all knowing SQL of the query would speed things up quite a bit!

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[Ktx7ca]

I hav'nt made the query yet just trying o get it to work with me just giving it the number of tabs each witha list box on it.

I just wanted to get the basic working before I complecated the situation.

 

[JBinQLD]

ktx: How embarrasing. I chugged out the code using old fashioned x and y variables then named them sensiby but missed those two at the top! Replace y with intRequiredTabs and x with intExistingTabs and then colour me embarrased....

JB

 

[Ktx7ca]

OK Now that I woke opened my eyes and read the code it works fine. OK now it's time to make the query and figure out how to put the data in the tabs name and the lists boxes

 

[JBinQLD]

ktx: May I make a suggestion? If you're going to have list boxes etc on the pages of this tab control then they would need to be created dynamically. Perhaps a smarter move would be to create a tab form with more than maximum amount of required tabs and then adjust my code to turn the visible property on or off as required?

 

[Ktx7ca]

Not to worry I didn't notice it at first either, it wasn't untill I came back to it and reread it did it dawn on me.

chris