将VBA代码转换为窗体TextBox的控制源

Question

我认为这是一个简单的答案，但我不擅长SQL语句和子查询(如果我需要的话(。我有一个按钮，它从连续形式的记录(me.ProdNum(中获取一个值，并获取一个记录集。它在MsgBox中显示该记录集的结果(为了简单起见，删除了代码(。

目标：我想报告"；totalsupp.记录集"；在文本框中的每条记录上。

我想我需要一个SELECT COUNT(子查询(，但我无法获得正确的语法。[PNUM]和ProdNum是字符串

Private Sub MultSupp_Click()
Dim db As DAO.Database
Dim totalsupp As DAO.Recordset
Set db = CurrentDb
Set totalsupp = db.OpenRecordset("SELECT * FROM qryKANBAN_Suppliers WHERE [PNUM] = '" & Me.ProdNum & "'")
Debug.Print totalsupp.RecordCount
Set totalsup = Nothing
End Sub

Answer 1

感谢评论中关于使用DCount的帮助。我对所有的双引号和单引号都很困惑。。。

=DCount("*","qryKANBAN_Suppliers","PNUM='" & [ProdNum] & "'")