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
Partager