
Accessで進行状況インジケーターの表示だけ止めたい
VBAで、Syscmdなどの命令を使って、左下のインジケーター部に
進行状況を表示していますが、マクロ動作により、次のクエリが
動いているときには「クエリを実行しています■■」のような
表示になってしまいます。
Syscmdコマンドを使用した直後に、インジケータ部の表示だけ
ロックして、次のメッセージを表示させたい時点でリフレッシュ
するようなことは可能でしょうか。
Application.Echo falseは試してみましたが、ウィンドゥ内の
表示がロックするだけで、インジケーターはうまくロックしない
ようでした。(ステップ実行で確認。)
対処方法をご存知の方、ご教示よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
【要旨】
データの更新を、「DoCmd.OpenQuery」から「CurrentDb.Execute」に変更
すれば、進行状況を知らせるメーターの表示を回避できます。
※当該クエリを、更新クエリや追加クエリ等の「アクションクエリ」と想像。
【詳細】
恐らく、『アクションクエリの実行中も、「SysCmd acSysCmdSetStatus」で
設定した内容を、表示させておきたい』ということだと思いますが、
こちらで確認した限り、クエリ(DoCmd.OpenQuery)を使用した状況下での
回避策は見つけられませんでした(汗)
ただ、クエリと同様の処理は、DAOのExecuteメソッドでも行うことができ、
こちらであればステータスバーでのメーター表示はされないことから、
冒頭で示したような変更をすれば、ご希望の動作になるかと思います。
なお、SQL文に差し替えるとなると、
a)SQL文は触ったことがない
b)既存のコードの修正が面倒
と二の足を踏まれるかもしれませんが、「DoCmd.OpenQuery」を以下の
関数に差し替え(VBEの画面で、Ctrl+Hキーの同時押しによる置換)れば、
a)SQL文の直接編集ではなく、クエリのデザインビューで編集可能
b)置換ダイアログでの一括置換
で対処できます。
<手順1>
標準モジュールに以下のコードを貼付し、適当な名前で保存:
Public Function ProxyExecute(QName As String) As Boolean
On Error GoTo エラー処理
'「ツール(T)→参照(R)」で、「Microsoft DAO ~」への参照設定が必要
Dim Rsl As Boolean, Qdf As DAO.QueryDef, strSQL As String
'指定したクエリを変数に格納
Set Qdf = CurrentDb.QueryDefs(QName)
'クエリのSQL文を取得
strSQL = Qdf.SQL
'SQLを直接実行
CurrentDb.Execute strSQL
'エラーが発生しなかったことを記録
Rsl = True
終了処理:
'本関数の戻り値として、実行/中止の結果を返す
ProxyExecute = Rsl
'念のため明示的にメモリを解放
Set Qdf = Nothing
'本関数を終了(後続の「エラー処理」の実行を回避)
Exit Function
エラー処理:
Select Case Err.Number
Case 3265 '存在しないクエリ名を指定した場合
MsgBox "以下のクエリが見つかりません:" & vbCrLf & vbCrLf & QName
Case Else '上記以外のエラー発生時はその情報を表示
MsgBox Err.Number & ":" & Err.Description
End Select
'エラーが発生したことを記録
Rsl = False
Resume 終了処理
End Function
<手順2>
当該モジュールを開き、Ctrl+Hキーの同時押しで『置換』ダイアログを
表示させ、以下の条件で置換を実行:
検索する文字列(F): DoCmd.OpenQuery
置換後の文字列(W): ProxyExecute
対象: カレント プロシージャ(P)
但し、エラートラップの設定(「ツール(T)→オプション(O)」で開く画面の
『全般』タブで変更可能)によっては、
・OpenQuery: その場で処理を中止
・上記関数: 関数の呼出元の後続処理を継続
という違いが発生してしまいます(汗)
エラー発生時に処理を中止したい場合は、手動で(汗)以下のように書き
換えて下さい:
<現在>
DoCmd.OpenQuery "クエリ名"
<置換後>
ProxyExecute "クエリ名"
<手動修正後>
If ProxyExecute("クエリ名") = False Then Exit Sub
・・・以上です。
長文、失礼致しました(汗)
丁寧な回答ありがとうございます。このような方法で回避できる
という記載(検証)をしていただいたのは、他でも余り見かけず、
質問に対する、原因と対策が明確に解決し、すっきりしました。
DoCmd.OpenQueryの後ろに、“acViewNomal.acEdit”がついていたので
消去(もともと必要かわかりませんが)する必要があったのと、
CurrentDb.Executeの処理対象がテーブル作成クエリで、作成対象
クエリが既存の場合に、エラーが出るようです。(何かパラメータ
等で上書きの指定をするようでしょうか。)後はご回答いただいた
もので期待した動作を確認しました。
参考のVBA部分を組み込むと、エラー処理の場合を無難?にスルー
してしまうので、もう一度システムのコードを見ながら組み込みを
検討してみます。
ネットの記載を見ると、CurrentDb.Executeは同期処理なので、
理屈上動作速度がacViewNomal.acEdit(非同期)より遅くなるはず
だが、実際は大して変わらない、とありました。特段利用上気にする
必要もなさそうですね。
会社では書き込みが出来ない環境なので、回答が遅くなり失礼いたしました。
今後のご活躍を期待しております。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
アクセス ステータスバーの文字を表示させたい
Access(アクセス)
-
クエリの進行状況を知りたい。
Access(アクセス)
-
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
-
4
dbFailOnError とは?
その他(データベース)
-
5
2つのテーブルに共通するレコードを削除したい
Access(アクセス)
-
6
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
7
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
8
Accessで処理経過を表示したいのですが
その他(データベース)
-
9
どこにもフォーカスを当てたくない
Access(アクセス)
-
10
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
11
コンボボックスにキー入力をさせない方法(ACCESS VBA)
その他(プログラミング・Web制作)
-
12
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
13
Accessのコンボボックスでリストが選択できない
Word(ワード)
-
14
アクセス 壊れた? 「ファイルが見つかりません」
Access(アクセス)
-
15
Accessのテーブルデータを一気にVBAで追加したい・・
その他(データベース)
-
16
ACCESSのフィールドの表示順が変更できない
その他(Microsoft Office)
-
17
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
18
Access DAOのExecuteメソッドのオプション(RecordsetOptionEnum)に
Access(アクセス)
-
19
Access VBAから使用したExcelプロセスを閉じる方法について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスのエラー「クエリには...
-
Accessのエラーについてです。
-
ACCESSのフィールドの表示順が...
-
Access 複数のクエリの結果を...
-
ACCESSでクエリをVBで実行す...
-
アクセス クエリで計算式の累積
-
Excel VBAでWebクエリ更新
-
アクセスで追加した項目に全て...
-
差込印刷での全角表示について...
-
Accessのテーブルのフィールド...
-
日付型のフィールドに空白を入...
-
Excel→Accessへの日付データの...
-
BCPでCSV内の文字列をテーブル...
-
エクセルにおける「フィールド...
-
SQL文で パラメータが少なすぎ...
-
Excleピボットでデータのない部...
-
2つのテーブルに共通するレコ...
-
ACCESS 「パラメータの入力」...
-
クエリで割り算する方法を教え...
-
ACCESS 重複データを1...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセスのエラー「クエリには...
-
EXCELの外部データ取得ができない
-
Access 複数のクエリの結果を...
-
アクセスで空白がグループ化さ...
-
yes/no型のチェックができない...
-
access追加クエリ実行時の重複...
-
AccessでSQL結果を直接csvに書...
-
ログイン画面後のページの表取...
-
ACCESSのフィールドの表示順が...
-
Access複数のクエリをExcelの1...
-
Accessで進行状況インジケータ...
-
Accessのエラーについてです。
-
Accessでユニオンクエリを作成...
-
Accessの組込み関数について
-
Accessで複数(200件程)の置換
-
accessである「キーワードの種...
-
ACCESS レポートをテーブルへ
-
Excel VBAでWebクエリ更新
-
お世話になります ACCESSを使用...
-
ACCESS テーブル内の列...
おすすめ情報