Google
 
Web このブログ

2005年02月20日

データベースウィンドウは出ているか?

MSACCESS
◇データベースウィンドウの表示/非表示を判断する pfChkDBWin()

Accessのデータベースウィンドウの表示状態を確認する方法です。
APIを使用すれば出来ることでしょうが、あえてAccessの機能だけで実現する方法を。

メニューバー[ウィンドウ(&W)]に、データベースと名の付くウィンドウがリストアップされているかを、CommandBarsオブジェクトを用いて判断しています。
 
pfChkDBWin()
 Input
なし
Output
なし
Return
True :表示されている
False:非表示になっている

-------------- サンプルコード --------------
Public Function pfChkDBWin() As Boolean

Dim cmd As Object

pfChkDBWin = False

Echo False
'「ウィンドウ(&W)」の状態をリフレッシュ
CommandBars("Menu Bar").Controls("ウィンドウ(&W)").Execute
CommandBars.ReleaseFocus
Echo True

For Each cmd In CommandBars("Window").Controls
If cmd.ID = 830 Then '表示されているウィンドウのリスト
If (cmd.Caption Like "*: データベース*") Then
pfChkDBWin = True '開かれている
Exit For
End If
End If
Next

Set cmd = Nothing

End Function

CommandBarsを利用した小技は他にもあるんで、おいおい書いていきます。

このネタが役に立ったらポチッとな→blog_ranking_03.gif
posted by Picaso at 00:45 | Comment(0) | TrackBack(0) | MS Access - Tips
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

この記事へのTrackBack URL
http://blog.seesaa.jp/tb/2034160
×

この広告は1年以上新しい記事の投稿がないブログに表示されております。