Discussion :

[thoruiz]

Bonjour,
Je souhaite générer du code sql pour modifier la source d'un formulaire selon le choix dans une liste déroulante. Le code sql alimente la variable strRowSource
J'ai parcouru le forum mais je n'ai pas trouvé l'erreur dans mon code VBA;

Code :

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

1
2
3
Private Sub filtrer_fiches_Change()
If Cadre21 = 1 Then
strRowSource = "SELECT [num],[type_intervention],[ref_personnel_1],[prise_en_charge],[Nom],[Prenom],[ddn],[facturation],[atravail],[numsecu],[comdom],[adresse]" & "FROM t_main"&"WHERE [Nom] like '*" & Me.Filtrer_fiches.Text & "*'"

La clause WHERE ne fonctionne pas.
Merci pour votre aide

[tee_grandbois]

bonsoir thoruiz,
la concaténation avec le signe & ne met pas automatiquement les espaces. Ecrire ceci :

Code :

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

...[adresse]" & "FROM t_main"&"WHERE [Nom] like '*"...

correspond à cela dans la variable:

Code :

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

...[adresse]FROM t_mainWHERE [Nom] like '*"...

Comme il n' y a pas d'espace entre le nom de la table et la clause WHERE, l'instruction est fausse et n'est donc pas chargée.

Il est préférable de concaténer seulement lorsqu'il y a une variable à insérer :

Code :

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

strRowSource = "SELECT [num],[type_intervention],[ref_personnel_1],[prise_en_charge],[Nom],[Prenom],[ddn],[facturation],[atravail],[numsecu],[comdom],[adresse] FROM t_main  WHERE [Nom] like '*" & Me.Filtrer_fiches & "*'"

De plus, il faut préférer l'évènement Click ou AfterUpdate plutôt que Change qui s'exécute à chaque saisie d'un caractère dans la liste déroulante et de ce fait utiliser la propriété (par défaut) .Value plutôt que .Text

[thoruiz]

Merci encore pour votre réponse rapide.
Effectivement je comprend mon erreur sur la concaténation qui modifie donc le nom de la table.
J'ai essayé le code avec value par défaut mais la clause where ne s’exécutait pas.
Par contre avec la propriété .Text affectée à mon controle Filtrer_fiche , WHERE filtre parfaitement les champs.

Cordialement. et encore merci!
M. Ruiz

NB Sauf remarque de votre part je considérerait cette discussion résolue.

[tee_grandbois]

bonsoir,

J'ai essayé le code avec value par défaut mais la clause where ne s’exécutait pas.

je le répète, l'évènement Change exécute le code à chaque fois qu'un caractère est saisi et de ce fait utilise la propriété Text et non pas Value.
Mais il est préférable d'utiliser l'évènement Click ou AfterUpdate plus performant car le code sera exécuté qu'une seule fois et, dans ce cas, c'est la propriété Value qui sera utilisée.

NB Sauf remarque de votre part je considérerait cette discussion résolue.

il faut appuyer sur le bouton prévu à cet effet