Senin, 01 Februari 2021

Re: [MSAccessProfessionals] 2013 Hide Database window

No problem, Patty. Let us know if you run into any problems with my example.

 

Regards,

Bill Mosca

 

From: MSAccessProfessionals@groups.io [mailto:MSAccessProfessionals@groups.io] On Behalf Of Patricia Mapes
Sent: Thursday, January 28, 2021 3:03 PM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] 2013 Hide Database window

 

Hi Bill,

I apologize but I was pulled away and I'm just getting back to this project.

 

Thank you,

 

Patty

 

From: MSAccessProfessionals@groups.io <MSAccessProfessionals@groups.io> On Behalf Of Patricia Mapes via groups.io
Sent: Thursday, January 21, 2021 7:39 PM
To: MSAccessProfessionals@groups.io
Subject: Re: [MSAccessProfessionals] 2013 Hide Database window

 

Thanks Bill,

I'll give this a try!

Regards, 

Patty

 

On Jan 21, 2021, at 7:31 PM, Bill Mosca <wrmosca@myself.com> wrote:

On Thu, Jan 21, 2021 at 07:57 AM, Patricia Mapes wrote:

Hi,
Does anyone have a good solution for hiding the database windows for access apps.
I would prefer a startup solution but in desperate times I could go firm to form.
Thank you,
Patty

Hi Patty

Here's another way. Call this public function using True argument to show and False argument to hide.

Public Function ShowHideNavPane(bolShow As Boolean)

'Purpose  : Show or hide Nav Pane.

'DateTime : 11/23/2020 11:34

'Author   : Bill Mosca

'Params   : bolShow True=show; False=hide

 

    'Need to select any table in Nav Pane before you can hide it.

    If bolShow = False Then

        DoCmd.SelectObject acTable, , True

        DoCmd.RunCommand acCmdWindowHide

    Else

        DoCmd.SelectObject acTable, , True

    End If

 

End Function


 
--

Regards,

Bill Mosca, Founder - MS_Access_Professionals

Microsoft Office Access MVP 2010-2016

My nothing-to-do-with-Access blog

 

Tidak ada komentar:

Posting Komentar