Accessからリンクテーブルのレコードを全件削除したい

Question

前提・実現したいこと

Accessのフォームにあるボタンを押下する

→リンクテーブル内にあるレコードを全件削除

発生している問題・エラーメッセージ

下記のソースコードで実行すると、

"実行時エラー'3086' 指定されたテーブルから削除できませんでした"

と表示され、SQL文のところでデバックが止まります。

エラーで調べてみたのですが、調べ方が悪く解決できておりません。

もし原因・解決方法をご存じでしたら、何卒ご教示お願いいたします。

該当のソースコード

FormAのボタンをクリック

→LinkTableのレコードが全件削除される

→formBが開く

といった流れにしています。

Private Sub OpenFormB_Click()

Dim Con As New ADODB.Connection
Dim strConnectionStr As String

strConnectionStr = "Provider=SQLOLEDB; " & _
                   "Data Source=(サーバー名); " & _
                   "Initial Catalog=(DB名); " & _
                   "USER ID= (ユーザー名); " & _
                   "PASSWORD= (パスワード); "

With Con
 .ConnectionString = strConnectionStr
 .Open
  
 Dim DB As Database
 Set DB = CurrentDb

db.Execute ("DELETE FROM LinkTable;")
Set DB = Nothing

.Close
End With
Set Con = Nothing


DoCmd.OpenForm "FormB", acNormal, "", "", , acNormal

End Sub

PrimaryKey追加後

以下のコードで動作確認できました

Private Sub OpenFormB_Click()

 Dim Con As Connection
 Dim RST As New ADODB.Recordset

 Set Con = CurrentProject.Connection
 Set RST = New ADODB.Recordset
  
  With RST
  .Open "LinkTable", Con, , adLockOptimistic
   Do Until .EOF
    .Delete
    .MoveNext
   Loop
  RST.Close
  Con.Close
 End With
 
 Set RST = Nothing
 Set Con = Nothing

DoCmd.OpenForm "FormB", acNormal, "", "", , acNormal

End Sub

Comments

[sazi]

何をリンクしているのでしょう？
データベースのテーブルですか？
エクセルだったり、CSVだったりしますか？

[chimi_mamire]

データベースのテーブルとリンクしています。

Answer 1

そのリンク先のテーブルにはプライマリーキーが無かったりしませんか？
プライマリーキーの無いテーブルは読み取り専用です。

データ自体は一意という事なら、疑似インデックスを作成すると削除できたはずです。
CREATE INDEX ステートメント

Comments

[chimi_mamire]

インデックスを作成したところ、リンクテーブルから直での編集は可能になりました！
ありがとうございます！

Answer 2

リンクテーブルのデータを削除したいということですよね。

ADODB.Connection を生成してますが、それらのコードは不要では。
提示のコードでは、DAOで削除クエリを実行してますので。

下記のコードだけでOKのはずです。

Private Sub OpenFormB_Click()

    Dim DB As DAO.Database
    Set DB = CurrentDb

    db.Execute ("DELETE FROM LinkTable;")
    Set DB = Nothing

    DoCmd.OpenForm "FormB", acNormal, "", "", , acNormal

End Sub

上記で同じエラーがでるなら、
クエリを新規作成して、SQLビューにして、

DELETE FROM LinkTable;

と記述して実行してみてください。

それでエラーなく削除できるか確認してみてください。

Comments

[chimi_mamire]

回答ありがとうございます。
上記のコードとクエリ両方とも試してみましたが、やはり同様のエラーメッセージが発生しました。

[hatena19]

クエリで実行してもエラーが出るということは、コードの問題ではなく、リンクテーブルに問題があるということです。
リンクテーブルを直接開いて、更新とかレコードの削除はできますか。
もし、それもできないのなら、
リンクテーブル接続の設定、リンク先のデータベースの設定に問題かありますので、
それを確認してください。