Discussion :

[illight]

Bonjour,

J'ai un petit soucis avec un Access et la créatino d'un formulaire, enfin plutot la création qu'une requete d'un formulaire.
J'espère que cette question n'a pas été posé mais j'ai fouillé et j'ai aps vu donc je suis désolé si ce problème a déja été posé

Voila..Je voudrais créer une requete SQL permettant de faire une recherche dans une table, et dont les résultats iraient dans une zone de liste, et odnt le criète de recherche est présent dans une zone de texte.

Pour être plus précis, je vais vous montrer une partie de code :

Code :

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

rs.open "SELECT nom,prenom FROM Table WHERE nom = ' " & ztNom.value & " ' "

Donc le ztNom est la zone de texte sur lequel je veux créer le filtre et le nom et prenom est ce que je veux faire apparaitre dans ma zone de liste qui comprend donc 2 colonnes

Jusque la il n'y a pas trop de problème

Donc si je rentre un nom connu et "strict" si je puis dire en faisant ça :

Code :

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

1
2
3
4
Do until rs.EOF
MsgBox rs![nom] & "  " & rs ![prenom]
rs.MoveNext
Loop

(la boucle est en fait la, si jamais nous avons plusieurs réponses a mettre, ce que je voudrais faire au final en fait )

Le filtre a bien marché et se présente bien dans un message avec le nom et le prénom

Si je veux le faire apparaitre dans ma zone de liste (qu'on appelera zlListe) j'ai essayé, en lisant un peu votre FAQ de faire ça :

Code :

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

zlListe!list.RowSource = rs![nom] & ";" & rs![prenom]

Mais heu ça ne marche pas donc je voudrais déja savoir comment faire pour afficher le résultat d'une requete SQL dans une zone de liste qui a plusieurs colonnes

Par ailleurs, je voulais en fait au départ pouvoir faire une recherche plus complète en faisant de telle sorte que l'utilisateur ne sait par exemple que la première lettre du nom, et donc par exemple au lieu de mettre le nom entier il ne met que sa première lettre, en utilisant le caractère * ou ?. Or en SQL (en tout cas ce qu ej'en sais) il faut soit utiliser le signe % pour une chaine de caractère soit le signe - pour un seul caractère. Or quand j'ai essayé de le faire apparaitre tout d'abord dans le msgbox (puisque la zone de liste j'y arrive pas ), rien ne se passe, pas d'erreur mais rien ne s'affiche et je n'ai pas de msgbox.
Donc en voyant votre FAQ encore une fois, j'ai essayé avec les caractère normaux de remplacement, cad l'* ou le ?. Mais ça ne marche pas non plus

Hum heu voila J'espère avoir été assez clair dans mes explications de mon petit problème

Je vous remercie par avance de toute l'aide que vous m'apporterez

[cafeine]

Hello,
ton code

Code :

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

rs.open "SELECT nom,prenom FROM Table WHERE nom = ' " & ztNom.value & " ' "

tu dois supprimmer les espaces

Code :

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

rs.open "SELECT nom,prenom FROM Table WHERE nom = '" & ztNom.value & "'"

Ensuite, pourquoi ne pas attribuer à une zone de liste ton SQL ? avec la propriété RecordSource

[illight]

Bonjour,

tout d'abord merci de m'avoir répondu aussi vite

En fait je savais pas qu'on pouvait le faire maintenant je sais mais tu fais comment ?


Mais au final je suis passé par une autre méthode en fait j'ai utilisé le code que vous avez fait dans votre base exemple multicritère pour ma requete SQL parce que j'ai remarqué qu'en fait c'était presque la meme chose a savoir une réponse a une requete que vous placez dans une zone de liste

Mais quand je le fais sur le mien ça marche pas

Voila ce que j'ai écrit(en fait j'ai fait du copier coller en modifiant ce qui devait etre modifié le script dans votre base exemple) :

Code :

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

1
2
3
4
5
6
7
8
SQL = "SELECT nom,prenom FROM Table WHERE nom = '" & ztNom.value & "'"
...
SQLWhere = Trim(Right(SQL,Len(SQL) - Instr(SQL, "Where ") - Len("Where ") +1 ))
SQL = SQL & ";"
Me.lblStats.Caption = DCount ("*", "Table", SQLWhere) & "/" & Dcount("*","Medias")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
End sub

Alros j'ai 2 questions :
- C'est quoi le 'Me' qu'il y a devant ce qui représente la zone de liste ?
- Quand j'éxécute cette commande, dans la zone de liste apparait ma commande SQL et non le résultat de la commande..

En fait je passait par le recordSet avant parce que c'est comme ça que j'avais appris a le faire mais dans votre exemple vous n'utilisez pas le recordset poour éxécuter une requete SQL

Voila j'espère que vous avez compris ma question

Je vous remercie par avance pour votre aide

[patdaum]

bonjour,

Le ME repésente le formulaire actif cela correspond à

Forms!nom du formulaire!

[illight]

Marchi pour la réponse a ma première question

Plus que la deuxième...
Ce que je comprend pas en fait c'est pourquoi la requete SQL ne s'éxécute pas alors que j'ai bien mis le Requery derrière aurais-je oublié quelquechose ?

[Invité]

Salut,

Est-ce qu dans les propriétés de ta liste OrgineSource est sur liste de valeurs, ou autre, test les 3 solutions proposés.

Starec

[illight]

Oui elle est sur liste Valeurs je vais essayer les 2 autres

Merci

EDIT : c'est bon ça marche il fallait en fait le mettre sur Requete

Merci beaucoup pour votre aide