フォームを再描画する 時間がかかる処理を実行すると、その間はAccessが応答しなくなるため、フォームに表示されている内容が正しく表示されません。 このようなケースでもフォームを正しく表示したいときは、Me.Repaintを使いフォームを再描画することで、フォームに表示されている内容を保つことができます。 Me.Repaintの使用例 次のサンプルは、Me.Repaintプロパティを使って、フォームの再描画を行う例です。このサンプルでは、ボタンのイベント「クリック時」に記述しています。 VBAの処理を実行中にAccessのウィンドウやフォームが再描画されるタイミングは、通常はAccessにイベントが返るメソッド（DoCmd.GoToPageやMsgBoxなど）を実行したときです。 このサンプルでは、Do〜Loopを使ってAccessにイベントが渡らない状態を（むりやり）作り、Me.Repaintメソッドを実行しフォームのみを再描画しています。ただし、Accessのタイトルバーやツールバーなどフォーム以外の部分は再描画されません。 Private Sub コマンド5_Click()     Dim lngStart As Long     lngStart = Timer     '５秒待機します     Do Until Timer - lngStart > 5        'フォームを再描画します        Me.Repaint     Loop End Sub 　注：日付が変わるタイミングで実行すると永久ループしますので注意してください

[PR]管理人が書いたVBAプログラミング本 ■最速攻略 Access VBA サンプル大全集 ■Access クエリ スパテク209 ■ここが知りたかった! Access VBA 500の技※ ◆最速攻略 Excel VBA サンプル大全集 ◆苦手なコードもこれで安心!Excel VBA超入門講座 ◆Excel VBAゲーム大作戦 はじめて編※ 実践編※ （アマゾンへジャンプします。※は共著作品） Access VBA Tips+α フォーム・サブフォーム編 ◆フォーム/サブフォームを扱う基本   1 VBAでフォームを扱う基本    ・Me、Forms、Screen.ActiveForm   2 VBAでサブフォームを扱う基本    ・Form、Parent   3 VBAでフォームを開く    ・DoCmd.OpenForm の基本   4 VBAでフォームを閉じる    ・DoCmd.Close ◆フォームの外観・体裁を整える   1 移動ボタン/区切り線/レコードセレクタ    ・表示/非表示の切り替え方法    ・VBAで切り替えを行うときの方法も！ ◆表示内容の更新・再描画を制御する   1 フォーム再描画のON/OFF切り替え    ・Paintingプロパティ   2 フォームを再描画する    ・Repaintメソッド ◆フォームの情報を参照・取得する   1 レコード件数を取得する    ・Recordset.Countプロパティ   2 何件目のレコードを選択しているかを調べる    ・CurrentRecordプロパティ ◆その他のフォーム関連応用テクニック   1 レコードセットの内容をレコードソースにする    ・CursorLocation, adUseClient ■DAOデータアクセス編 ■ADOデータアクセス編 ■クエリー(SQL)編 ■フォーム・サブフォーム編 ■コントロール編 ■メニューバー・ツールバー編 ■マクロ（DoCmd）編 ■レポート編 ■応用テク・その他の機能編 ■プログラミングサンプル編 ■番外編1.HTTPやFTPを使うには Happy! Happy! Islandその他のコンテンツ ■VBAプログラミング、その他 　Access VBAプログラミング＆Tips 　Excel VBA(エクセルマクロ)プログラミング＆Tips 　VBScript＆JScriptプログラミング＆Tips for WSH 　プログラミング基礎・入門 　HTMLの書き方 ■ダウンロードコーナー 　AccessとExcelのフリーソフト ■コミュニティー 　VBA質問掲示板 ■その他 　オレの話を聞けぇ♪（仮称／コラム） 　管理人プロフィール 　管理人へメール ■別館(海外向けサイト) 　SAMURAI Game Center - Freeware games for Microsoft ACCESS and EXCEL! VBAプログラミング＆Tips集の "Happy! Happy! Island"トップページへ [リンク]IT関連情報サイトなど gihyo.jp 技術評論社提供のIT関連コンテンツサイト [リンク]一番クリックした国が優勝 ClickClickClick.com クリッカー＆認証人募集！日本を1位にしよう！もちろん、おいらも参加中！各種情報の入手はClickJapanオフィシャルサイトで。 [PR]証券会社・投資運用関連サイト カブドットコム証券 逆指値・W指値等の自動売買でリスク管理追求型の投資が可能！引け後のIRやニュースを見てからでも間に合う夜間取引も魅力！ マネックス証券 オンライントレード・自動売買の最先端！「逆指値・ツイン指値」でリスクコントロール！デイトレードなら片道手数料無料！ Ｅ＊トレード証券 オンライン専業証券�ｂPの口座数！業界最低水準の手数料体系と充実のサービスラインナップ！ 楽天証券のマーケットスピード ネット証券最強のトレーディングツール「マーケットスピード」でプロ水準の投資環境がご自宅のパソコンに！ オンライン証券徹底比較 価格．ｃｏｍで証券徹底比較！手数料、取引商品、信用取引金利、逆指値などの注文方法や提供情報などを徹底比較！

Copyright(C) 1999-2006 結城圭介。 All rights reserved