如何在 vba 访问中将变量连接到对象？答案

【问题标题】：How do I concatenate variable to object in vba access?如何在 vba 访问中将变量连接到对象？
【发布时间】：2018-10-09 17:29:35
【问题描述】：

我正在尝试创建一个函数，该函数允许我传入一个添加到对象的变量。我希望能够将一行值移动到表单中的下一行。我想添加一个变量，这样我就不必为每一行重复相同的代码。

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

【问题讨论】：

标签： ms-access vba concatenation

【解决方案1】：

我认为您正在寻找 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

【讨论】：

谢谢！