[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à.

[AC-2007] Message d'erreur sur ouverture formulaire sujet

Bonjour,
après avoir modifier un formulaire de ma base de donnés, ma base ne s'ouvre pas et j'ai un message d'erreur posté en pièce jointe.
Quelqu'un connait il l'origine de cette erreur?
Merci d'avance.

Images attachées

Erreurs.JPG (93,4 Ko)