女士訪問形式 - 如何使用搜索按鈕完全過濾文本

Question

`Option Compare Database 

Option Explicit 
Dim argcount As Integer 
Dim mysql As String, msg As String, mysource As String, mycriteria As String,     mysource1 As String, mysql1 As String 

Private Sub AddtoWhere(FieldValue As Variant, FieldName As String, mycriteria As String, argcount As Integer) 

' Create criteria for WHERE clause. 
If FieldValue <> "" Then 
    ' Add "and" if other criterion exists. 
    If argcount > 0 Then 
     mycriteria = mycriteria & " and " 
    End If 

    ' Append criterion to existing criteria. 
    ' Enclose FieldValue and asterisk in quotation marks. 
    mycriteria = (mycriteria & FieldName & " Like " & Chr(34) & FieldValue & Chr(42) & Chr(34)) 

    ' Increase argument count. 
    argcount = argcount + 1 
End If 

End Sub 

Private Sub Search_Click() 

Dim Search As String 

here: 
argcount = 0 

' Initialize SELECT statement. 
mysql = "SELECT * FROM tbltab WHERE " 
mycriteria = "" 
mysql1 = "SELECT * FROM tblTemp WHERE " 
    mycriteria = "" 
' Use values entered in text boxes in form header to create criteria for   WHERE clause. 

AddtoWhere cboProduct, "ABC1", mycriteria, argcount 
AddtoWhere cboSource, "ABC2", mycriteria, argcount 
AddtoWhere cboPType, "ABC3", mycriteria, argcount 

'If no criterion specifed, stop the search. 
'you'll be glad you did if there are thousands of Persons maybe. 
If mycriteria = "" Then 
mycriteria = True 

End If 


' Create SELECT statement. 

mysource = mysql & mycriteria 

mysource1 = mysql1 & mycriteria 

Dim strval As String 

    'set the recordsource of the subform to the resultset 

Me!sfrmCap.Form.RecordSource = mysource 

Me!sfrmCapTemp.Form.RecordSource = mysource1 

Exit_cmdsearch_Click: 
Exit Sub 
Err_cmdsearch_Click: 

DoCmd.Hourglass False 

DoCmd.Echo True 

MsgBox Err.Description & " Person Search Command Cancelled", vbInformation,  "Person Search Command Cancelled" 

Resume Exit_cmdsearch_Click 

End Sub 

`我有一個窗體中有2個子窗體。我有一個搜索按鈕，當點擊搜索記錄時使用組合框的值，但在一個組合框中，它顯示的只是相關的記錄，而不是完整的搜索。

任何人都可以幫助我。

謝謝。

Answer 1

在AddtoWhere()您彙編WHERE子句，增加新的條件是這樣的：

mycriteria = (mycriteria & FieldName & " Like " & Chr(34) & FieldValue & Chr(42) & Chr(34)) 

如果你不確定這是什麼實際上做了，你可以把上線斷點（雙擊在保證金在行的前面）並且在執行程序時看到自己。

如果你這樣做，你會發現，像這樣的新條件將添加：

Source Like "Pre 2017 Source1*" 

的*（在你的代碼Chr(42)編碼）作爲任何字符匹配一個小丑，所以這條件返回以Pre 2017 Source1開頭的所有內容 - 正如您在搜索結果中看到的一樣。

如果您不想要這種行爲，只需從SQL代碼中刪除星號，只返回完全匹配。

順便說一句：你應該改進的代碼行是這樣的：

mycriteria = mycriteria & FieldName & " LIKE '" & Replace(FieldValue, "'", "''") & "'" 

這消除了Chr()不必要的使用，因爲它是推薦的單引號的SQL字符串分隔符代替雙引號，並使代碼處理包含引號的值，否則會導致運行時錯誤。