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 ?
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 ?
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
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
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 ?
cela vient sans doute de tes options de comparaison
fais ucase(Left(matable.Name, 4)) <> "MSYS"
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 !
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager