Discussion :

[Tsuna78]

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

[Invité]

Bonjour

As-tu essayé:

Code :

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

1
2
 
DoCmd.RunSql ("ALTER TABLE nomTable ADD COLUMN Datedujour DATETIME;")

Starec

[Tsuna78]

Oui, j'ai testé ces deux méthodes (DoCmd.RunSQL et en passant par un objet QueryDef) => même problème dans les deux cas

EDIT : Est il possible par hasard de spécifier le nom d'une colonne dans la méthode

DoCmd.RunCommand acCmdInsertTableColumn

???

[Invité]

Re

Pourquoir passer par un objet query def, juste cette instruction

Code :

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

1
2
 
DoCmd.RunSql ("ALTER TABLE nomTable ADD COLUMN Datedujour DATETIME;")

Cela fonctionne je viens de le tester

Starec

[Tsuna78]

Ben, je comprends pas du tout de quoi vient le problème alors :

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
 
Table = "Téléphonie_" & Date_traitée
 
Me!Date_en_traitement.SetFocus
DoCmd.RunCommand acCmdCopy
 
DoCmd.OpenTable Table, acViewNormal, acEdit
'DoCmd.RunCommand acCmdInsertTableColumn
 
DoCmd.RunSQL ("ALTER TABLE Téléphonie_" & Date_traitée & " ADD COLUMN Datedujour DATETIME;")
 
For Ligne = 1 To 24
    DoCmd.RunCommand acCmdPaste
    DoCmd.RunCommand acCmdRecordsGoToNext
 
Next
DoCmd.RunCommand acCmdClose

Et j'ai le même souci, plantage de la base. Si je mets la commande SQL en commentaire et remets valide la ligne au dessus, la colonne se crée bien (mais avec le nom Champ1). Si cela marche chez toi, je ne comprends pas pourquoi ça plante pour moi :/

[Invité]

Bonjour

Le nom de ta table c'est : Téléphonie_" & DateTraitée & ", n'est ce pas ?

1 - Eviter tous les accents
2 - Met le nom de ta table entre crochet
3 - DateTraitée est donc une variable, elle doit être au format texte, utilise la fonction cstr pour la convertir.

Il n'y a pas de raison que cela ne fonctionne pas.

Code :

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

1
2
 
DoCmd.RunSQL ("ALTER TABLE [Téléphonie_" & Date_traitée & "] ADD COLUMN Datedujour DATETIME;")

Starec

[Tsuna78]

Même souci je comprends pas...

Je regarderai après manger. A toute

[Invité]

Re

Je viens de faire un nouveau test

Code :

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

1
2
3
4
 
Dim dte As Date
    dte = #1/1/2006#
    DoCmd.RunSQL ("ALTER TABLE [test" & CStr(dte) & "] ADD COLUMN Datedujour DATETIME;")

Cela me rajoute bien un champ date à la table test01012006

Je ne comprends vraiment pas.
Tu n'as pas répondu à mes questions précédentes. As-tu un message d'erreur et lequel

Starec

[Tsuna78]

Re,

En fait je n'ai aucun message d'erreur qui apparait. J'ai un gros freeze puis : Ce programme ne répond pas. Tout cela lors de l'exécution

[Oleff]

Bonjour,
Tu ouvres ta table en consultation avant de la modifier. il est possible que le souci viennent de là.
Si la table est ouverte en consultation, elle est verrouillée en modification structurelle.

[Invité]

Re

Merci Oleff, j'avais pas vue ce truc, je ne comprenais pas car l'instruction que j'ai donné est bonne.

Tsuna78, met mon instruction en début de procédure

Starec

[Tsuna78]

Ca m'échappe quand même. J'ai tout mis en commentaire (les instructions servaient à remplir la colonne nouvellement créée). J'ai donc juste laissé l'instruction SQL, j'ai mis tout le reste en commentaire. Et pourtant je plante de la même façon... Pas de message d'erreur, plantage. Je ne sais pas si je fais une mauvaise manip ou pas.

Code actuel :

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
18
 
'------------------------------------------------------------------------------|
' Rajout d'une colonne dans la table : Ajout de la date en cours de traitement |
'------------------------------------------------------------------------------|
 
    'Me!Date_en_traitement.SetFocus
    'DoCmd.RunCommand acCmdCopy
 
    DoCmd.RunSQL ("ALTER TABLE [Téléphonie_" & Date_traitée & "] ADD COLUMN Datedujour DATETIME;")
 
    'DoCmd.OpenTable Table, acViewNormal, acEdit
    'DoCmd.RunCommand acCmdInsertTableColumn
 
    'For Ligne = 1 To 24
    '    DoCmd.RunCommand acCmdPaste
    '    DoCmd.RunCommand acCmdRecordsGoToNext
    'Next
    'DoCmd.RunCommand acCmdClose

[Invité]

Re

Tu n'as pas encore répondu à mes questions, lit les post précédents

Starec

[rafuoner]

et pourquoi pas utiliser la méthode Append pour rajouter ton champ.

En gros cela donnerait ca :
CurrentDb.TableDefs!NomDeLaTable.Fields.Append CurrentDb.TableDefs!NomDeLaTable.CreateField("Datedujour", dbDate)

@+
rafu0n3r

[Tsuna78]

Starec : Je ne vois pas les questions que tu poses :/

Je ne vois qu'une question, concernant les QueryDef et je ne l'utilise pas.
Sinon Date_Traitée est au format texte.