FC2ブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

↑やる気アップにご協力をお願いします。わぁいヽ(∇⌒ヽ)(ノ⌒∇)ノわぁい♪

こんな記事もありますよ


画面の切替を見せなくする方法

もし・・・この基本 de ご~を参考にされる場合は(いないと思いますが・・・)
まず、基本 de ご~の注意をご一読下さい。
今回の基本操作は

画面の切替を見せなくする方法」です。

Accessでフォーム等を利用していると、そのフォームの最大化や
最小化またはフォームの切替時などに画面がちらつくことがあったり
なかったりします。

そんな画面の切替状態を隠していきたいと思います。



・・・と書いたところで、その中身は大した内容ではないです。(^^ゞ

「Echo」を利用すれば画面切替動作を見せなくしてくれます。
Docmd.Echo False '画面描画の停止
'~~~~~
'画面の切替動作などの処理
'~~~~~
Docmd.Echo True '画面描画の再開
これだけです。
最初のDocmd.Echo False によって画面描画を停止して
最後のDocmd.Echo True で最終画面が表示されている状態になってくれます。

( ゚o゚)ハッ そうそう・・・。画面の描画を停止してくれると書きましたが、
停止している状態でも、メッセージボックス等のダイアログに関しては
表示されるようになります。

つまり、別のフォームをダイアログとして表示させた場合は
停止中であっても表示されるということになります。
ということで下記のようなサンプルを作成しました。
Private Sub btn_1_Click()
On Error Resume Next

DoCmd.Echo False '画面描画の停止

DoCmd.OpenReport "RepA", acViewPreview, , , acWindowNormal
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, "RepA", acSaveNo

DoCmd.Echo True '画面描画の再開

End Sub
上記ではフォーム上のボタン(btn_1)をクリックした際に
指定したレポート(RepA)を開いた後で、印刷ダイアログから印刷を行っていますが、
画面上では印刷ダイアログしか表示されません。
レポートの開閉に関しては、Echoによって描画されていないことになります。

つまり使う側から見ると、レポートを開いてから印刷・・・という流れではなくて
印刷ダイアログのみ表示され、そこから直接印刷を指定しているように感じてくれるわけです。

もちろん、「プレビューを見てから印刷をしたい・・・」なんて時は
上記の方法だとだめなわけですけれど・・・なんかちょっとだけ、
ユーザーを意識したスマートでかっこいい感じがしちゃったりしませんか・・・?
(無駄な自画自賛ですが・・・orz)

そうそう・・・当然ですが、
描画を停止した場合、再開されるまでは画面描画が行われません。
なので・・・停止中にエラーが発生した場合等で「Docmd.Echo True」を
通らずにプロシージャを抜けてしまうと・・・とんでもないことに
なってしまいますので注意してください。

もしそうなった場合にはイミディエイトウインドウで
Docmd.Echo True」と入力してあげれば再描画が行われるように
なります。

ちなみに、上記のサンプル「レポートを印刷ダイアログから印刷」でも
On Error Resume Next」としてますのでエラーが発生した場合でも、
Docmd.Echo True」を通るように設定してたりします。 ( ̄^ ̄) エッヘン!

ま・・・だから何?って話なんでしょうけどね・・・orz

ではでは今回はこの辺で・・・(^0^)/~~see you !
↑やる気アップにご協力をお願いします。わぁいヽ(∇⌒ヽ)(ノ⌒∇)ノわぁい♪

こんな記事もありますよ


コメントの投稿

非公開コメント

Author's Profile ~自己紹介~

Genzo

Author:Genzo
PCは一応自作できるレベル。
ワード・エクセルなら基本的に
扱えるレベル。
プログラム・・・?ん?
VBA・・・?ん?ん??
それって美味しいですか?


~ 当ブログについて ~

~ Mail2Genzo  ~

Calender&Search かれんだーと検索

07 | 2018/08 | 09
- - - 1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31 -

Access2Genzo内で検索

Category ~かてごりー~

Comments Tree ~こめんとつりー~


Link ~りんく~

ブロとも申請フォーム

Counter ~かうんた~

Since 2010/08/01:

Online:

タグクラウド

最新トラックバック

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。