Refresh Navigation pane “Tables” (1 Viewer)

[AccessVBANewbie]

Hi
After I add a table or delete a table is Ado.
How do I refresh Navigation pane “Tables” with code.
Thank you

 

[Freshman]

Maybe start by posting the code you using to add the table

 

[AccessVBANewbie]

qry_test = "CREATE TABLE Test" & "(" & _
" Field1 TEXT(20) null, " & _
Set rs = cnnDB.Execute(qry_test)
‘Here the refresh should go to force a Navigation Pane refresh

 

[gemma-the-husky]

try currentdb.tabledefs.refresh

 

[AccessVBANewbie]

Hi
CurrentDb.TableDefs.Refresh
Above does not force navigation pane to refresh, still takes 5-10 seconds to do it itself.

Thanks

 

[Freshman]

try currentdb.tabledefs.refresh

Above is what I would have suggested yes.

Where are you hosting the tables. On a backend server setup?
Is the lag not coming from the server maybe

 

[AccessVBANewbie]

Hi

No backend server just one database current database.

Thanks

 

[pr2-eugin]

Try Application.RefreshDatabaseWindow ?

 

[AccessVBANewbie]

Thank you pr2-eugin it worked nicely for me.

Thank you all for your help

 

[pr2-eugin]

No problem !

 

[Freshman]

I think it is quite normal for Access to take a while for you to see the table. Sometimes you have to click on another object say Queries and then back on Tables to refresh but I don't think it means the table does not exist yet.
So refreshing the database window is a fine trick allowing you to see the table appear. But as I said the table is probably already there you just don't see it.

Here is a function to test for the table (even if you don't see it)

Public Function TableExists(Name As String) As Boolean
TableExists = DCount("*", "MSysObjects", "Name = '" & Name & "' AND Type = 1")
End Function


Which means you can already relate to the table even if you cannot see it.