Discussion :

[Sara86]

Bonjour à tous,

J'ai besoin d'un petit coup de pousse sur le pb suivant que je n'arrive pas à résoudre.
Je souhaite créer un boucle avec du langage VBA qui me permettrait:
-1) dans un premier temps d'ajouter des colonnes à une table existante,
-2)puis de les alimenter

Il semblerait que ma syntaxe pour la 1ere étape contienne une erreur que je ne sais pas identifier:

Code :

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

1
2
3
4
5
6
For i = 1 To Nbdannees - 1
 
strModiftdf = "ALTER TABLE " & E & "" _
             & " ADD " & Information & " - " & Year1 + i & " Text(25)"
DoCmd.RunSQL (strModiftdf)
Next i

"E" est une variable contenant non le nom de ma table.
"Information" est une variable de type String.

Quelqu'un a une idée?

merci d'avance!
Sara

[zoom61]

Salut,

Normalement les données textes doivent être encadrées :

Code :

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

1
2
3
4
5
6
For i = 1 To Nbdannees - 1
 
strModiftdf = "ALTER TABLE '" & E & "' " _
             & " ADD '" & Information & " - " & Year1 + i & " Text(25)'"
DoCmd.RunSQL (strModiftdf)
Next i

@+.

[Sara86]

Bonjour,

Je viens de corriger la syntaxe, mais malheureusement, j'ai toujours le même message d'erreur sur la Syntaxe.

Je ne sais pas si ça a une incidence, mais la table que je souhaite modifier est en fait une table créée à partir d'une requête...
Le traitement de ces tables est-il le même que pour les autres tables?

[zoom61]

Salut,

Voici le code corrigé :

• j'avais pas vu que tu utilisais un mot système Information, il faut le renommer ;
• et comme tu insères une colonne avec des espaces, il faut le mettre entre crochets [].

Code :

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

1
2
3
4
5
6
For i = 1 To Nbdannees - 1
 
strModiftdf = "ALTER TABLE " & E & " " _
             & " ADD [" & ValInformation & " - " & Year1 + i & "] Text(25)"
DoCmd.RunSQL (strModiftdf)
Next i

@+.

[Sara86]

Super! merci beaucoup, ça marche parfaitement!
Je me permets de solliciter à nouveau ton aide, parce que cette fois, c'est la 2ème partie de mon code qui ne fonctionne pas.

En fait, je veux mnt alimenter chacune de ces colonnes avec des données venant de différentes requêtes ayant exactement la même structure.
Pr ça, je voudrais utiliser l'instruction INSERT INTO mais là encore, j'ai un problème de syntaxe.

Voici le code:

Code :

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

1
2
3
4
5
For i = 1 To Nbdannees - 1
STRtdf = "INSERT INTO " & E & " [" & ValInfo & Year1 + i & "], SELECT [" & ValInfo & Year1 + i & "] FROM Req" & ValInfo & "-" & Year1 + i
 
DoCmd.RunSQL (STRtdf)
Next i

Là encore, j'ai essayé avec/sans parenthèse, ou crochets, et rien n'y fait...
Peux-tu m'aider pour ça aussi s'il-te plait?


MERCI d'avance!

[zoom61]

Ceci peut-être :

Code :

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

1
2
3
4
For i = 1 To Nbdannees - 1
STRtdf = "INSERT INTO " & E & " ([" & ValInfo & Year1 + i & "]) SELECT [" & ValInfo & Year1 + i & "] FROM Req" & ValInfo & "-" & Year1 + i
DoCmd.RunSQL (STRtdf)
Next i

@+.