Discussion :

[maverick91]

Bonjour à tous,

je souhaiterais modifier le type de plusieurs champs dans une table. J'utilise donc la syntaxe "alter table nomtable alter nomchamps nouveautype" Ceci marche tres bien cependant ça ne marche que sur un seul champ. J'aimerais le faire sur plusieurs champs dans la meme requete.

Merci

[ClaudeLELOUP]

Bonjour,
Cette sub te permet d'accéder aux différents champs de ta table :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub AménagerTable(LaTable As String)
Dim db As DAO.Database
Dim fld As DAO.Field
Dim tbl As DAO.TableDef
Set db = CurrentDb
Set tbl = db.TableDefs(LaTable)
For Each fld In tbl.Fields
Debug.Print fld.Name
Debug.Print fld.Type
Next
End Sub

Il te reste à remplacer les debug.print par ce que tu veux faire

Code :

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

1
2
3
If fld.name = "LeTexteQueTuVeux" then
fld.type = "NombreQueTuVeux"
end if