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 Rechercher_Click()
Dim strTable As String, strField As String, strCriteria As String, strSql As String
Dim Criter As Variant
strTable = Me.cboEmpriseGeo ' recupère le nom de l'emprise
strField = Me.cboTheme ' recupère le theme
' compose le critere de recherche
strCriteria = strTable & "." & strField & " Like """ & Me.txt_MotCle & """"
' construit la requête sql
strSql = "SELECT" & (document.Titre, document.Auteur, document.Themes; document.[Emprise geographique], document.[Mots clés], document.Année, document.DISPONIBILITE )& ".*"
strSql = strSql & " FROM " & Document
strSql = strSql & " WHERE((" & ((Document.Themes) = [Formulaires]![Recherche]![cboTheme]) And ((Document.[Emprise geographique]) = [Formulaires]![Recherche]![cboEmpriseGeo]) & "));"
'WHERE (((document.Themes)=[Formulaires]![Recherche]![cboTheme]) AND ((document.[Emprise geographique])=[Formulaires]![Recherche]![cboEmpriseGeo]));
Me.Lst_resultat.RowSource = strSql ' affecte sql a lst_Resultat
Me.Lst_resultat.Requery ' recalcule la liste
End Sub |
Partager