| |
ADODB.Recordsetを使用してデータベースの更新をするマクロを作成しています。
更新する項目が多いので、Update分を分けて書こうとしました。
以下のようなコードを書きましたが、2回目のUpdate文で
「実行時エラー '3265': 要求された名前、または序数に対応する項目がコレクションで見つかりません。」というエラーメッセージが出ます。
なぜこのようなメッセージが出るのか、そしてどこを見直せばよいか、教えていただけないでしょうか？
With rs2
' テーブルを開く
.Source = "TABLE"
.ActiveConnection = cn
.CursorType = adOpenKeyset ' キーセットカーソル使用
.LockType = adLockPessimistic ' レコード単位排他的ロック
.Open
.Find "SerialNo = '" + strSerialNo + "'", 0, adSearchForward
' レコードを更新する
.Update Array("A", "B", "C"), Array(Data11, Data12, Data13)
.Update Array("D", "E", "F", "G"), Array(Data14, CStr(Color14), Data15, CStr(Color15))
End With
rs2.Close
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
