Discussion :

[novice06]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.RunSQL sql

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kloun]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[novice06]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kloun]

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.

[novice06]

désolé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kloun]

Et N°Graphique ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[novice06]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

après rectification ça marche nickel

merci
bonne journée

[Kloun]

Désolé, au temps pour moi.