Discussion :

[WhitePearl]

Bonjour, je cherches à afficher le résultat d'une recherche dans une zone de liste pour un jeu. Mais je coince au niveau de la 3ème ligne (WHERE.....) avec une erreur de compilation. AC attend un numéro de ligne ou étiquette ou instruction ou fin d'instruction... Et quand j'essaye la recherche, j'ai une erreur de syntaxe.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub txtCherche_Change()
    If Cadre3 = 1 Then
        strRowSource = "SELECT [ID], [Pseudo]" & " From ListeID"
                       " WHERE [ID] like '*" & Me.txtCherche.Text & "*'"
    Else
        strRowSource = "SELECT [ID], [Pseudo]" & " From ListeID"
                       "WHERE [Pseudo] like '*" & Me.txtCherche.Text & "*'"
     End If
 
     Liste12.RowSource = strRowSource
 
End Sub

A la base, j'ai deux colonnes: ID et Pseudo. Pour pouvoir trouver un pseudo ou un id plus rapidement et sous forme de liste (en évitant de passer par ctrl+f et de faire suivant), j'ai opté pour un formulaire avec un textbox pour taper ce que je recherche, avec une liste d'options (le if et else) ainsi qu'une listbox pour afficher les résultats de la recherche.

[tee_grandbois]

Bonsoir,
la seule erreur de syntaxe que je vois c'est un espace manquant avant le WHERE de la ligne 7, pas sur la 3.
Après, c'est possible que dans Me.txtCherche il y ait une apostrophe qui provoque l'erreur. Regarde cette discussion à propos des apostrophes :
https://www.developpez.net/forums/d1...bleme-syntaxe/
Autre chose, .Text n'est pas nécessaire, Me.txtCherche suffit car .Value est la propriété par défaut et c'est en général la valeur d'un champ que l'on utilise.

[WhitePearl]

Bonsoir, merci de la réponse rapide. J'ai corrigé partiellement l'erreur, AC ne me mets plus d'erreur avec la ligne de code par contre, je n'ai aucun retour dans ma listbox de ma recherche avec une valeur qui se trouve dans la base.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub txtCherche_Change()
    If Cadre3 = 1 Then
        strRowSource = "SELECT [ID], [Pseudo] FROM ListeID WHERE [ID] like '*" & Me.txtCherche & "*'"
 
 
        strRowSource = "SELECT [ID], [Pseudo] FROM ListeID WHERE [Pseudo] like '*" & Me.txtCherche & "*'"
     End If
 
     Liste12.RowSource = strRowSource
 
End Sub

[tee_grandbois]

Oui mais là, il n'y a plus le Else

[tee_grandbois]

Euh, désolé, je crois que je t'ai dit une bêtise : il faut que tu remettes .Text car je n'ai pas vu que tu utilisais l'évènement Change

[WhitePearl]

Je viens de le rajouter mais le problème est toujours présent.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub txtCherche_Change()
    If Cadre3 = 1 Then
        strRowSource = "SELECT [ID], [Pseudo] FROM ListeID WHERE [ID] like ('*" & Me.txtCherche & "*')"
 
 
    Else
        strRowSource = "SELECT [ID], [Pseudo] FROM ListeID WHERE [Pseudo] like ('*" & Me.txtCherche & "*')"
 
    End If
 
    Liste12.RowSource = strRowSource
 
End Sub

EDIT: en rajoutant le .Text, problème résolu. Merci pour ton aide précieuse.

[tee_grandbois]

Oui désolé, regarde mon post précédent