如何在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