質問: vbYes Then DoCmd.RunSQL bkSQL MsgBox "テーブルを作成しました。" End If ```
回答: がんばってますね。 回答をしたいところですが、以下が不明なため答えるのが難しいです。 ・DoCmd.RunSQLの中身 ・各クエリの詳細 たぶん更新クエリ(upSQL)に問題があるのではないかと思いますが...。 それから余談ですが、今回のように連続した処理をする場合、トランザクションを意識する必要があります。 3個あるクエリのうち、途中で失敗したらデータが中途半端な状態になってしまいますからね。 トランザクション開始 1更新クエリ DoCmd.RunSQL upSQL 2追加クエリ DoCmd.RunSQL addSQL 3削除クエリDoCmd.RunSQL delSQL コミット エラー発生 ロールバック 具体的な関数名とか手順は調べてみてください。