| |
▼Gin_II さん：
>>Accessに作成したフォーム、レポート、マクロ、モジュールを
>>すべて削除する方法を教えてください。
>
>テーブル一覧 とか、フォーム一覧 とかなら、For Each 〜 Next で
>できると思いますが、全部となると、システムテーブルを参照した方が
>簡単ですね。
>
>ただ、全部削除するのなら、新規ファイルを作った方が簡単だと思いますが、
>テーブル・クエリだけを残すということなのでしょうか？？
回答有難うございます。
下記のコーディングで、テーブルとクエリーの削除は出来たのですが
フォーム、レポート、マクロ、モジュールは同じように出来ません。
formdefsとかreportdefs・・・とかは無いようなので？
なお、実際にはこの中にIF文をいれて、削除しないものは
選択するようにしたいと思っています。
Set db = CurrentDb
For Each tb In db.tabledefs
DoCmd.DeleteObject acTable, tb.Name
Next
For Each qr In db.querydefs
DoCmd.DeleteObject acQuery, qr.Name
Next
For Each 〜 Next を用いたフォーム、レポート、マクロ、モジュールの
削除方法をご教授ください。宜しくお願いします。
|
|
山田
- 04/10/12(火) 7:42 -
