Bonjour,

j'ai un problème concernant cette instruction SQL que je n'arrive pas à m'expliquer.

Quand je crée une requête sur ACCESS avec cette instruction :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
"ALTER TABLE nomTable ADD COLUMN Datedujour DATETIME;"
Cela marche niquel.
Par contre, quand je le mets dans mon code VBA avec un traitement associé à cette nouvelle colonne, la base plante (ne répond plus)...

Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Me!Date_en_traitement.SetFocus
DoCmd.RunCommand acCmdCopy
 
DoCmd.OpenTable Table, acViewNormal, acEdit
'DoCmd.RunCommand acCmdInsertTableColumn
 
Set AjoutColonne = CurrentDb.CreateQueryDef("Téléphonie_" & Date_traitée & "", "ALTER TABLE Téléphonie_" & Date_traitée & " ADD COLUMN Datedujour DATETIME;")
AjoutColonne.Execute
 
For Ligne = 1 To 24
    DoCmd.RunCommand acCmdPaste
    DoCmd.RunCommand acCmdRecordsGoToNext
 
Next
 
DoCmd.RunCommand acCmdClose
Peut-être ai je loupé une subtilité. J'ai essayé avec un DoCmd.RunSQL, ça ne fonctionne pas non plus.

Ca marche avec 'DoCmd.RunCommand acCmdInsertTableColumn, apparaissant là en commentaire, mais en fait je veux créer la nouvelle colonne avec un nom (au lieu de Champ1).

Merci par avance de votre aide

EDIT : AjoutColonne est défini de la façon suivante : Dim AjoutColonne As QueryDef