Modules to Hide and Show Ribbon & Backup database BackEnd

[hfsitumo2001]

On my attached loginForm, I have an AdminForm on which I put:

1. Hide Ribbon & Navigation
2. Show Ribbon & Navigation
3. Backup database-backend, if possible with front end.

Can any one give me the VBA for those 3 buttons.

Thank you

 

[theDBguy]

Here's a possible one for #3.

http://www.accessmvp.com/thedbguy/codes.php?title=backup

 

[hfsitumo2001]

Here's a possible one for #3.

http://www.accessmvp.com/thedbguy/codes.php?title=backup

Thank you DBGuy, I will study it.

 

[theDBguy]

Thank you DBGuy, I will study it.

To hide the Ribbon.

DoCmd.ShowToolbar "Ribbon", acToolbarNo

To show the Ribbon.

DoCmd.ShowToolbar "Ribbon", acToolbarYes

 

[vhung]

good day...
try codes below, I used this often times

Show codes
forRibbon…
DoCmd.ShowToolbar "Ribbon", acToolbarYes
forNavPane…
Application.SetOption "Show Status Bar", True


Hide codes
forRibbon…
DoCmd.ShowToolbar "Ribbon", acToolbarNo
forNavPane…
Application.SetOption "Show Status Bar", False
DoCmd.NavigateTo "acnavigationcategoryobjecttype"
DoCmd.RunCommand acCmdWindowHide

 

[hfsitumo2001]

vhung... I tried this for navigation to show, but it did not work. Something wrong I made?
Application.SetOption "Show Status Bar", True
DoCmd.NavigateTo "acnavigationcategoryobjecttype"
DoCmd.RunCommand acCmdWindowYes

To hide the Ribbon.

DoCmd.ShowToolbar "Ribbon", acToolbarNo

To show the Ribbon.

DoCmd.ShowToolbar "Ribbon", acToolbarYes

DBGuy, How can we show again Navigation Pane. Hiding is ok, but when I use the vhung's code suggestion, it won't work

 

[theDBguy]

DBGuy, How can we show again Navigation Pane. Hiding is ok, but when I use the vhung's code suggestion, it won't work

To show NavPane again, try:

DoCmd.SelectObject acTable, "TableName", True

 

[isladogs]

To save writing the same code repeatedly to show/hide the ribbon, nav pane, taskbar or even the entire application window , I put the relevant code into procedures e.g. HideRibbon, HideTaskbar etc.
If you want to look at my approach, see Show/hide application window, navigation pane, ribbon, taskbar | Access World Forums (access-programmers.co.uk)

NOTE: a newer version 3.47 is normally available from my website but that seems to be down at the moment

 

[Gasman]

I just posted some code for option 3 to help another member here
https://www.access-programmers.co.uk/forums/threads/automating-database-backup.315992/

 

[Pat Hartman]

You shouldn't be relying on the user to make backups. Backups should be scheduled regularly either by your IT staff as they back up the server or by using a tool such as the one found at www.fmsinc.com

 

[vhung]

vhung... I tried this for navigation to show, but it did not work. Something wrong I made?
Application.SetOption "Show Status Bar", True
DoCmd.NavigateTo "acnavigationcategoryobjecttype"
DoCmd.RunCommand acCmdWindowYes

DBGuy, How can we show again Navigation Pane. Hiding is ok, but when I use the vhung's code suggestion, it won't work

you rumble it;

use this syntax for hide of navigation pane not for show

Application.SetOption "Show Status Bar", False
DoCmd.NavigateTo "acnavigationcategoryobjecttype"
DoCmd.RunCommand acCmdWindowHide

then on open
forNavPane…
Application.SetOption "Show Status Bar", True

 

[hfsitumo2001]

you rumble it;

use this syntax for hide of navigation pane not for show

Application.SetOption "Show Status Bar", False
DoCmd.NavigateTo "acnavigationcategoryobjecttype"
DoCmd.RunCommand acCmdWindowHide

then on open
forNavPane…
Application.SetOption "Show Status Bar", True

vhung, I already tried to make your code and I clicked the button show navigation pane. It did not work. I do not mean the navigation of the record at the bottom of the form... On loginform please use Batman_Admin and password "b"

 

[vhung]

use this code to open navigation pane

DoCmd.SelectObject acTable, , True
If Not (objPane Is Nothing) Then
objPane.IsCollapsed = False
End If

codes to close...

DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
Application.SetOption "Show Status Bar", False

 

[vhung]

use this code to open ribbon

DoCmd.ShowToolbar "Ribbon", acToolbarYes
Application.SetOption "Show Status Bar", True


codes to close...

DoCmd.ShowToolbar "Ribbon", acToolbarNo

 

[hfsitumo2001]

use this code to open navigation pane

DoCmd.SelectObject acTable, , True
If Not (objPane Is Nothing) Then
objPane.IsCollapsed = False
End If

codes to close...

DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
Application.SetOption "Show Status Bar", False

vhung, I use this on click even of the show navigation pane button, but it hanged as follows:
dubug says run time error 424

 

[vhung]

Good day...

If run time errror 424 "object required" prompted.

Answer: The problem isn't your code, it's that the Visual Basic editor does not recognize your form. In fact, the Visual Basic editor will not recognize your form until you've invoked the Code Builder (for your form or any object on your form) at least once.

Please see this link:

MS Access 2003: Run-time error 424 (Object Required)

This MSAccess tutorial explains how to fix the Run-time error '424': Object Required error in Access 2003 (with screenshots and step-by-step instructions).

www.techonthenet.com

 

[Abo Abd_Allah]

1- For Hide and Show Navigation Use This Code

Sub DisplayHideNavPane(Optional Visible As Boolean = True)
    DoCmd.SelectObject acForm, , True
    If Visible = False Then DoCmd.RunCommand acCmdWindowHide
End Sub

2- This code is used to copy the database, but you need a certain mechanism to take the backup copy of the database automatically at specific intervals

 FileCopy "Source Full Name", "Destination Full Name"

 

[hfsitumo2001]

1- For Hide and Show Navigation Use This Code

Sub DisplayHideNavPane(Optional Visible As Boolean = True)
    DoCmd.SelectObject acForm, , True
    If Visible = False Then DoCmd.RunCommand acCmdWindowHide
End Sub

2- This code is used to copy the database, but you need a certain mechanism to take the backup copy of the database automatically at specific intervals

 FileCopy "Source Full Name", "Destination Full Name"

Abo, in which even should we put this code:
Sub DisplayHideNavPane(Optional Visible As Boolean = True)
DoCmd.SelectObject acForm, , True
If Visible = False Then DoCmd.RunCommand acCmdWindowHide
End Sub

Thank you

 

[Abo Abd_Allah]

Abo, in which even should we put this code:

put this code in module
and call it from anywhere like this

'for hide
DisplayHideNavPane false
'for show
DisplayHideNavPane true

 

[hfsitumo2001]

put this code in module
and call it from anywhere like this

'for hide
DisplayHideNavPane false
'for show
DisplayHideNavPane true

put this code in module

what would be the name of the module is it standard module?. How can we call it. Thank you for your enlightening me again