2

ここでいくつかの VBA プログラミングを行っており、Private Const次の 2 つの要素を持っています。

Private Const myList as String = "foo;bar"

次に、次のようなループ構造があります。

myTerms = Split(myList,";")
For I = 0 to UBound(myTerms)
   'do stuff in here
Next I

最後に、新しい部分です。tblWords には 100 の異なる行があり、ID フィールドと、 や などのテキスト フィールドだけで構成されtblWords.IDていtblWords.Wordます。

私の質問は次のとおりです: and を使用してPrivate Const2 回ループする代わりに、ループを変更して、tblWords行ごとに 1 回、100 回ループするようにするにはどうすればよいですか?

4

1 に答える 1

3

私はあなたが意味すると思います

Dim rs As DAO.Recordset
Dim db As Database

Set db = CurrentDB
Set rs = db.OpenRecordset("tblWords")

Do While Not rs.EOF
   sid = rs!ID
   sword = rs!word

   ''And to change a word
   rs.Edit
   rs!Word = rs!Word & " edited"
   rs.Update

   rs.MoveNext
Loop
于 2013-01-13T20:46:40.860 に答える