Discussion :

[Brëzz]

Bonjour,

J'ai un formulaire"Start" contenant une liste déroulante "ListeClient" comprenant le "Nom", le "Prénom et l''id_client" de mes clients. J'ai créé un boutons ouvrant la requete suivante :

Code :

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

1
2
3
4
SELECT ClientTest.*, Enfants.*, ClientTest.id_client, Crédits.*, [Comptes bancaires].*, Finance.*, [Biens Immo].*
FROM ((((ClientTest LEFT JOIN Enfants ON (ClientTest.id_client = Enfants.[réf famille]) AND (ClientTest.id_client = Enfants.[réf famille])) LEFT JOIN Crédits ON ClientTest.id_client = Crédits.[Réf client]) LEFT JOIN [Comptes bancaires] ON ClientTest.id_client = [Comptes bancaires].[Réf client]) LEFT JOIN [Biens Immo] ON ClientTest.id_client = [Biens Immo].[Réf client]) LEFT JOIN Finance ON ClientTest.id_client =Finance.[ref_client]
WHERE ([ClientTest.id_client]= Me![ListeClient])
ORDER BY ClientTest.id_client;

J'essaye d'ouvrir toutes les info client correspondant au client choisis dans la liste déroulante. Cette requète ne fonctionne pas et m'ouvre un fénètre me demandant une "Entrer une valuer de paramètre pour : Me!ListeClient"

Pouvez vous m'aider ?

Cordialement,

Brezz

[Philippe PONS]

Bonjour,

3 remarques:

1- comme tu ne fournis pas le schéma de ta base, impossible de vérifier la requête.

2- tu ne dis pas comment cette requête est exécutée, c'est une info qui pourrait être intéressante!

3- quand je vois une requête avec des noms de champ contenant des espaces et des caractères accentués, ça ne me donne pas envie d'aller plus loin!

Cordialement,

[tee_grandbois]

Bonjour,
tu dois considérer que la valeur de ta liste est une variable et ne dois pas être dans la partie "texte" de ta requète mais dois y être ajoutée.
Regarde cet exemple, tu comprendras mieux :

Code :

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

1
2
3
4
5
6
7
8
Dim Toto as String
Toto = "Ceci est un test"
Debug.Print "Message : Toto"
' te renvoie : 
Message : Toto
Debug.Print "Message : " & Toto
' te renvoie
Message : Ceci est un test

Si tu remplace Toto par Me![ListeClient], tu verras la différence.
Essaie ceci et tu pourras utiliser la variable Marequete comme une requète SQL :

Code :

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

1
2
3
Marequete = "SELECT ClientTest.*, Enfants.*, ClientTest.id_client, Crédits.*, [Comptes bancaires].*, Finance.*, [Biens Immo].* " & _
FROM ((((ClientTest LEFT JOIN Enfants ON (ClientTest.id_client = Enfants.[réf famille]) AND (ClientTest.id_client = Enfants.[réf famille])) LEFT JOIN Crédits ON ClientTest.id_client = Crédits.[Réf client]) LEFT JOIN [Comptes bancaires] ON ClientTest.id_client = [Comptes bancaires].[Réf client]) LEFT JOIN [Biens Immo] ON ClientTest.id_client = [Biens Immo].[Réf client]) LEFT JOIN Finance ON ClientTest.id_client = Finance.[ref_client] " & _
WHERE ([ClientTest.id_client]= " & Me![ListeClient] & ") ORDER BY ClientTest.id_client;"

Tu peux aussi remplacer Me![ListeClient] par Forms![Start]![ListeClient] si tu utilises une requête enregistrée.

[Brëzz]

Bonjour et merci de l'attention que vous portez à mon problème

@Phillipe

1- comme tu ne fournis pas le schéma de ta base, impossible de vérifier la requête.

ci-joint le shéma de ma base

2- tu ne dis pas comment cette requête est exécutée, c'est une info qui pourrait être intéressante!

Je suis pas sur de comprendre cette question : Il s'agit d'une requète enregsitrée que j'ouvre sur l'évènement clique d'un bouton

3-J'avoue c'est pas beau, je compte remettre de l'ordre quand j'aurais mis en place toutes les fonctionnalités souhaitées.

@tee_grandbois

Code :

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

1
2
3
Marequete = "SELECT ClientTest.*, Enfants.*, ClientTest.id_client, Crédits.*, [Comptes bancaires].*, Finance.*, [Biens Immo].* " & _
FROM ((((ClientTest LEFT JOIN Enfants ON (ClientTest.id_client = Enfants.[réf famille]) AND (ClientTest.id_client = Enfants.[réf famille])) LEFT JOIN Crédits ON ClientTest.id_client = Crédits.[Réf client]) LEFT JOIN [Comptes bancaires] ON ClientTest.id_client = [Comptes bancaires].[Réf client]) LEFT JOIN [Biens Immo] ON ClientTest.id_client = [Biens Immo].[Réf client]) LEFT JOIN Finance ON ClientTest.id_client = Finance.[ref_client] " & _
WHERE ([ClientTest.id_client]= " & Me![ListeClient] & ") ORDER BY ClientTest.id_client;"

J'ai bien compris l'expemple, mais dans ce cas comment j'execute la requete SQL ?

ps : J'arrive pas à faire afficher le "Debug.print"

Code :

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

1
2
3
4
 
Dim test As String
test = "id_client=" & Me![ListeClient]
Debug.Print "test = " & test

[tee_grandbois]

re,
si c'est une requête enregistrée tu dois la modifier comme cela :

Code :

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

1
2
3
4
SELECT ClientTest.*, Enfants.*, ClientTest.id_client, Crédits.*, [Comptes bancaires].*, Finance.*, [Biens Immo].*
FROM ((((ClientTest LEFT JOIN Enfants ON (ClientTest.id_client = Enfants.[réf famille]) AND (ClientTest.id_client = Enfants.[réf famille])) LEFT JOIN Crédits ON ClientTest.id_client = Crédits.[Réf client]) LEFT JOIN [Comptes bancaires] ON ClientTest.id_client = [Comptes bancaires].[Réf client]) LEFT JOIN [Biens Immo] ON ClientTest.id_client = [Biens Immo].[Réf client]) LEFT JOIN Finance ON ClientTest.id_client =Finance.[ref_client]
WHERE ([ClientTest.id_client]= Forms![Start]!![ListeClient])
ORDER BY ClientTest.id_client;

car Me! n'est connu que dans les instances d'objets de type Formulaire ou Etat.
Le résultat de Debug.Print s'affiche dans la fenêtre d'exécution, dans la fenêtre VBA. Si tu ne sais pas l'utiliser (ce qui est dommage car c'est le minimum que l'on doit connaitre quand on développe en VBA) tu peux le remplacer par MsgBox.

Mais comment utilises-tu cette requête dans ton formulaire ?

[Brëzz]

re,

Merci pour ton aide !

Merci pour tips sur le MsgBox !

ci-joint mon formulaire dans lequel j'utilise tout cela.

J'ai bien fait la modification dans ma requète mais cela ne fonctionne pas.

Code :

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

WHERE ([ClientTest.id_client] = Forms![Start]!![ListeClient])

tu mets 2 "!" j'en ai mis qu'un sinon cela me sort un erreur.

Cordialement,



Brezz

[Brëzz]

C'est bon cela marche merci beaucoup !

Bonne fin de journée

Brezz

[Brëzz]

Une dernière question avant de mettre en résolu

Comment puis-je exporte le résultat de cette requète sous word ?

En cliquant sur fusion avec word, cela me met :

"Word n'a pas pu ouvrir la source de données." ?

après avoir choisis comme source de données lors de l'exportation par access :
"Fichier de base de donnée OLE DB"