Discussion :

[khalidou_82]

Bonjour,

J'ai créé un formulaire de recherche dont j'ai inséré une cadre (cadre3) contenant deux boutons d'option (sélectionnant deux colonnes de recherche) , et une zone de liste contenant une table de données avec laquelle mes critères de recherche devront s'afficher
J'ai aussi créé un module : Global strRowSource As String

J'ai aussi créé une textBox (txtcherche) avec laquelle je saisis le critère de recherche (suivant le bouton option sélectionné)

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 [txtNumOrdre],[txtNumStructure],[txtCode],[txtIntitulé],[txtDate],[txtStructure],[txtMaj]" & "From Normes"
                    "WHERE [txtStructure] like '*" & Me.txtCherche.Text & "*'"
                      
Else  
    strRowSource = " Select [txtNumOrdre],[txtNumStructure],[txtCode],[txtIntitulé],[txtDate],[txtStructure],[txtMaj]" & "From Normes"
              "WHERE [txtCode] like '*" & Me.txtCherche.Text & "*'"
    End If
    
    Liste10.RowSource = strRowSource

une message d'erreur m'indique une erreur de compilation :

Attendu : numéro de ligne ou étiquette ou instruction ou fin d'instruction

Pièce jointe 397566

[marot_r]

Bonjour.

Il manque 2 choses :

1. le caractere de continuation de ligne a la fin de la ligne precedente : _
2. le caractere de concatenation au debut de la ligne en erreur : &

donc c'est un truc du genre :

Code :

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

1
2
MaVariableTexte = "Ceci  est texte " _
 & " sur 2 lignes de code"

En passant quand tu poste du codes, plutot qu'une image, copie le simplement dans ton post et delimite-le en le selectionnant et en appuyant sur le ton # de l'editeur.
Ca va le colorier et cela permet de le copier dans la reponse si on en a besoin.

A+

[khalidou_82]

Bonjour,

Je tiens à vous remercier pour la suite que vous avez donnée à ma requête, j'ai apporté les corrections que vous m'avez suggérées, le message d'erreur est parti, reste que le formulaire de recherche ne fonctionne pas, mon objectif est de saisir un critère de recherche dans un champ de recherche de la zone de liste sélectionne dans le cadre option, ci-joint le fichier

Aussi, serait t'il possible de faire afficher le le code structure du champ dans la zone de liste au lieu de l'index

Merci encore

[tee_grandbois]

Bonsoir,
- il manque un espace entre "FROM Normes" et "WHERE " dans la construction de la requête:

Code :

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

",[Maj]" & "From Normes" _

écris-le comme cela :

Code :

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

",[Maj] From Normes " _

[micniv]

Bonjour,

Voici ci-joint les critères qui fonctionnent .
La clé est d'utiliser les evenements ..._afterUpdate()

CDLT

[khalidou_82]

Bonjour cher développeur

sur mon formulaire de recherche, sur la zone liste dont est généré une table (par Code VBA) est affiché le n°ID (1) au lieu du code structure (txt), sachant que dans ce champ est une liste déroulante
pouvez vous m'aider sur ce problème VBA sans toucher aux tables

Merci d'avance