How to display a navvigation control content based on selection of another nagivation

[kcbehnet]

I am using a navigation form with top navigation control named as "NavigationControTop" and left navigation control named as "NavigationControLeft". The subform where the main content is displayed is named as "NavigationSubform"

I had written VBA code for user control to display different content in "NavigationSubform" when the user log in.

Once a user log in, I had placed a code to set the focus to the related tab in the "NavigationControTop", the navigation button for the tab is "nvbProduction":

me!nvbProduction.SetFocus

This works, but does not seems to activate the navigation button.

I had also placed a code in the VBA to display the correct content in the "NavigationSubform" as below:

Me!NavigationSubform.SourceObject = "Nav_DeptMainPage"

This works too.

The problem I faced now is How to display the correct content in "NavigationControLeft".

I had set different navigation buttons in the "NavigationControLeft" which display different sub menu and a different department is clicked in the "NavigationControTop", which works properly. But in VBA code, how am I going to refer to the different content?

I tried:

me!NavigationControLeft.setfocus
me!NavigationControLeft.requery

but does not work.

Any body can advice please?

Thank you
Beh Kea Chang

[jimatqsi]

kcbehnet, Be sure to get in the habit of putting your lines of code inside Code tags. With one line it doesn't make much difference but longer samples of code are much more readable like that. Just click the [CODE/] button and put your code between the tags.

SetFocus merely makes a control the active control, it does not activate it. What you need to do is run the code that runs from the activating event. With a button it's the OnClick event. With a listbox or combobox it's the AfterUpdate event. In this case, I suspect it is the OnClick event. Whatever the name of that event code is, that's the subroutine you want to run. So it should be as swimple as

NavigationControlLeft_Click()

Give that a try.

Jim

[kcbehnet]

Dear Tim,

Thank you for your suggestion, but it does not work for my case.

I am using the auto Navigation form of Access 2010. So there is no event set for the navigation buttons.

When I select to set up Navigation form with Top horizontal NavigationControTop and left vertical NavigationControLeft. There seems to be some hidden code by Microsoft the automatically operated. When I click on a Navigation （say nvbProduction), it loads a form into the NavigationSubform and at the same time it make the left NavigationControLeft to reflect the sub-menu for the Production department.

As I am setting up user log in to the system, I used some code in the Form load event to set the related departmental navigation buttons to default (in this case, the nvbProduction button).

So when the nvbProduction button is default, I open form Nav_DeptMainPage in the NavigationSubform with the following code:

Me!NavigationSubform.SourceObject = "Nav_DeptMainPage"

I plan to open the related "navigation buttons group" in the NavigationControLeft navigation control by the following code, but I do not how to refer to the related "navigation buttons group" which was automatically setup by Access when I add in extra Navigation buttons in Layoutview.

Me!NavigationControLeft.SourceObject = "navigation buttons group"

The "navigation buttons group" is unknown to me as it was set up by Access automatically.

[zmbd]

Your answer is here:
+ http://bytes.com/topic/access/answer...rm#post3771117

With more information via
+http://bytes.com/topic/access/answer...rm#post3771135

[kcbehnet]

I had tried the docmd. browseto command. It does not work.

[zmbd]

When you say, it doesn't work, that is a very nondescript statement. It gives no detail as to what you wanted to happen, what did (or did not) happen, code, form design, errors, etc...

The docmd.browseto method works just fine in the databases I use it in.
For example..
I have a two tiered Navigation Control.
ACC2010-NavCtrl>TierOne>SubTierToTierOne

SO:
ACC2010-NavCtrl>Items>ItemInventory
This loads a form in the navigationsubform that shows the basic inventory item information such as serial_lot_number, partnumber, description, etc.... the Primary Key field is set so that on click event takes the selected record, pulls the primary key and uses it in the "wherecondition" parameter (mind you it's a properly formated SQL where clause string) to "switch tabs"
ACC2010-NavCtrl>Item>ItemHistory
So with a nice single click, I move from the one line inventory record to the records that log the cradle to grave.
This form also has event code that upon entering a new item into the inventory, once confirmed, an entry is made into the history log indicating when the item was entered into the database and then browses to the ACC2010-NavCtrl>Item>ItemHistory so that additional entries can be made such as when the item was actually received and who received it, etc...

Or, I have:
ACC2010-NavCtrl>Facility>OpLocations
This button loads the form in the navigationsubform that has a parent with the operational locations as recordsource with a child subform that pulls the items (same format as ItemInventory)currently checked-out to that OpLocation.
Once again, the the Primary Key field of the childform is set so that on click event takes the selected record, pulls the primary key and uses it in the "wherecondition" parameter (mind you it's a properly formated SQL where clause string) to "switch tabs" to
ACC2010-NavCtrl>Item>ItemHistory

So it works if the command is used correctly and the forms are designed properly to handle the navigation.