ms-access - VBA 使用变量表名设置记录集

Question

我正在尝试从一个被调用的函数 Access 表单的记录集克隆，我们使用该函数基本上将记录集中的数据转储到我们正在创建的表中。我试图从 Forms 集合中调用表单，但我不知道如何将表单名称(保存在传递给函数的字符串中)插入 set 语句的中间。这是它的基本外观:

Public Function EditFormData(frmName As String)
  Dim strSQL As String
  Dim strTableName As String
  Dim rst As DAO.Recordset
  Dim i As Integer

  Set rst = Forms![[[frmName]]].RecordsetClone

我在这里有点不知所措。对于这个特定的函数，我可以将一个记录集传递给该函数，但我在另一个地方也有类似的困境，在那里传递一个记录集不是一种选择。想法？

Answer 1

尝试这个:

Set rst = Forms(frmName).RecordsetClone