将查询中的列名替换为 VBA 参数 MS Access

Question

我正在尝试通过表单 Y 打开表单 X，其中 docid = docid 表单 X 的表有一个名为“abcid”的主键列（匹配的 id）我试图将表单 Y 的文本框的 label “abcid”的 label 名称作为字符串传递“abcid”，其想法是在 VBA OpenForm WHERE 条件中使用 ==> 的形式动态传递列名，但它不能正确执行或打开一个空白表单。 下面的代码：

Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset

Dim checklistformName As String
Dim viewdocformName As String

Dim currentformName As String
currentformName = Screen.ActiveForm.Name
'Debug.Print currentformName

Dim docidcolumnName As String
docidcolumnName = Forms(currentformName).Controls(docid).Caption
Debug.Print docidcolumnName

Set rs1 = CurrentDb.OpenRecordset("SELECT DISTINCT checklistformname FROM CyclesDefinitions WHERE cycledefid = " & Forms(currentformName)![cycledefid])

Do Until rs1.EOF = True
    checklistformName = rs1(0)
    rs1.MoveNext
Loop
rs1.Close
Set rs1 = Nothing

Set rs2 = CurrentDb.OpenRecordset("SELECT DISTINCT viewdocformname FROM CyclesDefinitions WHERE cycledefid = " & Forms(currentformName)![cycledefid])

Do Until rs2.EOF = True
    viewdocformName = rs2(0)
    rs2.MoveNext
Loop
rs2.Close
Set rs2 = Nothing
    
Debug.Print currentformName & " - " & checklistformName & " - " & viewdocformName
DoCmd.OpenForm viewdocformName, , , " & docidcolumnname & " = " & Forms(checklistformName)![docid], acFormReadOnly

Answer 1

好吧，在测试了一个静态预定义的字符串后，我用以下解决方案解决了 OpenForm 的字符串困境：

DoCmd.OpenForm viewdocformName, , , "" & docidcolumnName & " = " & Forms(checklistformName)![docid], acFormReadOnly

它只需要正确的连接，而不是弄乱 forms,frmname 语法，因为我找不到正确的返回值：我将表单上的 label 名称设置为 pkcolname 并在 Z6E3EC7E6A09F6007B48A 中调用它，如下所示：

docidcolumnName = Me.pkcolname.Caption:

现在一切都按预期和要求工作。