Accessでクエリを表示したままALTER TABLEすると例外になる

例外が発生する条件

下記のようなテーブル。

下記のようなクエリ。

クエリを表示した状態でボタン押す。

ボタン押した時の処理

Private Sub btn_1_Click()

    Dim com_ As New ADODB.Command: com_.ActiveConnection = CurrentProject.Connection
    
    com_.CommandText = "DELETE FROM tes_1"
    com_.Execute
    
    com_.CommandText = "ALTER TABLE tes_1 ALTER COLUMN record_id COUNTER (1,1)"
    com_.Execute 'ここで例外。

End Sub

例外時のダイアログは下記。

テーブル※※は現在ほかのユーザーまたはプロセスで使用されているので、ロックできませんでした。

蛇足

ALTER TABLEやる前にクエリを閉じる処理をかませよう。

クエリを閉じる

DoCmd.Close acQuery, "クエリ名", acSaveNo

『もしくはクエリが一つでも開いていたら実行不可』といった制御。

参考サイトさん

バージョン

Windows 10 Pro 22H2 19045.3031
Microsoft Access for Microsoft 365 MSO (バージョン 2304 ビルド 16.0.16327.20200) 32 ビット