Access VBA質問箱 IV

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

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


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

3806 / 9994

←次へ　｜　前へ→


	【9445】RunMacro""が実行できません。

吉村 - 07/5/24(木) 12:39 -


	引用なし

	パスワード

よろしくお願いします。

以下のようなプライベートサブを作成しましたが、
7.番のマクロが実行できない時があります。
　（確立50%くらいでしか動きません）

Private Sub export_Click()
1.　　Call SaveRec
　　　*フォームから入力したデータをテーブルに更新しています。
2.　　DoCmd.RunMacro "cif_export"
　　　*更新したテーブルをテキストファイルに変換しています。
3.　　MsgBox "　抽出条件を作成しました。　"
　　　*メッセージを表示しました。
4.　　Call Shell("C:\sinsystem_mdb\object\fs8e290a.exe")
　　　*COBOLのexeを起動しています。
　　　（2.のファイルを参照して7.で使用するファイルを作成します）
5.　　MsgBox "　抽出処理を終了しました。　"
　　　*メッセージを表示しました。
6.　　DoCmd.RunMacro "tacifimport_delete"
　　　*7.で使用するテーブルを初期化しています。
7.　　DoCmd.RunMacro "cif_import"
　　　*4.（COBOL）で作成したテキストファイルから
　　　 Accessテーブルへインポートします。
8.　　MsgBox "　データベースを作成しました。　"
　　　*メッセージを表示しました。
End Sub

以上ですが、
7.のインポート処理が実行できる時と出来ない時があります。
（マクロの単独実行では確実に成功しています。）

イベントの組み立てに問題があるのでしょうか？

よろしくお願いします。

665 hits

▼

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

≪