1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Private Sub cmd_recherche_Click()
Dim strTable As String, strField As String, strField2 As String, strField3 As String, strCriteria As String, strCriteria2 As String, strCriteria3 As String, strSql As String
Dim Criter As Variant
strTable = "T_Adherents"
strField = "Adh_nom"
strField2 = "Adh_Ville"
strField3 = "Adh_CodePostal"
' compose le critere de recherche
strCriteria = strTable & "." & strField & " Like ""*" & Me.txt_CritereNom & "*"""
strCriteria2 = strTable & "." & strField2 & " Like ""*" & Me.txt_CritereVille & "*"""
strCriteria3 = strTable & "." & strField3 & " Like """ & Me.txt_CritereCP & "*"""
' construit la requête sql
strSql = "SELECT DISTINCTROW " & strTable & ".*"
strSql = strSql & " FROM " & strTable
strSql = strSql & " WHERE ((" & strCriteria & ")) AND ((" & strCriteria2 & ")) AND ((" & strCriteria3 & "));"
Me.SF_AdherentsRch.Form.RecordSource = strSql
Me.SF_AdherentsRch.Form.Requery
End Sub |
Partager