Bonjour à tous,
Je me permet de venir vers vous pour vous poser un problème^^^
J'ai mis en place un formulaire de recherche multicritère grâce au super tuto de votre site (http://cafeine.developpez.com/access...echerchemulti/)
J'aimerai savoir s'il est possible de surligner un enregistrement de la liste de résultat en fonction d'un critère d'une de mes tables (exemples = enregistrements pour lesquels le champs X = Oui)
Je n'ai aucune idée de la faisabilité de la chose c'est pourquoi je vous pose la question au cas où.
Je pense que si code il y a il serait dans la partie Query du formulaire:
Merci d'avance,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 Private Sub RefreshQuery() Dim SQL As String Dim SQLWhere As String SQL = "SELECT CodMedia, Titre, Auteur, Famille, Type FROM Medias Where Medias!CodMedia <> 0 " If Me.chkAuteur Then SQL = SQL & "And Medias!Auteur like '*" & Me.txtRechAuteur & "*' " End If If Me.chkFamille Then SQL = SQL & "And Medias!Famille = '" & Me.cmbRechFamille & "' " End If If Me.chkResume Then SQL = SQL & "And Medias!Résumé like '*" & Me.txtRechResume & "*' " End If If Me.chkTitre Then SQL = SQL & "And Medias!Titre like '*" & Me.txtRechTitre & "*' " End If If Me.chkType Then SQL = SQL & "And Medias!Type = '" & Me.cmbRechType & "' " End If SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1)) SQL = SQL & ";" Me.lblStats.Caption = DCount("*", "Medias", SQLWhere) & " / " & DCount("*", "Medias") Me.lstResults.RowSource = SQL Me.lstResults.Requery End Sub
Partager