code sql pour implémenter une variable

Version imprimable

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:

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

24/11/2018, 23h56
tee_grandbois

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

Code:

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

correspond à cela dans la variable:

Code:

...[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:

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
25/11/2018, 00h10
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.
25/11/2018, 17h52
tee_grandbois

bonsoir,

Citation:

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.

Citation:

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

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