Строки таблицы циклов в Access, с использованием или без использования Private Const

Я здесь занимаюсь программированием на 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 различных строк, состоящих из просто поля идентификатора и текстового поля, такого как tblWords.ID а также tblWords.Word,

Мой вопрос: вместо того, чтобы использовать Private Const и зацикливание дважды, как я могу изменить свой цикл так, чтобы он вместо этого зацикливался на tblWords 100 раз, один раз для каждого ряда?

Источник

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
Источник
Другие вопросы по тегам