Access起動中にエクセルからADOでデータの更新ができない
こんばんは。原因がわからないので質問させてください。
SQLサーバーのデータをAccessのmdbへリンクテーブルしています。
(SQLサーバー → Access)
全て一つのパソコンで行なっています。(LANには接続していません)
Accessのmdbファイルを起動している時に
ExcelからSQLサーバーのAccessにリンクしている上記のテーブルへ
ADOを使ってデータを追加しています。
(Excel → Access)
しかし、「rs.Update」の部分で
「ODBC--リンク テーブル'テーブル1'での更新に失敗しました。」
となってしまいます。
なので、一度mdbファイルを落として、コードを再開すると通るので
ADOでExcel → Accessにデータを追加し終わってから再度mdbファイルを立ち上げています。
また同じ状態(mdbファイルを起動)で
Excel → SQLサーバー へ更新クエリをしようとすると「時間切れになりました」となります。
(こちらもmdbファイルを落とすと再開できます。)
いちいちmdbファイルを落とすのめんどうなのですが
回避する方法はありますか?
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\Users\Documents.test.mdb"
rs.Open "テーブル", cn, adOpenStatic, adLockPessimistic
rs("フィールド") = True
rs.Update '保存
rs.Close: Set rs = Nothing
というコードを書いています。
Accessを落とせば正常に動きます。
ご教授よろしくお願い致します。
お礼
ありがとうございました。