En d�finissant la propri�t�
AllowZeroLength, vous pouvez contr�ler si une cha�ne de longueur nulle ("") est une entr�e valide pour les champs texte et M�mo. La valeur par d�faut de la propri�t�
AllowZeroLength est
non. Pour d�finir la propri�t�
AllowZeroLength sur
Oui pour chaque table dans une base de donn�es, proc�dez comme suit :
Attention : Si vous suivez les �tapes de cet exemple, vous modifier la base de donn�es Comptoir.mdb. Vous souhaiterez peut-�tre sauvegarder le fichier Comptoir.mdb et suivre ces �tapes sur une copie de la base de donn�es.
Remarque : l'exemple de code dans cet article utilise Microsoft Data Access Objects. Pour ce code s'ex�cute correctement, vous devez r�f�rencer la biblioth�que d'objets Microsoft DAO 3.6. Pour ce faire, cliquez sur
r�f�rences dans le menu
Outils dans Visual Basic Editor et assurez-vous que la case � cocher
Biblioth�que d'objets Microsoft DAO 3.6 est activ�e.
- D�marrez Microsoft Access et ouvrez la base de donn�es Comptoir.mdb.
- Cr�er un module et tapez la ligne suivante dans la section D�clarations si elle n'est pas d�j� :
Option explicite
- Tapez ou collez la proc�dure suivante :
Function SetAllowZeroLength ()
Dim I As Integer, J As Integer
Dim db As DAO.Database, td As TableDef, fld As Field
Set db = CurrentDB()
'The following line prevents the code from stopping if you do not
'have permissions to modify particular tables, such as system
'tables.
On Error Resume Next
For I = 0 To db.TableDefs.Count - 1
Set td = db(I)
For J = 0 To td.Fields.Count - 1
Set fld = td(J)
If (fld.Type = DB_TEXT Or fld.Type = DB_MEMO) And Not _
fld.AllowZeroLength Then
fld.AllowZeroLength = True
End If
Next J
Next I
db.Close
End Function
- Pour tester la fonction, tapez la ligne suivante dans la fen�tre ex�cution et appuyez sur ENTR�E :
? SetAllowZeroLength()
Notez qu'apr�s quelques secondes, la propri�t� AllowZeroLength prend Oui pour tous les champs de texte et M�mo dans chaque table dans la base de donn�es.
Remarque: � modifier le
If... Then condition et l'affectation qui suit imm�diatement dans le code ci-dessus, vous pouvez parcourir les tables �galement modifier les propri�t�s de champ suivantes :
nom,
ValidationRule,
ValidationText,
obligatoire et
DefaultValue.