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
------------------------------------------------------------------
モデレータ注 : タイトルに製品名を追加しています