Discussion :

[informer]

Bonjour à tous,

J'ai eu beau chercher je n'ai pas trouvé comment avec TableDef je peux transformer un champ texte en décimal (18,8) sachant que

Code SQL :

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

1
2
ALTER TABLE TExport_Cal_FG_COU_Final 
ALTER COLUMN Qte_OF_PF DECIMAL (18,8)

Me génère un message d'erreur qu'elle soit lancer le générateur de requête ou de docmd.runsql ou currentdb.excute.

Merci par avance

[marot_r]

Bonjour.

Je ne suis pas sur que ce soit faisable.

Je souspconnes Access de faire une creation suivi d'une suppression en cachette quand tu passes par l'interface.

Si c'est possible, c'est probablement quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
dim db as dao.database:set db=currentdb
dim t as dao.tabledef:set t=db.tabledefs("TaTable")
dim f as dao.field: set f=t.fields("TonChamp")
f.type=adText
f.size=255
set f=nothing
set t=nothing
db.close:set db=nothing

Évidement si ton besoin est juste d'afficher un nombre en texte, tu peux utiliser une requête et la fonction Format().

A+

[tee_grandbois]

bonjour,

Je souspconnes Access de faire une creation suivi d'une suppression en cachette quand tu passes par l'interface.

Je confirme ce que dit marot_r:
il semble que par DAO il ne soit pas possible de le faire directement avec un champ déjà existant, j'ai essayé mais j'ai l'erreur d'exécution 3219 "Opération non valide".
je pense qu'il faut créer un nouveau champ puis supprimer l'ancien.

[Arkham46]

Bonjour,

Avec ado est-ce que ça passe ?

Code :

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

currentProject.connection.execute "Alter ..."

[hyperion13]

Une solution

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande1_Click()
    Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Set dbs = CurrentDb()
    Set tdf = dbs.TableDefs("TExport_Cal_FG_COU_Final")
    tdf.Fields.Append tdf.CreateField("Qte_OF_PF", dbSingle) 'Ajoute le champ numérique réel simple
    tdf.Fields.Delete "Qte_OF_PF" 'Supprime le champ
    Set fld = Nothing
    Set tdf = Nothing
    Set dbs = Nothing
End Sub

[hyperion13]

Bonjour hyperion13
Merci pour le code mais 2 objections
Je veux déclarer un champ en Décimal
L'ajout se fait en dernière position et je dois garder une même structure car la table est ensuite cha

Nous sommes bien d'accord Qte_OF_PF est bien de type Texte à l'origine et tu veux le modifier en numérique, réel simple.
Quelle est la position du champ Qte_OF_PF dans la tbl svp ? Le champ contient-il déjà des valeurs ?

[informer]

Nous sommes bien d'accord Qte_OF_PF est bien de type Texte à l'origine et tu veux le modifier en numérique, réel simple.
Quelle est la position du champ Qte_OF_PF dans la tbl svp ? Le champ contient-il déjà des valeurs ?

• Je veux passer un champ texte en champ DECIMAL(18,8)
• Et mon champ doit rester à la même position dans ma table car elle est ensuite historisée dans une table qui a la même structure à la marge de 2 champs dDate et Seq.

Merci pour ton aide hyperion13

[tee_grandbois]

bonjour informer,

Je veux passer un champ texte en champ DECIMAL(18,8)

le souci est que DAO ne reconnait pas le type dbDecimal (qui est pourtant membre de DataTypeEnum) en création de champ, l'erreur 3259 est levée (type de champ de données non valide).
- Peux-tu expliquer pourquoi la table doit être créée par code et pas manuellement ?
- La table est-elle vide ou chargée lorsque que tu souhaites créer ou modifier le champ ?

[informer]

Tee_grandbois,

J'ai hérité d'un projet Access dans lequel tous les champs de toutes les tables sont en texte, un choix malheureux mais c'est comme ça.

Je fais une requête qui depuis une requête crée une table mais même en castant les champs du bon type, la table créée est tout en texte.

Voilà mon problème

Bien sûr , je peux faire une table modèle et la copier en structure pour que la requête charge cette table copie de la master mais préferais la solution de modifier les champs texte au bon format et notamment en Décimal.


Si pas possible de passer par ALTER TABLE ALTER COLUMN alors on bascule sur la solution dégradée.

Merci encore pour ton aide

[hyperion13]

Le plus simple alors, aurait été de créer manuellement la tbl TExport_Cal_FG_COU_Final, de formater correctement l'ensemble des champs et d'utiliser une req Ajout pour alimenter ladite tbl.
A tester

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
Private Sub Commande1_Click()
    Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Set dbs = CurrentDb()
    dbs.TableDefs.Refresh
    Set tdf = dbs.TableDefs("TExport_Cal_FG_COU_Final")
    Set fld = tdf.CreateField("Qte_OF_PF_New", dbSingle)
    fld.OrdinalPosition = X ' remplacer X par le numéro de ligne qui suit Qte_OF_PF. En clair, si Qte_OF_PF est le 4è champ de la tbl remplacer X par 5
    tdf.Fields.Append fld
    dbs.Execute "Update TExport_Cal_FG_COU_Final Set Qte_OF_PF_New=Qte_OF_PF", dbFailOnError
    tdf.Fields.Delete "Qte_OF_PF"
    tdf.Fields.Refresh
    tdf.Fields("Qte_OF_PF_New").Name = "Qte_OF_PF"
    tdf.Fields.Refresh
    Set tdf = Nothing
End Sub

[informer]

Bonjour hyperion13 ,

Super info qui resoudrait mon problème si je savais comment créer un champ au format decimal (18,8) ?

Mais encore merci pour le

Code :

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

fld.OrdinalPosition = X '

[Tortille]

Bonjour,
Juste une une idée :
Au lieu de transformer le champs en DECIMAL(18,8), faire le contraire : transformer les champs DECIMAL(18,8) en TEXT(XX),
Bien sur il faut créer manuellement 1 table vide modèle avec le nombre de colonnes maxi en DECIMAL(18,8) puis tu dupliques cette table avant de renommer, transformer en TEXT(XX) les champs à conserver en l'état et enfin les remplir avec ceux de ta table initiale toute en TEXT.

[informer]

Bonjour Tortille ,


J'en suis arrive à cette solution.

La question était de savoir s'il était possible avec du VBA / SQL de declarer/formatter un champ en DECIMAL.

Il semblerait que pas facile car si creation par SAL alors pas la main sur la position de l'ajout du champ sauf peut-être à utliser

Code :

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

fld.OrdinalPosition = X '

Mais pas le temps de voir comment

Merci pour ton aide

[Arkham46]

Bonjour,

Avec ado est-ce que ça passe ?

Code :

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

currentProject.connection.execute "Alter ..."

Je réitère ma question.
Avec ADO ça doit fonctionner.

[informer]

Arkham46 ,

Dès que je le teste, je te fais un retour!

Merci encore