他の MDB ファイルにあるオブジェクトの削除 Hit Counter

対象バージョン : 97, 2000(MDB), 2002(MDB), 2003(MDB)
最終更新日 : 2005/04/25 (オリジナル作成日:1997/10/29)


概 要 

 現在開いているデータベース以外の MDB ファイルにあるオブジェクトを削除する方法です。

 

解 説

【方法1】

 DoCmd オブジェクトの DeleteObject メソッドを利用する方法です。

Dim obj As Object
Set obj = GetObject("フルパス指定の MDB 名")
obj.DoCmd.DeleteObject acForm, "フォーム名"
Set obj = Nothing

 この方法は、DeleteObject メソッドで指定する objecttype で指定できるオブジェクト(DeleteObject のヘルプをご参照ください)であれば可能です。

 

【方法2】

 DAO オブジェクトの Delete メソッドを利用する方法です。

Dim db As Database
Set db = DBEngine(0).OpenDatabase("フルパス指定の MDB 名")
db.QueryDefs.Delete "クエリー名"

 この方法は、DAO オブジェクトで Delete メソッドが指定できるコレクションであれば可能です。
 くわしくは Fields, Indexes, Properties, QueryDefs, Relations, TableDefs, Users の各コレクションのヘルプをご参照ください。


目次へ戻る