Solved

access navigation pane hide with vba

Posted on 2010-08-27
9
1,262 Views
Last Modified: 2013-11-28
Hello,

Is there any way in access 2007 to hide  navigation pane with VBA, and without need to restart the database?

Thanks
0
Comment
Question by:JoeBlack1980
  • 3
  • 2
  • 2
  • +2
9 Comments
 
LVL 18

Accepted Solution

by:
Cluskitt earned 250 total points
ID: 33541447
0
 

Author Comment

by:JoeBlack1980
ID: 33541612
hello,
it works very well in example db , however when i use it on mine, it shows navigation panel, then on hide, it hides the window on which i use the button.
Any ideA?
0
 
LVL 47

Expert Comment

by:Dale Fye (Access MVP)
ID: 33541880
see the accepted solution here.
0
Use Case: Protecting a Hybrid Cloud Infrastructure

Microsoft Azure is rapidly becoming the norm in dynamic IT environments. This document describes the challenges that organizations face when protecting data in a hybrid cloud IT environment and presents a use case to demonstrate how Acronis Backup protects all data.

 
LVL 31

Assisted Solution

by:Helen_Feddema
Helen_Feddema earned 125 total points
ID: 33542154
I use these little procedures:
Public Function ShowNavPane()

   DoCmd.SelectObject objecttype:=acTable, indatabasewindow:=True
   
End Function

Public Function HideNavPane()

   DoCmd.RunCommand acCmdWindowHide

End Function

Open in new window

0
 
LVL 31

Expert Comment

by:Helen_Feddema
ID: 33542160
They are functions so they can be run from hot keys in the AutoKeys macro, for convenience.
0
 
LVL 74

Assisted Solution

by:Jeffrey Coachman
Jeffrey Coachman earned 125 total points
ID: 33542566
"however when i use it on mine,"
Is your form "Pop up" property set to: Yes?
0
 

Author Comment

by:JoeBlack1980
ID: 33574902
Ok ,
Thanks all for the replied,
For anyone who will visit this question later on  , I had to combine all the replies so it goes like that.
I use the form in the 1st reply, i set up the property to PopUp.
Then in another window , i make a button which uses the following code
DoCmd.OpenForm "form11"
DoCmd.Close acForm, "form11", acSaveNo
And i set the Form_Load event code of form11 as following>
Private Sub Form_Load()
DoCmd.SelectObject objecttype:=acTable, indatabasewindow:=True
DoCmd.RunCommand acCmdWindowHide
End Sub
 That way , the button i created open form11 which hides navisgationpane, and then later it close form11
It's kind of walktrough, but it works fine for me
Thanks all
0
 

Author Closing Comment

by:JoeBlack1980
ID: 33574912
Had to use multi replies to get one final solution.But thanks everybody.
0
 
LVL 74

Expert Comment

by:Jeffrey Coachman
ID: 33577719
"Had to use multi replies to get one final solution"= Collaboration

;-)

Jeff
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Overview: This article:       (a) explains one principle method to cross-reference invoice items in Quickbooks®       (b) explores the reasons one might need to cross-reference invoice items       (c) provides a sample process for creating a M…
A simple tool to export all objects of two Access files as text and compare it with Meld, a free diff tool.
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
Using Microsoft Access, learn some simple rules for how to construct tables in a relational database. Split up all multi-value fields into single values: Split up fields that belong to other things into separate tables: Make sure that all record…

828 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question