Discussion :

[marie75019]

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 :

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

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.

[User]

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

[marie75019]

Bonjour
Merci de ta réponse.
j'ai réactivé DoCmd.SetWarnings True
Voilà l'erreur


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

[User]

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 :

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

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

[marie75019]

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

[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 !?