Discussion :

[JenTry]

Bonjour,

Je ne sais pas si je suis dans le bon groupe...
Mais voici mon problème:

Situation de départ:
j'ai une base de donnée de plusieurs clients
j'ai créé une requete ajout pour renseigner une autre base de données qui contient tous les champs de ma requete
j'ai créé un bouton qui me permet d'executer cette requete
tout marche bien

Ce que je veux faire:
après avoir cliqué sur le bouton, j'aimerai avoir le choix sur le critère client de ma requete (en clair, j'aimerai choisir d'exporter seulement les données du client que je choisi)

Comment je peux faire?
Merci d'avance

[dr_feelgood]

1) si tu acceptes de choisir le client avant de cliquer sur le bouton:

dans ton formulaire tu crée une liste déroulante avec tous tes clients (liste1)
qui affiche le nom et le prenom, et qui contient l'ID du client et tu modifies ta requête avec un WHERE

Code :

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

1
2
3
4
"INSERT INTO TableDestination ( nom, prenom )_
SELECT [table_origine].nom, [table_origine].prenom_
FROM [table_origine]_
WHERE (([table_origine].ID)=" & Me.liste1 & ");"

2 si tu veux que le choix du client se fasse après avoir cliqué sur le bouton, il te faudra ouvrir une 2e fenêtre où se situera la liste déroulante.

[JenTry]

Merci Dr_feelgood,

Effectivement j'ai bien une liste déroulante avec uniquement le nom (cela suffit dans mon cas)

je débute dans la création de requete, et je ne sais pas où mettre ton code

j'ai un bouton qui execute ma requete:

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
Private Sub Btn_Exporter_Click()
On Error GoTo Err_Btn_Exporter_Click
 
    Dim stDocName As String
 
    stDocName = "R_Exportation"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
 
Exit_Btn_Exporter_Click:
    Exit Sub
 
Err_Btn_Exporter_Click:
    MsgBox Err.Description
    Resume Exit_Btn_Exporter_Click
 
End Sub

[JenTry]

Je modifie ma requete...
Je te tiens au courant

[JenTry]

Desolé pour le code

J'ai inclut ceci dans la partie critères de ma requete

Code :

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

"INSERT INTO T_Références ( Nom ) SELECT [T_Client].Nom FROM [T_Client] WHERE (([T_Client].Nom)=" & [F_Exportation.Lst_Client] & ");"

Et j'ai une fenetre qui s'affiche me demandant d'entrer une valeur de paramètre pour F_Exportation.Lst_Client

quand bien même je rempli le champ demandé, il exporte 0 lignes

...

[dr_feelgood]

En effet tu avais fait appel à une Requête existante et tu as une erreur dans ta requête car il faut indiquer la reference à ton champ de sélection (vois ici)
Je te propose d'utiliser la commande RunSQL:

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
18
Private Sub Btn_Exporter_Click()
ON Error GoTo Err_Btn_Exporter_Click
 
    Dim SQLName AS String
 
    SQLName = "INSERT INTO T_Références ( Nom ) SELECT [T_Client].Nom FROM [T_Client] WHERE (([T_Client].Nom)= '" & Me.F_Exportation.Lst_Client & "' );"
    DoCmd.setwarnings False
    DoCmd.RunSQL SQLName
    DoCmd.Setwarnings True
 
Exit_Btn_Exporter_Click:
    Exit Sub
 
Err_Btn_Exporter_Click:
    MsgBox Err.Description
    Resume Exit_Btn_Exporter_Click
 
End Sub

Les commandes Setwarnings permettent de supprimer le message d'avertissement d'acces 'attention vous allez mettre à jour 2 lignes'

[JenTry]

J'applique ton code mais j'ai une erreur de synthaxe,
'(([T_Client].Nom = '1');'

En fait le '1' correspond à l'ID du nom de mon client

pourtant dans ma liste déroulant j'ai bien le nom de mon client. Je ne comprends d'où ça peut venir

[dr_feelgood]

C'est un simple problème de syntaxe, et jk'en suis aussi responsbel, ayant jonglé entre le nom du client et son ID

si le critère de ta requête est un ID numérique , il faut que tu ôtes le signe ' qui est dans la requête.

Ce signe ' est nécessaire lorsque le critère est une chaîne (comme un nom de client)

[JenTry]

Je suis perdu...
et je viens de relire notre discussion,

J'ai une requete ajout (R_Exportation) existante qui ajoute une serie de champs dans une table (T_Références) d'une autre base de données.

Ce que je veux faire est choisir tous les champs pour un client donné
Cela revient a indiquer "nom du client" dans le critère de ma requete

mais je voudrai automatiser ceci avec un liste déroulante dans un formulaire (F_Exportation), pour choisir le nom de mon client à inserer dans la zone critère de ma requete.

Après avoir suivi tes conseils j'ai de nouveau une erreur:
l'etat INSERT TO contient un champ inconnu 'Nom'

[dr_feelgood]

J'ai une requete ajout (R_Exportation) existante qui ajoute une serie de champs dans une table (T_Références) d'une autre base de données.

Au fil de la discussion, le problème se complexifie.....

tu peux ajouter ta table T_références dans ta première base comme une table liée....

[JenTry]

Merci pour ton aide...
J'ai fait autrement, je ne suis pas entirement satisfait mais le but est que ça marche:

dans ma requete j'ai tout simplement indiquer comme critère [Entrer le nom du client]
j'ai une fenetre qui s'affiche et là je rentre le nom du client.
j'aurai aimé choisir parmi une liste mais c'est peut etre plus simple comme ça...

Merci

[dr_feelgood]

Et bien gardes cette solution pour l'instant, et tu y reviendra une autre fois.

[JenTry]

j'epluche la FAQ sur les requetes
ça peut pas faire de mal