如何在访问的文本框中获得查询结果

Question

我一直在处理一个包含2个组合字段和一个文本字段的表单。我希望文本框显示查询的结果。查询从两个组合框中获取值。我能够形成查询但无法在文本框中获取其值。该查询生成一个值（1行，1列）。请帮助我或指出我能找到解决方案的任何好资源。

Answer 1

文本框没有像组合框一样的记录源，你可以将它们设置为等于函数的结果，如下所示：

Public Function CountChildData()

Dim rs As Recordset

    Set rs = CurrentDb.OpenRecordset("SELECT Count(childid) AS Result FROM ChildData WHERE formid = " & Me.cmbFormid & "")

    CountChildData = rs!Result

    rs.close
    set rs = nothing

End Function

然后，您可以将文本框的控制源属性设置为= CountChildData（）