[AC-2003] Message d'erreur lors de la mise à jour des table sujet

Bonjour à tous,
voilà, j'ai un script qui met à jour le champ de plusieurs table en même temps malheureusement depuis quelque temps il ne tourne plus bien et m'affiche ce message:

Citation:

Argument non valide

et la partie du code en surbrillance est:

Code:

---

rs.Update

---

je vous copie une partie de mon script:

Code:

---

'ouverture de la table Collar
Set rs = CurrentDb.OpenRecordset("Collar")
  'ouverture de la table prefixe
 Set rs2 = CurrentDb.OpenRecordset("Prefixe")
  tt = "S" & MyPrefix & Mid(MyString, 4, 4) & Right(MyString, 1) & "TOPO M"
  tt = "S" & MyPrefix & Mid(MyString, 6, 4) & Right(MyString, 1) & "TOPO M"
.
.
.
  'clé primaire
  rs.Index = "primarykey" 
'mode édition
rs.Edit
        'ecriture champ tt
        rs.Fields("hole_id") = tt
        'mise a jour
      rs.Update
'ouverture de la table survey
Set rs = CurrentDb.OpenRecordset("surveyr")

  'ouverture de la table prefixe
 Set rs2 = CurrentDb.OpenRecordset("Prefixe")

  tt = "S" & MyPrefix & Mid(MyString, 4, 4) & Right(MyString, 1) & "TOPO M"

  tt = "S" & MyPrefix & Mid(MyString, 6, 4) & Right(MyString, 1) & "TOPO M"
.
.
.
  'clé primaire
  rs.Index = "primarykey"
       
'mode édition
rs.Edit
        'ecriture champ tt

        rs.Fields("hole_id") = tt
        'mise a jour
      rs.Update

---

ce problème est-il dû à rs qui est utilisé pour la mise à jour des 2 table?

Merci déjà.