- ベストアンサー
access ふたつのテーブル間でのデータ移動VB
win10 office365 accessのテーブルの table1のフィールド IDの数値を table2のフィールド ID （いずれも長整数型 数値型 重複あり 空白の許容なし） にコピーする操作ですが 幾度か お尋ねしてきていますが 今回 このやり方で やってみました http://www.mahoutsukaino.com/ac/ac2002/vba/vba16/v16.htm 以下のコードにおいて rs2.Update ここの部分が黄色くなって とまってしまいます しかし なぜか 数値の移行は 出来ていました ただ止まってしまうと 次に続けられなく困っています Public Function table2table1() Dim cn As adodb.Connection Dim rs1 As adodb.Recordset Dim rs2 As adodb.Recordset Set cn = Application.CurrentProject.Connection Set rs1 = New adodb.Recordset Set rs2 = New adodb.Recordset rs1.Open "table1", cn, adOpenStatic, adLockReadOnly rs2.Open "table2", cn, adOpenKeyset, adLockOptimistic rs1.MoveFirst Do Until rs1.EOF rs2.Find "ID='" & rs1!ID & "'" If rs2.EOF Then rs2.AddNew rs2![ID] = rs1![ID] rs2.Update End If rs1.movenext Loop rs1.Close rs2.Close cn.Close End Function 以上 すみません 宜しくお願い致します
- sushidokei
- お礼率63% (261/413)
- Access（アクセス）
- 回答数3
- ありがとう数6
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
こちらではエラーにはなりませんが、どのようなエラーでしょう。 ただ Do Until rs1.EOF rs2.Find "ID=" & rs1!ID & "" のところを Do Until rs1.EOF rs2.MoveFirst rs2.Find "ID=" & rs1!ID & "" にしておかないと数値がバラバラに並んでいたら正しく追加されないと思います。
お礼