Bonjour à tous,

Je cherche comment effectuer une vérification avant de faire un UPDATE pour éviter d'avoir le message "Duplicate key on insert detected"

Voici mon code qui s'arrête sur .update avec le message DUPLICATE.

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
For I = 2 To F_Resultat.Range("A65536").End(-4162).Row
               .AddNew
               .Fields("mb_mag") = F_Resultat.Cells(I, 2)
               .Fields("mb_nofour") = F_Resultat.Cells(I, 5)
               .Fields("mb_lig1four") = F_Resultat.Cells(I, 9)
               .Fields("mb_lig2four") = ""
               .Fields("mb_lig3four") = ""
               .Fields("mb_lig4four") = ""
               .Fields("mb_lig5four") = ""
               .Fields("mb_lig1mag") = ""
               .Fields("mb_lig2mag") = ""
               .Fields("mb_lig3mag") = ""
               .Fields("mb_lig4mag") = ""
               .Fields("mb_lig5mag") = ""
               .Fields("mb_datliv") = F_Resultat.Cells(I, 8)
               .Fields("mb_mhtpub") = 0
 
               .Update
Merci à tous.