Problème update des tables

Bonjour à tous,
J'ai un problème pour mettre à jour une de mes tables Access, j'ai créé une boucle qui met à jour mes lignes automatiquement. La première ligne de ma table est mise à jour correctement, seulement les suivantes ne le sont pas et Access me prétexte à chaque fois l'erreur :

"Microsoft Office Access n'a pas mis à jour 0 champ(s) à cause d'un échec de conversion de type, 1 enregistrement(s) à la suite de violation de clé, 0 enregistrement(s) à la suite de violation de verrou et 0 enregistrements à la suite de violation de la règle de validation."

Je ne comprends pas car mon update marche lors du premier passage dans la boucle, alors que ça devrai être la même chose pour tout les passages..

Quelqu'un peut-il m'aider svp ?? Merci d'avance.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

For i = 2 To NbLine With xlApp.ActiveWorkbook.Worksheets("Bdd") 'recuperation des données de la feuille2   sql = "SELECT * FROM site" Set Req = db.OpenRecordset(sql) Req.AddNew   n_liaison = .Range("E" & i).Value n_siteA = .Range("V" & i).Value n_siteB = .Range("Y" & i).Value   If DCount("n_liaison", "liaison", "n_liaison='" & xlApp.ActiveWorkbook.Worksheets("Bdd").Range("E" & i).Value & "'") = 1 Then MsgBox ("boucle 1")   'Mise à jour table liaison cSQL = "UPDATE liaison SET n_siteA='maj' WHERE n_liaison='" & n_liaison & "'" 'requete SQL DoCmd.RunSQL cSQL   Else ....

---

(je précise que c'est un code qui récupère des données d'un fichier Excel vers une table Access)

Sans doute après ta première boucle la commande

Citation:

---

DoCmd.RunSQL cSQL

---

peut laisser un verrou de modification sur la table.

J'ai trouvé à l'usage qu'

Code:

---

db.Execute cSQL

---

marchait correctement dans ce cas.
:)
Si qqun veut bien confirmer...

Merci pour ta réponse mais cette commande ne marche pas chez moi...
Elle ne s'execute pas. Donc mon problème n'est toujours pas résolu :(

Re,
je suis arriver à l'exécuter, mais il m'a été nécessaire de changer toutes mes commandes de mon code par la tienne. J'ai toujours mon problème pour faire l'update en dynamique, j'ai essayé de les rentrés statiquement comme ceci :

Code:

---

cSQL = "UPDATE liaison SET n_siteA='maj' WHERE n_liaison='222123'" 'requete SQL

---

Et ça marche... J'ai aussi regarder en mode debug, et n_liaison récupère bien les bonnes valeurs à chaque passage dans ma boucle, donc je vois vraiment pas à quoi c'est dû.

Help me please

Citation:

---

... WHERE n_liaison='" & n_liaison & "'"

---

Quel est le type de n_liaison ?
car si c'est un Long tu n'as pas à encadrer par des '

Code:

---

...WHERE n_liaison=" & n_liaison

---

:)

J'ajoute : insére un debug.print avant de lancer la commande SQL

Code:

---

1 2 3 4

... cSQL = "UPDATE liaison SET n_siteA='maj' WHERE n_liaison='" & n_liaison & "'" 'requete SQL Debug.print cSql DoCmd.RunSQL cSQL

---

n_liaison est de type chaîne de caractère ;)

ça sert à quoi : Debug.print cSql ?? Et c'est censé faire quoi ?

Citation:

---

Debug.print cSql

---

imprime la valeur de la variable cSql au moment de l'éxécution. C'est généralement un bon outil pour repérer des erreurs

Ta commande ne me retourne rien, ça doit ouvrir une fenêtre qui affiche le résultat? Parce que là, moi je vois vraiment rien.

Citation:

---

Ta commande ne me retourne rien ...

---

Elle imprime la valeur dans la fenêtre Exécution du VBE (l'éditeur VBA) qu'on peut ouvrir à la demande par CTRL-G
:)

J'ai trouvé mon problème! En fait j'avais mon entrée indexée sans doublons, donc ça ne risquait pas de marcher.. J'ai donc enlevé l'indexation et ça marche :D

Merci de m'avoir aidé ;)