【Access】RefreshLinkを実行すると「主キーは既に存在しています」とエラーになるようになった

Question

VisualStudio2019のVisual Basicを使用しています。

Accessファイルのリンクテーブルの再接続を行うため、

「Microsoft Office 16.0 Access database engine Object Library」を参照設定しています。

これを使用して新しい接続先を設定してRefreshLinkを実行すると「主キーは既に存在しています」とエラーになるようになりました。

2024年1月5日までは正常にリンクテーブルの再接続ができていたのですが

2024年1月9日から急にエラーが出るようになりご質問させていただきました。

よろしくお願いいたします。

Dim dao1 As Object

Dim dao2 As Object

dao1 = New Microsoft.Office.Interop.Access.Dao.DBEngine

dao2 = dao1.OpenDatabase(Accessファイルのパス)

for loop = 0 To dao2.TableDefs.Count - 1

dao2.TableDefs(loop).Connect = 再接続先 

dao2.TableDefs(loop).RefreshLink() 

next

---

モデレータ注 : タイトルに製品名を追加しています

Answer 1

Microsoft 365 Apps の更新履歴

https://learn.microsoft.com/ja-jp/officeupdates/update-history-microsoft365-apps-by-date

バージョン 2312

ビルド 17126.20132

最新のリリース日 2024 年 1 月 9 日

上記が原因と思われます。

過去バージョンに戻す手順は、 処理を実行するために、管理者権限のコマンドプロンプトを開きます。

「cd %programfiles%\Common Files\Microsoft Shared\ClickToRun」を コマンドプロンプト上で実行（Enter押下）します 「OfficeC2RClient.exe /update user updatetoversion=16.0.17029.20068」を コマンドプロンプト上で実行（Enter押下）

に 戻すことで、エラー表示は回避されました。 自己責任の作業で行ってください。

Answer 2

> 16.0.17029.20068

バージョン 2311 (ビルド 17029.20068) の最新チャネル機能更新プログラムまでダウングレードするという事ですね。

（VISIOも利用されている場合は、更にもう一つ前の バージョン 2310って事になりますね。）

AHataさんに教えて頂いた暫定回避策を検討するとともにフィードバックで報告した方が良さそうな事案ですね。

（フィードバックしないと開発者には伝わりません。 別件[VISIO]は、約1ヶ月で対策してくれました。）

Answer 3

開発系の話は、海外コミュニティで聞く方が良いかも？

Microsoft Q&A

├ Access

├ Access Development

├ Visual Studio

※ 質問内容によっては、閲覧者・回答者が多い海外コミュニティをお勧めします。

　 Microsoft Q&A では、英語が推奨されています。(日本語を読み解いてくれる人は少なそうです。)

　 タグ名は約400種類定義されています。適切なタグ(複数可)を付与した方が回答を得られ易いです。

　 （技術的な質問も受け付けている様です。）

※ 現時点では、ブラウザの表示言語を英語にしていないと表示出来ない場合がありますので、

　 ご留意ください。(urlの一部を "en-us"に変更すれば閲覧可能。)

Answer 4

AHataさん、Microsoft365の更新が原因というのと

過去バージョンに戻す改善策を教えていただきありがとうございました。

大変助かりました。

simo-kさんもアドバイスやフィードバックなどありがとうございました。