Discussion :

[ionnette]

Bonjour,

j'ai créé une base ACCESS.
Avec un code en VB, je peux afficher certaines informations sur une entreprise en particulier, via un formulaire, en entrant dans une zone de texte le SIREN de l'entreprise en question.

Ca fonctionne, je suis très contente.
Mais ma base est en production maintenant, et on m'a fait une demande à laquelle je ne peux pas répondre seule.

L'idéal, pour les utilisateurs, serait d'entrer une liste de SIREN dans la zone de texte, et d'obtenir en affichage les données correspondant à l'ENSEMBLE des SIREN inscrits.

Il n'est pas envisageable de créer autant de zones de texte que de SIREN à rechercher (le but étant de faire gagner du temps aux utilisateurs, un copié-collé de la liste entière serait idéale).

Mais ni les " ; " ni les "OU", ni rien ne fonctionne tout seul.
Il doit donc falloir rajouter quelque chose au code pour que le formulaire comprenne que je cherche des données différentes...

Quelqu'un saurait-il faire ça ?

Merci d'avance.

[Invité]

Bonjour

Je pense que tu as une requête qui récupère tes informations par la zone de texte, si c'est le cas, tu dois avoir un =.

remplace le par LIKE et mets des * autour de la chaine.

Starec

[ionnette]

Voici ma requête :

strSql = "SELECT Comptes_avec_CG.Numéro, Comptes_avec_CG.NumACTEUR, Comptes_avec_CG.SIREN, Comptes_avec_CG.RAISONSOCIALE, Comptes_avec_CG.CG FROM Comptes_avec_CG WHERE Comptes_avec_CG.SIREN LIKE '*" & Me.ActeurRech1 & "*' ORDER BY Comptes_avec_CG.NumACTEUR;"

Il y a déjà un LIKE et des " * ".
Mais si je mets 2 SIREN dans ma zone de texte, il cherche dans ma BDD un seul champs avec les 2 SIREN, ce qui n'existe pas.
Comment faire pour qu'il comprennent que je cherche 2 ou n SIREN ?

[_MattU_]

Bonjour,

Je pense que le mieux est de découper ce qui se trouve dans ta textbox (ce que l'utilissateur aura entré) en fonction des espaces par exemple et faire une boucle en rajoutant à ta requête SQL un opérateur OR, tant que la chaine de caractère qui se trouve dans ta textbox n'est pas terminée

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
Dim chaine as string
Dim longueur as integer
Dim tempo as string
 
chaine = tonchamp.value & " "
longueur = InStr(1, chaine, " ")
tempo = Left(chaine, longueur)
chaine = Right(chaine, (len(chaine)-longueur))
strSql = "SELECT Comptes_avec_CG.Numéro, Comptes_avec_CG.NumACTEUR, Comptes_avec_CG.SIREN, Comptes_avec_CG.RAISONSOCIALE, Comptes_avec_CG.CG FROM Comptes_avec_CG WHERE Comptes_avec_CG.SIREN LIKE '*" & tempo & "*'"
 
While chaine <> empty
longueur = InStr(1, chaine, " ")
tempo = Left(chaine, longueur)
chaine = Right(chaine, (len(chaine)-longueur))
strSql = strSql & " OR Comptes_avec_CG.SIREN LIKE '*" & tempo & "*'"
Wend
strSql = strSql & " ORDER BY Comptes_avec_CG.NumACTEUR;"

y'aura surement quelques petits changements a faire mais j'vois bien un truc dans le genre

[Invité]

Bonjour

j'avais pas vu.

Le principe que te donnes _MattU_ est de créer dynamiquement ta clause WHERE pour lancer la recherche.

Starec

[ionnette]

Etant donné mes connaissances en code, j'avoue que là j'essaie de le comprendre pour le faire marcher.
(parce que ça ne marche pas tel quel).

En tout cas merci. Je vais me pencher là-dessus et je reviens dès que je saurai de quoi il retourne !

[ionnette]

Est-ce que je dois remplacer "chaine" et "longueur" par des données se trouvant dans ma base ?

[_MattU_]

Non je ne pense pas qu'il soit nécessaire de changer les variables que j'ai mis dans le code puisque ce sont des variables qui servent uniquement à construire ta requête.

Je peux te demander de mettre une msgbox montrant ta strSql tout à la fin et de poster un apercu écran de cette msgbox ?! cela me permettra surement de comprendre ou sont les problèmes dans la construction

Tu rajoutes juste à la fin du code que je t'ai donné :

Code :

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

msgbox strSql

et tu essayes de lancer la recherche avec 4 ou 5 numéros SIREN s'il te plait

[ionnette]

J'ai mis le doc en pièce jointe.

Pourtant ça a l'air de marcher, ça montre exactement le requête que je voudrais !

[_MattU_]

Les numéro siren sont déclaré en tant que numérique dans ta table ou en tant que texte?!

De plus les like sont ils vraiment utiles?!

[ionnette]

en tant que texte

Pour les LIKE je ne sais pas, c'est comme ça qu'on m'a appris à le faire, alors c'est comme ça que je le fais...

En fait LIKE permet de ne mettre qu'une partie de recherche c'est ça ?
Dans ce cas, non, ce n'est pas nécessaire, les utilisateurs n'entreront que des numéros SIREN complets.

[_MattU_]

Voila
Ca ne changera peu etre rien mais essayes de remplacer les deux like qui se trouvent dans mon code par des = (ne pas oublier d'enlever les * ^^)

Et comment envoi tu la requete?! tu peux me montrer la suite de ton code s'il te plait?!

[ionnette]

CA MARCHE ! MAGNIFIQUE !
TU ES FABULEUX !

Par contre je ne comprend pas en quoi les LIKE ont pu empecher le bon fonctionnement...

Pour info, la fin de mon code c'est :
End Select



Me.Liste130.RowSource = strSql ' affecte sql a lst_Resultat
Me.Liste130.Requery ' recalcule la liste

End Sub

[_MattU_]

Les like recherchent quelque chose après la valeur qu'on leur donne, ils ne sont surement pas fait pour des valeurs exactes!

En tout cas, content que ca marche !
Bonne continuation