| |
Satsukiと申します。いろいろ探してみましたが、わかりませんでしたので、どなたかお教え頂けますでしょうか？よろしくお願いいたします。
下記のようなコードを作り、「データ」テーブルと「位置」テーブルのすべてのデータについて計算しようと思いました。動かしてみると、
「BOFとEOFのいずれかがTrueになっているか、または現在のレコードが削除されています。要求された操作には現在のレコードが必要です。」
と表示され、「データ」テーブルの件数分だけ一巡して計算された後、
rs3![kyoriX] = rs2![X1] - rs1![X]
のところが黄色くなります。
どこを直したらよいでしょうか？お手数ですがお願いいたします。
Public Sub keisan()
Dim cn As ADODB.Connection
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Dim rs3 As ADODB.Recordset
Set cn = CurrentProject.Connection
Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
Set rs3 = New ADODB.Recordset
rs1.Open "データ", cn, adOpenStatic, adLockReadOnly
rs2.Open "位置", cn, adOpenStatic, adLockReadOnly
rs3.Open "距離", cn, adOpenKeyset, adLockOptimistic
rs1.MoveFirst
Do Until rs1.EOF
Do Until rs2.EOF
rs3.AddNew
rs3![kyotenmei] = rs2![拠点名]
rs3![kyoriX] = rs2![X1] - rs1![X]
rs3![kyoriY] = rs2![Y1] - rs1![Y]
rs3.Update
rs2.MoveNext
rs1.MoveNext
Loop
Loop
rs1.Close
rs2.Close
rs3.Close
cn.Close
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
