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

[marie75019]

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.

[tee_grandbois]

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 :

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

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 :

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

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

[User]

..
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 :

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

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.

[tee_grandbois]

bonjour 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)

[User]

Salut tee-grandbois

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

[User]

Sinon pour Identif :

Code :

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

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 ?

[tee_grandbois]

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 :

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

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

Code :

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

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

[marie75019]

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 :

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

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


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

Avec ce code

Code :

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

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


Puis ça quand la case est décochée


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 :

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

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.

[User]

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

[marie75019]

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

[User]

Bonjour,

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

[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

[User]

Bonjour 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

[marie75019]

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.