How to tell if Db window is hidden 1

[TheAceMan1]

Howdy all . . .

I can hide the [blue]Db window[/blue] with the following:

[blue]    Docmd.SelectObject acTable, , True
    Docmd.RunCommand acCmdWindowHide[/blue]

and turn it back on with:

[blue]    Docmd.SelectObject acTable, , True[/blue]

[blue]How can I tell if its in the hidden state?[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[ZmrAbdulla]

If you are doing it yourself set a flag..

Public dbWindowState as Boolean

let the db remember what status is the dbwindow holds.

________________________________________________________
Zameer Abdulla
Help to find Missing people

 

[Ed2020]

Does CurrentDB.Properties("StartupShowDBWindow") tell you what you want to know?

Ed Metcalfe.

Please do not feed the trolls.....

 

[Ed2020]

Actually I'll answer my own question. No, it doesn't!

Ed Metcalfe.

Please do not feed the trolls.....

 

[ZmrAbdulla]

No, I don't think it is in db.Properties.

    Dim dbs As Database
    Set dbs = CurrentDb
    Dim x As Integer
    For x = 0 To dbs.Properties.Count - 1
        Debug.Print dbs.Properties(x).Name
    Next

that results

Name
Connect
Transactions
Updatable
CollatingOrder
QueryTimeout
Version
RecordsAffected
ReplicaID
DesignMasterID
Connection
ANSI Query Mode
AccessVersion
ProjVer
Auto Compact
Show Values Limit
Show Values in Indexed
Show Values in Non-Indexed
Show Values in Remote
Show Values in Snapshot
Show Values in Server
Use Default Page Folder
Use Default Connection File
Row Limit

But it should be stored somewhere.

________________________________________________________
Zameer Abdulla
Help to find Missing people

 

[TheAceMan1]

Thanks All . . .

I'd already surmised a variable would be necessary.

Although I've never had to determine if the Db window (or any other access window) is hidden, I can't help but wonder if there's a property or method lying around somewhere! . . .

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[ZmrAbdulla]

Here is one how to set custom propeties in access.

http://www.everythingaccess.com/tutorials.asp?ID=Custom-Database-Properties

________________________________________________________
Zameer Abdulla
Help to find Missing people

 

[ck1999]

Take a look at this site. It sounds like what you want

url:

http://www.mvps.org/access/api/api0019.htm

ck1999

 

[ZmrAbdulla]

ck1999,
No..It is not the one TheAceman1 looking for..
The code you linked is used to hiding the entire Access Window and show the forms only to make the app look like stand alone. I am sure TheAceman1 certainly know it.

He is talking about the database window.

________________________________________________________
Zameer Abdulla
Help to find Missing people

 

[MajP]

and this?

http://www.mvps.org/access/api/api0069.htm

 

[ck1999]

majp,
I found that sight earlier and tried in on access 07. It does not work on this version. It does seem to work on access 03.

ck1999

 

[MajP]

I run A03 and it works as advertised.

 

[ZmrAbdulla]

majp, that is a good find

________________________________________________________
Zameer Abdulla
Help to find Missing people

 

[TheAceMan1]

Howdy MajP . . .

Nice piece of work! . . . Beautiful! . . . Poetry in motion!

Have a pinky on me . . .

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[MajP]

Thanks, but Dev Ashish should get the credit, I just googled.