Обновление значения таблицы, которое будет включать оператор where

Question

У меня есть одна таблица с именами полей «StepX», где X - 10–1420 шагов в 10 с.У меня есть другая таблица, которая имеет значения строк от 10 до 1420, и эти значения между ними связаны.Мне нужна подпрограмма, которая получает «X» из имени поля, находит эквивалентную строку со значением «X» в другой таблице, извлекает значение из столбца (в той же строке, где находится X) во второй таблице и помещаетзначение в первой таблице в строке под именем поля «StepX».

просмотрел различные вопросы и ответы, и я не могу найти, как справиться с изменением имени поля, когда я зацикливаюсь.До тех пор пока не сработает, но я не вижу значения в первой таблице.

Dim dbs As Database
   Dim MarkerNumber As Integer
   Dim MarkerTotal As Integer
   Dim stSQL As String


   MarkerTotal = 1420
   MarkerNumber = 10

   Set dbs = CurrentDb

    Do Until MarkerNumber = MarkerTotal

        stSQL = "UPDATE tbl_Changes SET tbl_Changes.[Step'markernumber'] = SELECT_TypeTest set TypeTest WHERE SELECT_TypeTest.Order =10"

        MarkerNumber = MarkerNumber + 10
    Loop

Я положил то, что у вас есть, и это не сработало, вероятно, потому что я не дал вам всю историю.так как я отправил вопрос, я изменил свой запрос на обновление следующим образом, и он работает: UPDATE tbl_Changes, SELECT_TypeTest SET tbl_Changes.step10 = IIf ([SELECT_TypeTest]! [InstrTest]> 0, «Need», «N / A») WHERE (((SELECT_TypeTest.Order) = 10));нужна помощь в преобразовании этого кода в секвенсор MarkerNumber.

Answer 1

Незначительные изменения

   Dim dbs As Database
   Dim MarkerNumber As Integer
   Dim MarkerTotal As Integer
   Dim stSQL As String


   ''MarkerTotal = 1420
   ''MarkerNumber = 10

   Set dbs = CurrentDb

   For MarkerNumber = 10 To 1420 Step 10

        stSQL = "UPDATE tbl_Changes SET Step" & Trim(Str(MarkerNumber)) & " = TypeTest " & _
               " FROM ( SELECT TypeTest FROM  SELECT_TypeTest  WHERE Order = " & Trim(Str(MarkerNumber))

        ' now that the sql is built, then execute it
        dbs.Execute

   Next