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

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

然后,您可以将文本框的Control Source属性设置为= CountChildData()