用组合框[产品ID]让用户筛选,例如
Private Sub 产品ID_Change()
Dim A
A = 产品ID.Text
产品ID.RowSource = "SELECT 产品ID, 名称 & 规格 & 材质 as 信息 FROM 表 WHERE 名称 & 规格 & 材质 LIKE '*" & A & "*' ORDER BY 名称 & 规格 & 材质"
产品ID.Dropdown
End Sub
Private Sub Form_Current()
产品ID.RowSource = "SELECT 产品ID, 名称 & 规格 & 材质 as 信息 FROM 表 "
End Sub