je voudrait faire une modification. et voilla l'erreur que sa me donne. '34214'




Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim MaTable As Recordset
Set MaTable = CurrentDb.OpenRecordset("PROJET")

Do Until MaTable.EOF = True

   If MaTable("Titre_Projet") = Ed_Titre_Projet Then
      MaTable.Edit
      MaTable("Titre_Projet") = Ed_Titre_Projet_vrai.Value
      MaTable("Ans_Diffus") = Ed_Ans_Diffus_vrai.Value
      MaTable("Id_Guichet") = Ed_Guichet_vrai.Value
      MaTable("Id_Secteur") = Ed_Id_Emprun_vrai.Value

      MaTable.Update
   End If

   MaTable.MoveNext
Loop

MaTable.Close