谁能告诉我这个搜索功能是如何做的？

鱼类　发表于：2014-01-12 14:28:37 　

下图是文件的一个窗体，谁能告诉我上面的这个搜索是如何做的？除了写搜索按钮click事件的代码代码还有什么？

煮江品茶发表于：2014-01-12 14:59:06

可以将Click事件中的代码写入子程序，然后在编码、名称、拼音的更新后事件中调用该子程序。

殷小宝发表于：2014-01-12 16:29:05

文件不能解压

殷小宝发表于：2014-01-12 16:48:53

Private Sub 搜索_Click()
On Error GoTo Err_cmd搜索_Click

Dim strWhere As String
strWhere = "true"

If Not IsNull(Me.物料编号) Then
strWhere = strWhere & " AND ([物料编号] like '*" & Me.物料编号 & "*') "

End If

If Not IsNull(Me.物料名称) Then
strWhere = strWhere & " AND ([物料名称] like '*" & Me.物料名称 & "*') "

End If

If Not IsNull(Me.物料拼音) Then
strWhere = strWhere & " AND ([物料名称] like '" & Me.物料拼音 & "*') "

End If

Me.subform.Form.Filter = strWhere
     Me.subform.Form.FilterOn = True
     Exit_cmd搜索_Click:
         Exit Sub

Err_cmd搜索_Click:
    MsgBox Err.Description
    Resume Exit_cmd搜索_Click
   End Sub

沈军发表于：2014-01-12 21:40:05

这里有个例子，你可以看看

总记录：4篇页次：1/1 9 1 :

Access交流中心