problème de syntaxe insert into

bonjour,
je me retrouve devant un problème de syntaxe pour insert into:

• TGraphiques!N°Graphique est un texte style "ASco25" et contient pour l'instant 900 lignes et est amené à grossir

• TGraphiques!N°Version est pour l'instant vide et est un numérique standard 0 décimales mais peut devenir texte pour les besoin du code

le but est d'écrire les 2 derniers digit de N°Graphique dans N°Version => 25

j'ai testé ce code mais bloque sur

Code:

---

DoCmd.RunSQL sql

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim sql As String Dim rs As New ADODB.Recordset   rs.Open "select * from TGraphiques", CurrentProject.Connection   Do While Not rs.EOF sql = "insert into rs!N°Version value(" & Right(rs!N°Graphique, 2) & ")" DoCmd.RunSQL sql rs.MoveNext Loop

---

j'ai testé dans tout les sens avec plus ou moind de guillemets par rapport au numérique ou non ... sans succès


merci de votre aide:oops:

En supposant que TGraphiques est une table et N°Version et N°Graphique sont des champs :

Code:

---

Currentdb.execute "Update TGraphiques set N°Graphique = right(N°Version , 2)", dbfailonerror

---

Je vois pas trop l'intérêt de la chose, ça duplique l'information.

Evite les espaces et les caractères-à-la-con dans les noms d'objets (champs, tables, variables, ...) si tu peux.

merci mais problème qui vient peut-être du fait que ce code est lancé d'un bouton de commande d'un formulaire

Code:

---

1 2 3 4 5

Private Sub Commande12_Click()   CurrentDb.Execute "Update TGraphiques set N°Graphique = right(N°Version , 2)", dbFailOnError   End Sub

---

retour dbFailOnError=128

je suis d'accord pour la redondance d'information mais il s'agit là pour moi de tester le code qui permettra une fois le principe acquis de l'adapter à mes besoins

En français de chez nous, c'est quoi le message d'erreur ?
Dans les références (dasn le code, menu Outils, références) , est-ce que tu as "Microsoft DAO ..." ?
Si non, rajoute la.

désolé

Code:

---

1 2	Erreur d'éxécution 3058 un index ou une clé principale ne peut contenir une valeur null

---

hors le champ N°Version de la table TGraphiques n'est ni un index ni une clé principale

Et N°Graphique ?

Code:

---

1 2 3 4 5

Private Sub Commande12_Click()   CurrentDb.Execute "Update TGraphiques set [N°Graphique] = right([N°Version] , 2) where [N°Version] is not null", dbFailOnError   End Sub

---

Code:

---

1 2 3 4 5

Private Sub Commande12_Click()   CurrentDb.Execute "Update TGraphiques set N°Graphique = right(N°Version , 2)", dbFailOnError   End Sub

---

était bon sur le principe
le souci venait du fait que j'avais fait un simple copié collé de ton code sans vérifié mais tu avais inversé les champs hors c'est les 2 derniers digit de N°Graphique qui fallait déversé dans N°Version comme décrit dans mon 1er message et non l'inverse

bon code:

Code:

---

CurrentDb.Execute "Update TGraphiques set N°Version = right(N°Graphique , 2)", dbFailOnError

---

après rectification ça marche nickel

merci
bonne journée

Désolé, au temps pour moi.