A
alex
Guest
bonjour,
je me pose une question :
'comment verifier si les informations que l'on ajoute dans les différents champs n'existe pas déja?
'a savoir : que si par exemple il existe deja dans ma table de données access une ligne
'possédant les meme infomations sur la date_timbre et nom_op
'dans ce cas au lieu de creer une nouvelle ligne modifier simplement les changements
voici le code foctionnant mais en ajoutant meme si un ligne existe déja
For i = 11 To 13 'fin.Row
If IsNumeric(Range('E' & i).Value) And Range('D' & i).Value <> '' Then
'verification que la ligne n'exixte pas encore ici!??
With Rs1
.AddNew
.Fields('Client') = Range('A1').Value
.Fields('date_timbre') = Range('B' & i).Value
.Fields('nom_op') = Range('D' & i).Value
.Fields('nbre_pli_annon') = Range('E' & i).Value
.Fields('Catégorie') = Range('G' & i).Value
.Update
End With
Merci d 'avance pour votre aide
je me pose une question :
'comment verifier si les informations que l'on ajoute dans les différents champs n'existe pas déja?
'a savoir : que si par exemple il existe deja dans ma table de données access une ligne
'possédant les meme infomations sur la date_timbre et nom_op
'dans ce cas au lieu de creer une nouvelle ligne modifier simplement les changements
voici le code foctionnant mais en ajoutant meme si un ligne existe déja
For i = 11 To 13 'fin.Row
If IsNumeric(Range('E' & i).Value) And Range('D' & i).Value <> '' Then
'verification que la ligne n'exixte pas encore ici!??
With Rs1
.AddNew
.Fields('Client') = Range('A1').Value
.Fields('date_timbre') = Range('B' & i).Value
.Fields('nom_op') = Range('D' & i).Value
.Fields('nbre_pli_annon') = Range('E' & i).Value
.Fields('Catégorie') = Range('G' & i).Value
.Update
End With
Merci d 'avance pour votre aide