vba access recherche multicritere

**alsimbad** · 09/05/2007, 06h00

Bonjour tout le monde
je ne connais pas beaucoup acces, et je deloppe généralement sous excel.
j'ai voulu adapter un tutoriel écris par caféine
http://cafeine.developpez.com/access...echerchemulti/
et ça ne marche pas. es ce quelquen pourrait me donner un petit coup de main.

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
Private Sub ACTUALISER()
Dim SQL As String
SQL = "SELECT N°, TYPE, TECHNOLOGIE, Ømm, RAYON, SERIE, FOURNISSEUR, REFERENCE, PRIX UNITAIRE HT, QUANTITE FROM OUTILS Where OUTILS!N° <> 0 "
If Me.Cochertype Then
    SQL = SQL & "And OUTILS!TYPE = '" & VARIABLETYPE & "' "
End If
If Me.CocherØ Then
    SQL = SQL & "And OUTILS!Ømm like '" & VARIABLEØ & "' "
End If
If Me.Cocherfournisseur Then
    SQL = SQL & "And OUTILS!FOURNISSEUR = '" & VARIABLEFOURNISSEUR &  "
End If
SQL = SQL & ";"
Me.RESULTATS.RowSource = SQL 'cette ligne je pense n'est pas prise en compte
Me.RESULTATS.Requery
End Sub

en fait le code se déroule normalement, et la listebox devrait afficher la liste filtrée, mais elle reste vierge. et je ne trouve pas. je pense que ça tient a la formulation de SQL, ouimézou?

merci d'avance de me dire ou je me plante, ou du moins ou es l'erreur

**dadavyvy** · 09/05/2007, 06h16

Bonjour,

il te faut des crochets [] autour de chaque nom de champ "bizarre", le mieux c'est d'en mettre partout :

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
Private Sub ACTUALISER()
Dim SQL As String
SQL = "SELECT [N°], [TYPE], [TECHNOLOGIE], [Ømm], [RAYON], [SERIE], [FOURNISSEUR], [REFERENCE], [PRIX UNITAIRE HT], [QUANTITE] FROM [OUTILS] Where [OUTILS]![N°] <> 0 "
If Me.Cochertype Then
    SQL = SQL & "And [OUTILS]![TYPE] = '" & VARIABLETYPE & "' "
End If
If Me.CocherØ Then
    SQL = SQL & "And [OUTILS]![Ømm] like '" & VARIABLEØ & "' "
End If
If Me.Cocherfournisseur Then
    SQL = SQL & "And [OUTILS]![FOURNISSEUR] = '" & _
VARIABLEFOURNISSEUR &  " '<- là il doit manquer un guillemet
End If
SQL = SQL & ";"
Me.RESULTATS.RowSource = SQL 'cette ligne je pense n'est pas prise en compte
Me.RESULTATS.Requery
End Sub

Il faut généralement éviter d'utiliser des noms de variables que VBA utilise déjà comme "SQL".