VBA内のリンクテーブルをすべて削除する

Question

アクセスデータベースにリンクされているすべてのテーブルを削除する必要があります。

これは、すべてのリンクテーブル（ODBCおよびアクセスリンクテーブル）が返されるクエリです：

SELECT [MSysObjects].[Name] FROM MSysObjects WHERE Left([Name],1) <> "~" AND (MSysObjects.Type = 6 OR MSysObjects.Type = 4) ORDER BY MSysObjects.Name;

をしかし、今、私はすべて閉鎖するために、このDoCmd.DeleteObject acTable, Table.nameとfor eachをしなければならないと思います私のテーブルが、私はどのように行うのか分からない。

Answer 1

For Eachは順不同の順序でコレクションを反復処理し、反復処理中にそのコレクション内のオブジェクトを削除することによってエラーが発生します。

私はあなたが使用してテーブル定義オブジェクトを削除する逆の順序で順序付けられたシーケンスでコレクションを反復処理することを示唆している：

`を設定し、DBS = CurrentDb`

Answer 2

Dim rs as New ADODB.Recordset 
Dim strSql as string 

strSql = [put your sql statement here] 

rs.open strSql, CurrentProject.connection 
Do while not rs.eof 
    Docmd.DeleteObject acTable,rs.Fields(0) 
    rs.MoveNext 
Loop 
rs.Close