在組合框的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