Ajouter un nouveau champ NuméroAuto à plusieurs tables en vba et sql

Bonjour,

J'ai parcouru beaucoup de forums access et vba et j'ai essayé de créer un code, mais j'ai toujours un message d'erreur.
Le but est d'ajouter un nouveau champ NuméroAuto dans plusieurs tables (issues d'une importation txt). Quand je fais le code pour une table, cela fonctionne :

Code:

---

1 2 3 4 5 6 7

Public Sub Cleprim() Dim sql As String   sql = "ALTER TABLE G10060717203159_txt ADD COLUMN ID COUNTER" DoCmd.RunSQL sql   End Sub

---

et lorsque c'est pour plusieurs table :

Code:

---

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

Public Sub chgTbl() Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb   Dim sql As String   sql = "ALTER TABLE tdf.Name ADD COLUMN ID COUNTER"   For Each tdf In db.TableDefs If Not (tdf.Name Like "MSys*") And tdf.Name Like "G10*" Then DoCmd.RunSQL sql, tdf.Name     End If   Next End Sub

---

j'ai le message suivant : erreur d'exécution 3371 : le type d'une expression entrée pour un des arguments est incorrect.

Merci de votre aide !

ps:Je suis novice en Vba

Bonjour

Ton sql est mal placé il doit être mis après le test et avec la variable :

Code:

---

sql = "ALTER TABLE [" & tdf.Name &"] ADD COLUMN ID COUNTER"

---

Philippe

Après le test signifie après "next" ou après "end if" ?
J'ai essayé les deux mais j'ai toujours le même message. Je l'ai collé après "for each...".
Cela ne fonctionne pas non plus.

Bonjour,

Je pense que Philippe voulais dire ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Sub chgTbl() Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb   Dim sql As String   For Each tdf In db.TableDefs If Not (tdf.Name Like "MSys*") And tdf.Name Like "G10*" Then sql = "ALTER TABLE [" & tdf.Name & "] ADD COLUMN ID COUNTER" DoCmd.RunSQL sql, tdf.Name End If Next End Sub

---

Bonjour Syrald,

J'ai malheureusement toujours le même message : le type d'une expression.... Le débogage me remet sur la ligne écrite en jaune

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Public Sub chgTbl() Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb Dim sql As String For Each tdf In db.TableDefs If Not (tdf.Name Like "MSys*") And tdf.Name Like "G10*" Then sql = "ALTER TABLE [" & tdf.Name & "] ADD COLUMN ID COUNTER" DoCmd.RunSQL sql, tdf.Name End If Next End Sub

---

Je souhaite que ça marche , car il faut que je fasse la même chose avec plusieurs requêtes.
Merci de votre aide.

Valérie

Et si tu enlève le tdf.Name dans la ligne en jaune?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Sub chgTbl() Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb   Dim sql As String   For Each tdf In db.TableDefs If Not (tdf.Name Like "MSys*") And tdf.Name Like "G10*" Then sql = "ALTER TABLE [" & tdf.Name & "] ADD COLUMN ID COUNTER" DoCmd.RunSQL sql End If Next End Sub

---

D'ailleurs au passage, tu peux modifier ton IF comme ça :

Code:

---

1 2	If tdf.Name Like "G10*" Then

---

Forcément si ça commence par "G10", ça ne commencera pas par "MSys".

Merci beaucoup à tous les deux.

C'est la première fois que j'ose faire appel à des pro et c'est hyper efficace !
J'ai à peu près 100 fichiers txt à traiter par jour, un fichier contient 130 lignes que je dois réduire à une dans une table access.
Je ne suis pas loin du but grâce à vous.

Bonne fin de journée

Valérie

Pas de soucis :)

Petite explication de l'erreur du coup, tu utilisais RunSQL qui est défini de cette manière dans la documentation:
expression.RunSQL(SQLStatement, UseTransaction)
Or UseTransaction s'attends à recevoir un booléen et tu lui envoyais un String avec tdf.Name, donc le message d'erreur disait bien qu'il y avait un problème de type pour un des arguments :)

Bonne journée!