VBA et requête ajout dans une table avec case oui/non

Bonjour
Voilà, en VBA, je migre certaines données d'une table vers une autre. Tous les champs passent bien sauf un champ de case à cocher oui/non.

Mon code

Code:

---

1 2 3 4 5 6 7

Set rst = CurrentDb.OpenRecordset("SELECT Num_affaire, Date_decision, Appel FROM cdpi") rst.MoveFirst While Not rst.EOF sql = AutoNumber("tdecisions", "Id_decision", "E" & Right(Year(Date), 2), 3, Year(Date)) DoCmd.RunSQL "INSERT INTO tdecisions (Id_decion, Num_affaire, Date_decision, Appel) VALUES ('" & sql & "', '" & rst("Num_affaire") & "', '" & rst("Date_decision") & "', '" & rst("Appel") & "');" rst.MoveNext Wend

---

En rouge, mon champ case à cocher de mes deux tables (champs oui/non)

Tout le code s'exécute. Dans la table que je copie (recordset) 80 % des cases sont cochées... Dans la table de destination, 0%

Quelqu'un a t-il une idéee.

Merci
Marie.

Bonjour,

Avez-vous désactivé les warnings au début du code avec DoCmd.SetWarnings False :
https://learn.microsoft.com/fr-fr/of...md.setwarnings

Si c'est le cas les réactiver et peut-être remplacer le DoCmd.RunSQL ... par la commande currentdb.Execute ..., dbFailOnError qui n'afficher pas d'avertissement quand on exécute une requête action.

Voir aussi si une table des erreurs a été générée.

Cdlt

Bonjour
Merci de ta réponse.
j'ai réactivé DoCmd.SetWarnings True
Voilà l'erreur
Pièce jointe 668129

j'ai transformé ma commande avec CurrentDb.Execute
J'ai une erreur 3464 - Type de données incompatible dans l'expression du critère

Marie

Bonjour,


Il y a une valeur à null probablement dans le champ Appel de la table cdpi, je serais tenté d'utiliser la fonction nz pour remplacer un null par 0 :

Code:

---

currentdb.Execute "INSERT INTO tdecisions (Id_decion, Num_affaire, Date_decision, Appel) VALUES ('" & sql & "', '" & rst("Num_affaire") & "', '" & rst("Date_decision") & "', '" & nz(rst("Appel"),0) & "');", dbFailOnError

---

Cdlt

C'est désespérant.
J'ai bien remplacé par Nz(rst("Appel"), 0)... je n'y comprend rien.


Pièce jointe 668132

Une remarque sans doute inutile, mais je la fais quand même :

Ligne 5 du code dans le 1er post, il y a "Id_decion" au lieu de "Id_decision" je suppose !?

Citation:

---

Envoyé par nemog

Une remarque sans doute inutile, mais je la fais quand même :

Ligne 5 du code dans le 1er post, il y a "Id_decion" au lieu de "Id_decision" je suppose !?

---

Non... c'est une boulette de ma part uniquement sur ce forum... je viens de vérifier.

bonjour,
1: pense à nommer tes variables de manière à ne pas mettre de doute dans la lecture du code car, même si cela n'a rien à voir avec ton souci, "sql" sert plutôt à nommer une chaine SQL à exécuter dans VBA:

Code:

---

1 2	Dim txSQL as String ' texte SQL de la requête Dim Identif as string ' Identifiant unique

---

2: pense à utiliser une variable (qu'on nomme SQL ou équivalent) qui permet de vérifier la syntaxe de ta chaine et y déceler des erreurs en l'affichant en mode débogage ou dans une boîte message:

Code:

---

1 2 3 4 5

Identif = AutoNumber("tdecisions", "Id_decision", "E" & Right(Year(Date), 2), 3, Year(Date)) txSQL ="INSERT INTO tdecisions (Id_decision, Num_affaire, Date_decision, Appel) VALUES ('" & Identif & "', '" & rst("Num_affaire") & "', '" & rst("Date_decision") & "', '" & rst("Appel") & "');" Debug.Print txSQL ' ou également: Msgbox txSQL currentdb.Execute txSQL rst.MoveNext

---

Citation:

---

Envoyé par tee_grandbois

..
2: pense à utiliser une variable (qu'on nomme SQL ou équivalent) qui permet de vérifier la syntaxe de ta chaine et y déceler des erreurs en l'affichant en mode débogage ou dans une boîte message:

Code:

---

1 2 3 4 5

Identif = AutoNumber("tdecisions", "Id_decision", "E" & Right(Year(Date), 2), 3, Year(Date)) txSQL ="INSERT INTO tdecisions (Id_decision, Num_affaire, Date_decision, Appel) VALUES ('" & Identif & "', '" & rst("Num_affaire") & "', '" & rst("Date_decision") & "', '" & rst("Appel") & "');" Debug.Print txSQL ' ou également: Msgbox txSQL currentdb.Execute txSQL rst.MoveNext

---

---

Oui, ça nous permettra entre autre de voir le contenu de identif.

bonjour User,

Citation:

---

Envoyé par User

Oui, ça nous permettra entre autre de voir le contenu de identif.

---

ou un autre champ ... vu que la requête utilise VALUES avec des valeurs entourées d'apostrophes, si on n'est pas rigoureux, cela peut donner des résultats inattendus ou des erreurs avec des colonnes de type date ou numérique (avec ou sans décimales)

Salut tee-grandbois

Genre 'True' ou '17/06/2025' ;)

Sinon pour Identif :

Code:

---

Identif = AutoNumber("tdecisions", "Id_decision", "E" & Right(Year(Date), 2), 3, Year(Date))

---

Vous récupérez la valeur du champ Id_decision de la table tdecisions selon le critère.

Peut-on avoir le contenu de la fonction ?

Citation:

---

Envoyé par User

Genre 'True' ou '17/06/2025' ;)

---

oui et non, en réalité la date entre apostrophes passe sans problème, il faut juste faire attention aux variables récupérées dans VBA pour ne pas se retrouver avec le format US dans les données :

Code:

---

1 2	Dim Madate as Date Madate = CDate("12/06/2025") 'OK

---

Code:

---

1 2	Dim Madate as Date Madate = #12/06/2025# 'NOK car cela donnera 06/12/2025 dans la table

---

mais dans le code de marie75019 la date est issue d'un recordset donc pas de souci.

Et en effet, 'True' ne passera pas puisque True est une constante qui, entre apostrophes, devient du texte.

Bien sûr, je dis tout çà à l'attention des apprenants ;)

Que d'aide et je vous remercie.
J'ai simplifié pour avoir le minimum et trouver plus facilement le problème.
Table d'origine : cdpi
Table de destination : Essai

Avec ce code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

DoCmd.SetWarnings True Dim txSQL As String   Set rst = CurrentDb.OpenRecordset("SELECT Num_affaire, Appel FROM cdpi") rst.MoveFirst While Not rst.EOF txSQL = "INSERT INTO Essai (Num_affaire, Appel) VALUES ('" & rst("Num_affaire") & "', '" & Nz(rst("Appel"), 0) & "');" Debug.Print txSQL CurrentDb.Execute txSQL, dbFailOnError rst.MoveNext Wend End Sub

---

Message d'erreur direct
Pièce jointe 668160

En supprimant ", dbFailOnError", toute la boucle est exécutée avec seulement de rempli Num_affaire... rien dans Appel.

Avec ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

DoCmd.SetWarnings True Dim txSQL As String   Set rst = CurrentDb.OpenRecordset("SELECT Num_affaire, Appel FROM cdpi") rst.MoveFirst While Not rst.EOF txSQL = "INSERT INTO Essai (Num_affaire, Appel) VALUES ('" & rst("Num_affaire") & "', '" & Nz(rst("Appel"), 0) & "');" MsgBox txSQL CurrentDb.Execute txSQL rst.MoveNext Wend End Sub

---

On a la requête
Pièce jointe 668162

Puis ça quand la case est décochée
Pièce jointe 668163

Mais pareil, aucune case cochée dans la table de destination "Essai"

Désespérant.

Quand je fais une requête ajout dans Access, cela fonctionne correctement.

Code:

---

1 2 3

INSERT INTO Essai ( Num_affaire, Appel ) SELECT cdpi.Num_affaire, cdpi.Appel FROM cdpi;

---

La difficulté c'est que je souhaite passer par un recordset car je dois introduire des valeurs nouvelles qui sont pas dans la table d'origine.

Essayez de forcer la conversion en numérique : CInt(rst!appel)

Bravo
un grand merci
on passe sur des valeurs -1 ou 0 (coché ou pas coché)
et ça complête correctement la base de destination.

Merci infiniment.

Je suis toujours épaté par l'entraide et l'implication de ceux présents sur ce forum.
très belle communauté.

merci encore une fois à tous ceux qui se sont penchés avec bienveillance sur ma question.

Marie

Bonjour,

Merci à tee-grandbois qui avait donné l'explication ;)

Bonjour,

Pourquoi faire une boucle de lecture, alors qu'on peut tout simplement coder un ordre INSERT incluant un ordre SELECT, ce sera beaucoup plus performant si la table est fortement chargée.

D'une façon générale, avec n'importe quel SGBD relationnel, il faut systématiquement privilégier les requêtes ensemblistes ;)

Bonjour escartefigue,

Citation:

---

Envoyé par escartefigue

..

Pourquoi faire une boucle de lecture, alors qu'on peut tout simplement coder un ordre INSERT incluant un ordre SELECT, ce sera beaucoup plus performant si la table est fortement chargée.

D'une façon générale, avec n'importe quel SGBD relationnel, il faut systématiquement privilégier les requêtes ensemblistes ;)

---

Je pense que c'est dû au numéroauto généré dans la colonne Id_decision qui semble dépendre du numéro précédent. Je dis ça sans être sûr..

Cdlt

Citation:

---

Envoyé par escartefigue

Bonjour,

Pourquoi faire une boucle de lecture, alors qu'on peut tout simplement coder un ordre INSERT incluant un ordre SELECT, ce sera beaucoup plus performant si la table est fortement chargée.

D'une façon générale, avec n'importe quel SGBD relationnel, il faut systématiquement privilégier les requêtes ensemblistes ;)

---

Bonjour
Merci pour l'intérêt.
La boucle est nécessaire donc indispensable de passer par Recordset car je complète avec numero automatique généré suivant mes critères et je complète en même temps une autre table.