Discussion :

[Brëzz]

Bonjour,

J'aimerais exporter cette requete sous word :

J'ai une erreur à la compilation sur cette ligne :

Code :

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

' Set Rs = db.OpenRecordset("SELECT ClientTest.*, Enfants.*, ClientTest.id_client, Crédits.*, Comptes_Bancaires.*, Finance.*, Biens_Immo.* FROM ((((ClientTest LEFT JOIN Enfants ON ClientTest.id_client=Enfants.[id_client]) LEFT JOIN Crédits ON ClientTest.id_client=Crédits.[id_client]) LEFT JOIN Comptes_Bancaires ON ClientTest.id_client=Comptes_Bancaires.[id_client]) LEFT JOIN Biens_Immo ON ClientTest.id_client=Biens_Immo.[id_client]) LEFT JOIN Finance ON ClientTest.id_client=Finance.[id_client] WHERE ([ClientTest.id_client] = Form![Start]![ListeClient])ORDER BY ClientTest.id_client;")

"Erreur d'execution 3061 Trop peu de paramètre. 1 attendu."

J'ai l'impression que cela viens de "Form![Start]![ListeClient]"

Edit : j'ai passé cette erreur en faisant comme ceci :

Code :

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

1
2
3
4
5
6
7
8
 tmp = "SELECT ClientTest.*, Enfants.*, ClientTest.id_client, Crédits.*, Comptes_Bancaires.*, Finance.*, Biens_Immo.*"
  tmp = tmp & "FROM ((((ClientTest LEFT JOIN Enfants ON ClientTest.id_client=Enfants.[id_client]) "
  tmp = tmp & "LEFT JOIN Crédits ON ClientTest.id_client=Crédits.[id_client]) "
  tmp = tmp & "LEFT JOIN Comptes_Bancaires ON ClientTest.id_client=Comptes_Bancaires.[id_client]) "
  tmp = tmp & "LEFT JOIN Biens_Immo ON ClientTest.id_client=Biens_Immo.[id_client]) "
  tmp = tmp & "LEFT JOIN Finance ON ClientTest.id_client=Finance.[id_client] "
  tmp = tmp & "WHERE ([ClientTest.id_client] = "
 Set Rs = CurrentDb.OpenRecordset(tmp & Forms![Start]![ListeClient] & ") ORDER BY ClientTest.id_client;")

Pour ceux a qui cela peut aider


Cordialement,

Brezz

[loufab]

Bonjour,

Le mot clef est Forms et non Form ceci explique cela, cependant ta méthode est bonne, il y a aussi :

Code :

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

Set Rs = db.OpenRecordset("SELECT ... WHERE [ClientTest.id_client] =eval(Forms![Start]![ListeClient]) ORDER BY ClientTest.id_client;")

ou encore :

Code :

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

Set Rs = db.OpenRecordset("PARAMETERS Forms![Start]![ListeClient] Long;SELECT ... WHERE [ClientTest.id_client] =Forms![Start]![ListeClient] ORDER BY ClientTest.id_client;")

Cordialement,