vba - Access 中的循环表行，使用或不使用 Private Const

Question

我在这里做一些 VBA 编程，我有一个 Private Const包含以下两个元素:

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 .

我的问题是:而不是使用 Private Const并循环两次，我如何修改我的循环，以便它会循环遍历 tblWords 100 次，每行一次？

Answer 1

我想你的意思

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