Solved Navigation pane appears spontaniously

[so10070]

I hide the navigation pane when starting my application but after this code it appears again? Strange?

CurrentDb.Execute "SELECT * INTO [;DATABASE=" & txtDatabaseFilePadNaam & ";].tblOVSGToetsresultaten " & _
    "FROM [Excel 12.0;HDR=Yes;DATABASE=" & txtBestandPuntenBestaat & ";].[Pagina1$];", dbFailOnError
DoCmd.TransferDatabase acLink, "Microsoft Access", txtDatabaseFilePadNaam, acTable, "tblOVSGToetsresultaten", "tblOVSGToetsresultaten", False

At the end of this procedure I rewrite this code (hide navigation pane) and it disappears again.

'hide navigation pane again
'select navigation pane
DoCmd.NavigateTo "acNavigationCategoryObjectType"
'hide navigation pane
DoCmd.RunCommand acCmdWindowHide

How can I solve this problem.

 

[bob fitz]

Perhaps the code in the following link would be of help: https://docs.microsoft.com/en-us/of...o/navigation/show-or-hide-the-navigation-pane

 

[theDBguy]

Hi. Maybe you could try using DAO code instead.

 

[isladogs]

What you are seeing is standard behaviour when you import or link a table.
The reason is that Access expects the user would want to view the imported/linked item when the process has been completed.

EDIT
Forgot to say that it is possible to avoid this behaviour completely
For example see this article by Dale Fye https://www.experts-exchange.com/articles/27399/Dealing-with-Access-NavPane-visibility.html

 

[so10070]

@isladogs : is the popup of the navigation pane avoidable?

 

[isladogs]

Yes. I just edited my post whilst you were replying

 

[so10070]

@isladogs: Fantastic! Thanks!

 

[isladogs]

You're welcome. I remember coming up with my own solution in an earlier thread here or at another forum but couldn't find it.
Please can you confirm that Dale Fye's code works for you

 

[vhung]

I hide the navigation pane when starting my application but after this code it appears again? Strange?

CurrentDb.Execute "SELECT * INTO [;DATABASE=" & txtDatabaseFilePadNaam & ";].tblOVSGToetsresultaten " & _
    "FROM [Excel 12.0;HDR=Yes;DATABASE=" & txtBestandPuntenBestaat & ";].[Pagina1$];", dbFailOnError
DoCmd.TransferDatabase acLink, "Microsoft Access", txtDatabaseFilePadNaam, acTable, "tblOVSGToetsresultaten", "tblOVSGToetsresultaten", False

At the end of this procedure I rewrite this code (hide navigation pane) and it disappears again.

'hide navigation pane again
'select navigation pane
DoCmd.NavigateTo "acNavigationCategoryObjectType"
'hide navigation pane
DoCmd.RunCommand acCmdWindowHide

How can I solve this problem.

sir; your target is good enough;
i have encountered your problem and i initially solved
try my codes for buttons and load Form
see:

 Dim objPane As Object
If [Command Prompt] = "hidepane" Then
       DoCmd.SelectObject acTable, , True
       DoCmd.RunCommand acCmdWindowHide
ElseIf [Command Prompt] = "hidepanex" Then
       DoCmd.SelectObject acTable, , True
    If Not (objPane Is Nothing) Then
       objPane.IsCollapsed = False
    End If
End If

hope you can use it.... no error code when i used it...

EDIT: @isladogs-Added code tags

 

[so10070]

vhung, thank you very much!

 

[vhung]

vhung, thank you very much!

OK: so10070
your welcome...
its' a new syntax that very useful
maybe 100% applicable

 

[isladogs]

@vhung
I haven't tried your code but am wondering which part of it you are referring to when you say it is new syntax

 

[vhung]

@vhung
I haven't tried your code but am wondering which part of it you are referring to when you say it is new syntax

the syntax that i just used,
that one i post it is for real
i never use that before...
when i try it result too good...

 

[isladogs]

Ah I see. You meant the code was new to you, rather than new to Access!

 

[vhung]

Ah I see. You meant the code was new to you, rather than new to Access!

Yes sir;
i keep improving my project with nice command...

 

[isladogs]

@vhung
Glad to hear it. I've been using Access for over 20 years and I'm still learning new things. Good luck

 

[vhung]

@vhung
Glad to hear it. I've been using Access for over 20 years and I'm still learning new things. Good luck

really sir;
20 years,
well for me just about 7 years i guess
>updated my Accdb "Form AddTable-Field/ChangeNameTable-Field"
I will call it 4n1 Create/UpdateTable
>Updated (Create, Add, Rename, Edit, Delete)=5n1

 

[isladogs]

LOL. Perhaps you're a faster learner than me!
However, I don't believe any developer is equally proficient in every area of Access or knows every feature/code item.
The more I learn, the more I realise there is to learn.
Reading and answering forum questions is a very good way of honing knowledge and filling in gaps in knowledge.

As this topic was originally about managing the application interface, you may be interested in this example app of mine: http://www.mendipdatasystems.co.uk/control-application-interface/4594365418

 

[vhung]

LOL. Perhaps you're a faster learner than me!
However, I don't believe any developer is equally proficient in every area of Access or knows every feature/code item.
The more I learn, the more I realise there is to learn.
Reading and answering forum questions is a very good way of honing knowledge and filling in gaps in knowledge.

As this topic was originally about managing the application interface, you may be interested in this example app of mine: http://www.mendipdatasystems.co.uk/control-application-interface/4594365418

yes sir;
thank you very much...
how i wish i could totally explore Accdb Proramming
Besides i observe much those topics which i already encountered then i search on-line and execute the codes syntax...

 

[isladogs]

That's the best way. Now a request to you. Please stop using 'sir' in your responses to me or other members.
It really isn't necessary and although I am male, you have used that word in reply to at least one female member recently.