点击下载此附件

Private Sub cmdQuery_Click()   '数据模糊查询
Dim strWhere As String          '声明条件字符串变量
strWhere = Nz(txtWhere)        'Nz作用是 为空值时返回零长度字符串，避免出错
 '只有当条件输入框不为空时，才生成查询条件Where子句，将多个字段组合为一个字段，然后使用Like运算符进行模糊匹配
If strWhere <> "" Then strWhere = " Where 参数序号 & 机型代码 & 零件名称 & 零件数量 like '*" & strWhere & "*'"
Me.RecordSource = "select * from qryJxljcsb " & strWhere   '重新设置本窗体记录源，以显示查询结果
 Me.txtWhere.SetFocus
End Sub