Can I hide the tables?

[Martin]

(Base on the former two quetions I posted)

1. So, can I hide the tables ? (for example, use VBA, when the Access is
started, VBA hide all the tables or hide some of the tables)

2. Otherwise, any method to hide the "STARTED FORM(FRAM)" ? (I don't know
how to descibe this "STARTED FORM(fram)" in English --- that's : when every
access software started, it will all loaded(show) you a FORM(fram) which in
the left side colomn is the "TABLE"/"QUERY"/"FORM"/..../"MACRO"/"MODULE"


Thank you very much !!

Martin

 

[Douglas J. Steele]

Your second question sounds as though you're wanting to hide the database
window.

On the Startup dialog (Tools | Startup from the menu bar), there's a choice
"Display Database Window" (sorry, can't translate it, since I don't know
what language you're using!). On the English dialog, it's the top checkbox
on the right, right under the combo box that lets you select the form to
display at start up.

 

[Martin]

Hi Douglas!

Yet I can't find the Startup dialog (Tools | Startup from the menu bar) ,
would you pls describe more detail how to get into the startup dialog ? ( I
click the "Tool" in the menu bar, but can't find "startup")

This really important to me. Thanks!

BTW, VBA how to achieve this? So so thank you

 

[Martin]

I got it. Thanks!

BTW, if I change this in my Access file, after, I use this file in another
computer, can this setting automatically change in another computer?

Thanks!

 

[Douglas J. Steele]

I don't know what more to tell you. It's been there since Access 97 (perhaps
even Access 95: I don't remember...)

Yes, you can set the property through VBA, but it's one of those properties
that doesn't actually exist until you set it. That means when you try to
refer to it for the first time, you'll get an error 3270 ("Property Not
Found"):

Function ShowDatabaseWindow(Setting As Boolean) As Boolean
On Error GoTo Err_DatabaseWindow

Dim dbCurr As DAO.Database
Dim prpCurr As DAO.Property
Dim booSuccess As Boolean

booSuccess = True

Set dbCurr = CurrentDb()
dbCurr.Properties("StartupShowDBWindow") = Setting

End_ShowDatabaseWindow:
Set dbCurr = Nothing
ShowDatabaseWindow = booSuccess
Exit Function

Err_ShowDatabaseWindow:
If Err.Number = 3270 Then ' Property doesn't exist
Set prpCurr = dbCurr.CreateProperty( _
"StartupShowDBWindow", dbBoolean, _
Setting)
dbCurr.Properties.Append prpCurr
Resume Next
Else ' Unknown Error
MsgBox Err.Number & ": " & Err.Description, _
vbOkOnly + vbCritical
booSuccess = False
End If

End Function

 

[Douglas J. Steele]

The property applies to the MDB file, not Access itself. Yes, it travels
with the file.

 

[Martin]

Thank you very much.

The property applies to the MDB file, not Access itself. Yes, it travels
with the file.