Discussion :

[scrouet]

Bonjour.

Je tente une insertion dans une table de ma base via un code VBA dans l'un des formulaires :

Code :

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

1
2
3
4
 
strRequete = "INSERT INTO NN_Theme_Risque(Rsq_Id, Thm_Id) VALUES (" & lngIdRisque & ", " & lngIdTheme & ");"
CurrentDb.Execute strRequete
Debug.Print CurrentDb.RecordsAffected

Résultat : rien. Pas de nouvelle ligne et pas d'erreur. Le retour de la ligne débug confirme qu'il ne s'est rien passé.
Que se passe-t-il ?

La table visée ne contient que ces deux champs, définis conjointement comme clef primaire.

[mumen]

Bonjour

Ajoute dbFailOnError à la commande Execute

Code :

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

CurrentDb.Execute strRequete, dbFailOnError

Ce qui te donnera sans doute l'information (l'erreur) recherchée.

Ensuite, quand tu utilise CurrentDb, c'est toujours une nouvelle instance de la base de données qui est créée et donc l'instruction

Code :

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

Debug.Print CurrentDb.RecordsAffected

ne peut que retourner 0. Donc dimensionne une variable comme ici :

Code :

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

1
2
3
4
5
6
 
Dim db as database
set db= CurrentDb
strRequete = "INSERT INTO NN_Theme_Risque(Rsq_Id, Thm_Id) VALUES (" & lngIdRisque & ", " & lngIdTheme & ");"
db.Execute strRequete, dbFailOnError
Debug.Print db.RecordsAffected

[scrouet]

Merci pour le paramètre optionnel. J'ai pu comprendre que cela ne fonctionnait pas car je tentais d'utiliser l'identifiant Rsq_Id d'un risque en cours de création et non encore enregistré dans sa table.