お世話になります。 Access2000のVBAで作成しております。 Ｅｘｃｅｌに記載した情報をAccessのテーブルに 取り込むために下記のソースを作成致しました。 既にテーブルに主キーが重複しないものを取り込むときは 正常に処理が走るのですが、 主キーが重複する場合は、重複する旨メッセージを出して 処理が止まります。 どのようにソースを修正すれば、「主キーが重複する場合、上書き更新」 するように処理が走るのでしょうか？ 以上宜しくお願い致します。 --------------ソース------------------------------ Dim rs As New ADODB.Recordset Dim oApp As Object Dim iRow As Long Set oApp = CreateObject("Excel.Application") oApp.Workbooks.Open Filename:="hogehoge.xls" rs.Open "テーブル", CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic iRow = 2 ' ★ While( ループ ) rs.AddNew rs("ID") = oApp.Cells(iRow, 1) rs("名前") = oApp.Cells(iRow, 2) rs.Update iRow = iRow + 1 Wend rs.Close oApp.Quit Set oApp = Nothing
↧