erreur 3201 sur une requete INSERT avec recordset

[forzaxelah]

Bonjour,
J'ai un léger souci avec 2 requetes INSERT qui se suivent.

voici le code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
'----------------------------------------------------------------------------------
'Instruction SQL pour l'insertion dans la table T SAISIE DES RAPPORTS LOCAUX
'----------------------------------------------------------------------------------
 
Set db = CurrentDb
Set rst = db.OpenRecordset("T SAISIE DES RAPPORTS LOCAUX", dbOpenDynaset)
rst.AddNew
rst.Fields("N°fiche") = NQCDS
rst.Fields("ANOMALIE_1") = Titre
rst.Fields("CONSEQUENCE") = csq
rst.Fields("ORIGINE DU PROBLEME") = Orig
rst.Fields("PRIORITE") = Prio
rst.Fields("SERVICE") = Cell
rst.Fields("RESPONSABLE") = Pilote
rst.Update
rst.Close
Set rst = Nothing
 
'----------------------------------------------------------------------------------
'Instruction SQL pour l'insertion dans la table SERIE (Associer N°fiche et Série)
'----------------------------------------------------------------------------------
 
Set db = CurrentDb
Set rst = db.OpenRecordset("CSA", dbOpenDynaset)
rst.AddNew
rst.Fields("N°") = NQCDS
rst.Fields("CSA") = FAMILLE
rst.Update
rst.Close
Set rst = Nothing

J'ai lors de l'update (celui qui est juste au dessus) à une erreur:

erreur 3201 "vous ne pouvez pas ajouter ou modifier un enregistrement car l'enregistrement associé est requis dans la table 'T SAISIE DES RAPPORTS LOCAUX".

Le souci est la requête d'insertion dans la table cité fonctionne (j'ai regardé dans les tables en même temps).

Je coince un peu là.

Avez vous une idée?

Merci!

[Jeannot45]

Peut-être ajouter une sauvegarde de l'enregistrement en ligne 18 :

Code VBA :

DoCmd.RunCommand acCmdSaveRecord

Bonne continuation