Как объединить переменную с объектом в доступе VBA? - PullRequest
0 голосов
/ 09 октября 2018

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

Function UpArrow(x As Variant, y As Variant)
  Dim TextContent As String
  cboOperation +x+ .Value = TextContent
  cboOperation +x+ .Value = cboOperation +y+ .Value
  cboOperation +y+ .Value = TextContent

1 Ответ

0 голосов
/ 09 октября 2018

Я думаю, вы ищете коллекцию Controls.

Function UpArrow(x As Variant, y As Variant)
    Dim TextContent As String
    TextContent = Controls("cboOperation" & x).value
    Controls("cboOperation" & x).value = Controls("cboOperation" & y).value
    Controls("cboOperation" & y).value = TextContent
End Function
...