如何在access的VBA中？
在组合框的change事件里写类似如下代码：
以下代码的意思是：combo是显示供应商的一个组合框，通过选择供应商，在Text4里面显示该供应商的总订单数。
Private Sub Combo0_Change()
Dim 供应商ID
供应商ID = Combo0.Value
Dim sql As String, rs As Recordset
sql = "select count(*) as cnt from [采购订单] where [供应商 ID]=" & 供应商ID '查询的SQL语句。
Set rs = CurrentDb.OpenRecordset(sql)
Text4.SetFocus
Text4.Text = rs.Fields(0)
End Sub
