Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3791 / 9994

←次へ　｜　前へ→


	【9460】Re:RunMacro""が実行できません。

hatena - 07/5/26(土) 7:50 -


	引用なし

	パスワード

解決したということですが、
念のために、

>　　 Private Const PROCESS_STATUS　　　　 As Long = &H400　　'プロセスの状態を取得する
>　　 Private Const PROCESS_ACTIVE　　　　 As Long = &H103　　'プロセスは実行中
>　　　* As Long = &H400,As Long = &H103 の記述はまだ理解できていません。

これは定数の定義で、その数値にコメント部分の意味を割り当てた
ということです。あとで使うときに、&H400 と指定するより、
PROCESS_STATUS と指定した方がコードが読みやすいですよね。

例えば、

>　　ProcessHandle = OpenProcess(PROCESS_STATUS, False, ProcessID)
>'　プロセスハンドル情報の取得

ProcessHandle = OpenProcess(&H400, False, ProcessID)

とするより意味を理解しやすいですよね。

>　　Do
>　　　　GetExitCodeProcess ProcessHandle, ExitCode
>'　　　プロセス状態の取得
>
>　　　　DoEvents
>　　Loop While ExitCode = PROCESS_ACTIVE
>'　プロセスが終了するまでループさせる（或いは、待っているのでしょうか）

状態が PROCESS_ACTIVE（プロセスは実行中）の間はループさせるということですね。

>　　DoCmd.RunMacro "tacifimport_delete"
>'　テーブルの初期化
>
>　　DoCmd.RunMacro "cif_import"
>'　テーブルの作成（インポートです）

RunMacro（マクロ）でクエリを実行する場合非同期ですので、
実行終了を待たずに、次のコードが実行されます。
ですので、テーブルの初期化が終わる前に、
次のインポートが実行される可能性があります。

ここは、

CurrentDB.Excute "削除クエリ名"

Docmd.TransferText acLinkDelim, "インポート定義","テーブル名","ファイル名"

というようにVBAで記述した方が安全でしょう。

701 hits

▼

【9445】RunMacro""が実行できません。 吉村 07/5/24(木) 12:39