Discussion :

[Dom25]

Bonjour ,

Je voudrais faire une recherche dans un formulaire.
J'ai une liste déroulante dans laquelle je sélectionne une valeur.
J'ai une liste de résultat basée sur une requête.
Je filtre bien sur un champ mais peut on faire un filtre sur (par exemple du champ1 au champ10)?

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
 
Private Sub RefreshQuery()
   Dim SQL As String
   Dim SQL2 As String
   Dim SQL3 As String
   Dim SQLWhere  As String
 
 
 SQL = "SELECT CodePoto, NomArret, Ligne1, Ligne2, Ligne3 From RInfonouvpoto Where TNouvpoto!CodePoto <> 0"
 
If Not Me.chkLigne1 Then
   SQL = SQL & "And RInfonouvpoto!Ligne1 = '" & Me.cmbRechLigne & "' "
   SQL2 = SQL2 & " And RInfonouvpoto!Ligne2  = '" & Me.cmbRechLigne & "'"
   SQL3 = SQL3 & " And RInfonouvpoto!Ligne3  = '" & Me.cmbRechLigne & "'"
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - InStr(SQL2, "Where ") - InStr(SQL3, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
   Me.lstResults.RowSource = SQL
   Me.lstResults.Requery
 
End Sub

Cordialement

[marot_r]

Bonjour.

Il faut répéter ta condition colonne par colonne.
On ne peut pas faire un truc du genre Where [Champ1] and [Champ2] and [Champ3] = 25.
Il faut faire Where [Champ1]=25 and [Champ2]=25 and [Champ3]=25.

A+

[Dom25]

Bonjour.

Il faut répéter ta condition colonne par colonne.
On ne peut pas faire un truc du genre Where [Champ1] and [Champ2] and [Champ3] = 25.
Il faut faire Where [Champ1]=25 and [Champ2]=25 and [Champ3]=25.

A+

Merci ,
Je l'avais sous les yeux mais je ne le voyais pas...

[Dom25]

Bonjour,

Est il possible de simplifier la saisie des champs.
En faisant le tri de ce champ à ce champ?
du style
Where du [Champ1] au[Champ3]=25 ?

Merci

[marot_r]

Bonjour.

Hélas non, il faut y aller champ par champ.

Access n'est pas dans Excel et il travaille mal horizontalement.
Évidement tu peux un peu te simplifier la vie en faisant du code qui va générer ton SQL mais au final on va travailler champ par champ.

Ici un exemple (ultra simpliste) de code qui automatise la création de sql :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
dim sql as string
dim listeChamp() as variant:listeChamp=array("Champ1", "Chanp2", "Champ3")
 
dim i as long:for i=lbound(listeChamp) to ubound(listeChamp)
  if sql<>"" then
     sql=sql & " and "
  end if
 
  sql=sql & "[" & listeChamp(i) & "]=25"
 
next i
 
debug.print sql

A+

[Dom25]

Bonjour.

Hélas non, il faut y aller champ par champ.

Access n'est pas dans Excel et il travaille mal horizontalement.
Évidement tu peux un peu te simplifier la vie en faisant du code qui va générer ton SQL mais au final on va travailler champ par champ.

Ici un exemple (ultra simpliste) de code qui automatise la création de sql :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
dim sql as string
 
dim listeChamp() as variant:listeChamp=array("Champ1", "Chanp2", "Champ3")
 
dim i as long:for i=lbound(listeChamp) to ubound(listeChamp)
  if sql<>"" then
     sql=sql & " and "
  end if
 
  sql=sql & "[" & listeChamp(i) & "]=25"
 
next i
 
debug.print sql

A+

Merci en attendant .
Je crois avoir compris
Mais tu sais avec les amateurs ...

Cordialement

[marot_r]

Attention, mon code est vraiment minimaliste.

Il suppose notamment que tous les champs sont de type numérique.

Si tu veux quelque chose de plus subtile, c'est plus complexe.
Note aussi qu'il y a plusieurs tutoriel sur les formulaires de recherche ici :
https://access.developpez.com/cours/...#formrecherche

A+

[Dom25]

Oui je connais ces tutos et ils m'ont permis de développer un outil plutôt performant pour le béotien que je suis.
Mais je but sur ce type de recherche depuis très longtemps et j'ai eu beau fouiller le forum dans tous les sens je n'y ai pas trouvé la réponse .
Pour l'instant

[Dom25]

Attention, mon code est vraiment minimaliste.

Il suppose notamment que tous les champs sont de type numérique.

Si tu veux quelque chose de plus subtile, c'est plus complexe.
Note aussi qu'il y a plusieurs tutoriel sur les formulaires de recherche ici :
https://access.developpez.com/cours/...#formrecherche

A+

Cela ne fonctionne pas les champs sont de type texte...

Dommage

[Dom25]

Quand je test de manière à filtrer collonne par collone via ce code cela ne filtre pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 SQL = "SELECT CodePoto, NomArret, Ligne1, Ligne2, Ligne3, Ligne4 From RInfonouvpoto Where TNouvpoto!CodePoto <> 0"
 
If Not Me.chkLigne1 Then
   SQL = SQL & "And RInfonouvpoto!Ligne1  Or RInfonouvpoto!Ligne2 Or RInfonouvpoto!Ligne3  Or RInfonouvpoto!Ligne4= '" & Me.cmbRechLigne & "'"
 
End If
 
 
  SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"

Je n'arrive pas à implanter les collones de la bonne manière.
Help!

[tee_grandbois]

Bonsoir,
il faut mettre la valeur de la liste déroulante cmbRechLigne à chaque ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
SQL = "SELECT CodePoto, NomArret, Ligne1, Ligne2, Ligne3, Ligne4 From RInfonouvpoto Where TNouvpoto!CodePoto <> 0"
 
If Not Me.chkLigne1 Then
   SQL = SQL & " And (RInfonouvpoto!Ligne1= '" & Me.cmbRechLigne & _
        "' Or RInfonouvpoto!Ligne2= '" & Me.cmbRechLigne & _
	"' Or RInfonouvpoto!Ligne3= '" & Me.cmbRechLigne & _
	"' Or RInfonouvpoto!Ligne4= '" & Me.cmbRechLigne & "')"
End If
 
  SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"

[Dom25]

Effectivement c'est super je croyais avoir testé ce mode d'écriture mais visiblement ne maitrisant pas la synthax j'ai du me trompé lors de mes essais.
Merci beaucoup