Access 2003：无法让命令按钮查询的结果显示在表单的文本框中

Posted 2023-05-07

【中文标题】Access 2003：无法让命令按钮查询的结果显示在表单的文本框中

【英文标题】：Access 2003: Can't get results of command button query to appear in text box on form

【发布时间】：2012-05-09 19:15:45

【问题描述】：

我有一个与名为“GenderCount”的查询相关联的命令按钮。当我单击按钮时，结果出现在子表中。我需要将结果显示在表单 (Text26) 上的文本框中。这是我的代码——提前感谢您的任何建议：

Private Sub Command21_Click()
On Error GoTo Err_Command21_Click

    Dim stDocName As String

    stDocName = "GenderCount"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Command21_Click:
    Exit Sub

Err_Command21_Click:
    MsgBox Err.Description
    Resume Exit_Command21_Click

End Sub

【问题讨论】：

GenderCount 的结果是什么？它只是一个有价值的记录吗？我们需要有关以下内容的更多信息和清晰度以提供帮助：“当我单击按钮时，结果会显示在子表中。我需要结果”

Gender CountOfGender M 1483 F 1505 2988 结果以表格形式显示；尝试将其粘贴，但这就是粘贴的方式。它是每个值的总和，然后是总计

那么，您需要文本框中的哪些结果？他们都是？放到一个文本框中？

有可能，只是用户体验不太吸引人。请参阅下面的答案，让我知道这是否有效。所以你有带有男性和女性标签的文本字段......

【参考方案1】：

这是你需要的

Private Sub Command21_Click()
On Error GoTo Err_Command21_Click

    me.txtField1 = dlookup("CountOfGender","GenderCount","Gender = M")
    me.txtField1 = dlookup("CountOfGender","GenderCount","Gender = F")

Exit_Command21_Click:
    Exit Sub

Err_Command21_Click:
    MsgBox Err.Description
    Resume Exit_Command21_Click

End Sub

【讨论】：

嗯...我试过了，它卡在“.txtField1 =”上，并显示错误消息“编译错误：找不到方法或数据成员”

我建议的第一件事是阅读 Access VBA... 网络上有大量内容可用于了解您要完成的工作。我就是这么学的！也就是说，您需要在表单中添加两个文本字段并将它们命名为 txtField1 和 txtField2 或其他名称，只要确保名称匹配即可。