Discussion :

[totothm]

bonjour,

le code suivant ne fonctionne pas:

Dim tblTest as TableDef
Dim fldTest ad Field
Set tblTest = CurrentDb.Tabledef("Tbl_Clients")
Set fldTest = tblTest.Fields("Cl_Nom")

taille = fldTest.Size

merci pour toute aide

[pgz]

Bonjour,

Tu as déjà un pb ici:

Code :

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

Set tblTest = CurrentDb.Tabledef("Tbl_Clients")

Qui devrait plutôt s'écrire

Code :

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

Set tblTest = CurrentDb.Tabledefs("Tbl_Clients")

Bonne chance,
pgz