ACCESSのマクロに関しまして

質問

お願いします。
ACCESS97で追加クエリを作成し、その後自動起動にしようと思い、マクロで追加クエリを項目に入れマクロを作りました。
マクロを作成する際に、モジュールでレコード追加するテーブルを一度削除しようと思い、「DELETE文」でモジュールを作成し、マクロの追加クエリの前に「プロシージャの実行」でモジュールのプロシージャを実行するようマクロに記述しました。

＜マクロ内容＞
(1)「プロシージャの実行」
　（追加クエリで追加するテーブルの中身をDELする)
(2)「クエリを開く」
　（追加クエリでレコード追加）

この用に記述し、マクロ名を「AutoExec」で記述して、ファイルを実行してもマクロが起動しません。
(1)の「プロシージャの実行」までは、実行されているようなのですが（テーブル内確認）、以降の追加クエリが実行されません。
何か他の設定があるのでしょうか？
お願い致します。

回答No.3

Gin_F · ベストアンサー

> Set DB = CurrentDb()
> DB.Execute "DELETE T_MAIN.* FROM T_MAIN ;"
> Set DB = Nothing

ではなく、

> dbs.Execute "DELETE テーブル名"
> dbs.Execute "INSERT INTO テーブル名　～省略～"

のように、Execute メソッドで続けて実行しても同じですか？

お礼

返答遅れましてすみません。
続けて、コーディングした所、動作しました。
結果がとりあえず同じなので、以降は調べてみたいとおもいます。ありがとうございました。

回答No.2

mshr1962

プロシージャの内容がわかりませんが
テーブルをOpen
レコードをDelete
テーブルをClose
になってますか？
開いたままだと追加クエリできないのでは？

回答No.1

Gin_F

> (1)「プロシージャの実行」
> 　（追加クエリで追加するテーブルの中身をDELする)
> (2)「クエリを開く」
> 　（追加クエリでレコード追加）

(1)の処理が終了する前に、(2)の処理を実行しようとしているのだと
思います。

プロシージャの実行の中で、以下のように記述してみてください。

Dim dbs As Database
Set dbs = Currentdb

dbs.Execute "DELETE テーブル名"
dbs.Execute "INSERT INTO テーブル名　～省略～"

Set dbs = Nothing

補足

回答ありがとうございます。
一応コードは以下のようにしてみたのですが・・・。

Public Function tableDEL()

Dim DB As Database

Set DB = CurrentDb()

DB.Execute "DELETE T_MAIN.* FROM T_MAIN ;"

Set DB = Nothing

End Function

これでも動作してくれないのです。
これとは別に、削除クエリで同様のクエリを作成したのですが、マクロ上でも同様に削除クエリまでは動作してくれるのですが、以降の追加クエリが動作しませんのです。
削除を取り除いて実行すると追加クエリが動作するのですが・・・。
重ねがさねお願い致します。