Discussion :

[dyree]

bonjour, je souhaiterai modifier les propriétés des champs de mes tables et particulierement mettre chaine vide autorisée a TRUE quand le champ le permet.
quelqu'un aurait il une idée ?

[pgz]

Bonjour,

Pour les champs texte ou mémo, chaîne vide autorisé, c'est la propriété AllowZeroLenght.
Valeur Null c'est la propriété Requiered.

Dans les deux cas ces propriétés sont en lexture/écriture pour les champs d'une Tabledef.

Bon courage,

pgz

[random]

comme ca peut être

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
sub videok()
Dim mabase As DAO.Database
Dim matable As DAO.TableDef
Dim monchamp As DAO.Field
Set mabase = CurrentDb()
For Each matable In mabase.TableDefs
If Left(matable.Name, 4) <> "msys" And Len(matable.Connect) = 0 Then
For Each monchamp In matable.Fields
If monchamp.Type = 10 Then monchamp.AllowZeroLength = True
Next monchamp
End If
Next matable
End Sub

[dyree]

ok merci cela fonctionne tres bien

par contre jai un probleme.

il bloque au niveau de la table MsysObjects , alors que le test
If Left(matable.Name, 4) <> "msys" aurait du l'ecarter
une idée ?

[random]

cela vient sans doute de tes options de comparaison
fais ucase(Left(matable.Name, 4)) <> "MSYS"

[dyree]

ok merci ,

en fait je men etais sorti avec un

reg.Pattern = "Msys"

For Each tbd In Db.TableDefs
If Left(tbd.Name, 4) <> "Msys" And tbd.Name <> "MsysObjects" And Len(tbd.Connect) = 0 Then
If reg.test(tbd.Name) = False Then
...

ultra lourd certe
merci encore !