Discussion :

[Plume27]

Je reviens vers vous pour avoir une petite information !
j'ai eu recours à vos services pour intégrer une variable dans une requête
et donc je sais faire,
là, par contre, je voudrais juste intégrer une variable et malgré que ma requête soit bonne, cela ne fonctionne pas...

Code :

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

1
2
3
4
5
6
V_Sql = "INSERT INTO tbl_Clients([ac_date1]) "
V_Sql = V_Sql & "SELECT tbl_Clients.ac_num, tbl_tbl_Clients_Select.select_num_client, tbl_tbl_Clients_Select.select_choix, " & date_commission & " as date_commission """
V_Sql = V_Sql & "FROM tbl_tbl_Clients_Select, tbl_tbl_Clients"
V_Sql = V_Sql & "GROUP BY tbl_tbl_Clients.ac_num, tbl_tbl_Clients_Select.select_num_accord, tbl_tbl_Clients_Select.select_choix"
V_Sql = V_Sql & "HAVING (((tbl_tbl_Clients.ac_num)=[tbl_tbl_Clients_Select]![select_num_client]) AND ((tbl_tbl_Clients_Select.select_choix)=-1));"
Base.Execute V_Sql

c'est à dire après avoir comparer le champ de deux tables sur leur numéro et si le champ "choix" est coché, je veux intégrer une variable "date" dans le champ de la table principale tbl_Clients...
il m'est dit que j'ai trop de données dans le "Select" par rapport au "Insert to",
et si j'enlève les champs du Select pour avoir le même nombre de données dans les deux, la requête ne s’exécute plus car elle ne sait plus sur quelle table s'appuyer...

Un grand merci pour vos éclairages...

[tee_grandbois]

Bonsoir,
je n'ai pas tout compris : tu souhaite insérer une seule valeur de type date dans ta table ? Je pense que c'est plutôt une mise à jour de champ. Il ne faut donc pas que tu utilises l'instruction INSERT mais UPDATE.
Essaie d'expliquer ce que tu souhaites.
S'il s'agit d'une mise à jour d'un enregistrement particulier la syntaxe devrait ressembler à ceci :

Code :

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

1
2
3
V_Sql = "UPDATE tbl_Clients SET [ac_date1] = " & date_commission
V_Sql = V_Sql & " WHERE tbl_Clients.ac_num IN (SELECT [select_num_client] FROM tbl_tbl_Clients_Select WHERE tbl_tbl_Clients_Select.select_choix=-1);"
Base.Execute V_Sql

[Plume27]

Un grand merci pour ce coup de pouce,

En effet, c'était une requête "mise à jour",
par contre, est-ce qu'il existe une requête de retrait d'information,
car l'utilisateur peut être amené à revenir en arrière et dé sélectionner
le client et donc il me faut remettre le champ "date" à blanc par bouton ?

J'ai cherché et réglé mon problème de format de date qui doit être au format
Us et avec une syntaxe particulière pour avoir le bon résultat.
après avoir mis à la date au format Us

Code :

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

date_US = Format(date_commission, "mm dd yyyy")

Code :

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

V_Sql = "UPDATE tbl_Clients SET [ac_date1] = #" & date_US & "#"

[tee_grandbois]

Bonsoir,
la requête pour mettre la date à blanc est quasiment la même :

Code :

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

1
2
V_Sql = "UPDATE tbl_Clients SET [ac_date1] = NULL WHERE ....;"
Base.Execute V_Sql

[Plume27]

Super, par une requête je suis aussi arrivée à supprimer la sélection, une fois le champ remis à NULL

un grand merci !