Ｐａｇｅ 210 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼rs![変数]ってできますか？ Ｆｕｋｕ 03/2/25(火) 15:52 ┗Re:rs![変数]ってできますか？ イケガミ 03/2/25(火) 15:57 ┗Re:rs![変数]ってできますか？ Ｆｕｋｕ 03/2/25(火) 16:22 ┗Re:rs![変数]ってできますか？ イケガミ 03/2/25(火) 17:32 ┗Re:rs![変数]ってできますか？ Ｆｕｋｕ 03/2/25(火) 17:48 ─────────────────────────────────────── ■題名 ： rs![変数]ってできますか？ ■名前 ： Ｆｕｋｕ ■日付 ： 03/2/25(火) 15:52 -------------------------------------------------------------------------
| ループのなかで変数を使ってレコードの値を参照編集したいのですが rs!のあとに変数をつけて参照するにはどうしたらいいのでしょうか？ ＆でつなげてみたのですができませんでした。 どなたか教えていただけないでしょうか？おねがいします。 |
| >ループのなかで変数を使ってレコードの値を参照編集したいのですが >rs!のあとに変数をつけて参照するにはどうしたらいいのでしょうか？ Dim i As Long For i = 0 To rs.Fields.Count - 1 Debug.Print rs.Fields(i) Next i のようにしてみてください。 |
| ▼イケガミ さん： >>ループのなかで変数を使ってレコードの値を参照編集したいのですが >>rs!のあとに変数をつけて参照するにはどうしたらいいのでしょうか？ > >Dim i As Long > >For i = 0 To rs.Fields.Count - 1 > Debug.Print rs.Fields(i) >Next i > >のようにしてみてください。 すいません。質問の文が不充分でした。 i = 1 Do Until i > 4 gawa = Nz(rs!継手名称 & i, "") ＜−−−−この部分など size = rs!サイズa & i & "x" & rs!サイズb & i & "x" & rs!サイズc & i Do While Mid(size, 1, 1) = "x" size = Mid(size, 2, Len(size)) Loop criteria = "(継手名称 = '" & rs!継手名称 & i & "') and (継手サイズ = '" & size & "')" Select Case gawa Case 取付 rst.Find criteria, 0, adSearchForward, 1 If rst.eof Or rst.BOF Then MsgBox ("rst miss") Else hyouji = hyouji & rst!記号継手名称 & rst!継手ｻｲｽﾞ & "+" End If Case 反対 rsh.Find criteria, 0, adSearchForward, 1 If rsh.eof Or rsh.BOF Then MsgBox ("rsh miss") Else hyouji = hyouji & rsh!記号継手名称 & rsh!継手ｻｲｽﾞ & "+" End If Case "" i = 4 End Select i = i + 1 rst.MoveFirst rsh.MoveFirst Loop のような感じです。フィールド名が継手名称1、継手名称2などになっているので数字 の部分だけ変数で対応したいのです。御願い致します。 |
| > gawa = Nz(rs.Fields("継手名称" & i, "") では？ |
| ▼イケガミ さん： >> gawa = Nz(rs.Fields("継手名称" & i, "") > >では？ ありがとうございます。 できました。またなにかありましたら よろしく御願い致します。 |