Discussion :

[jazzybluesy]

"Bonjour"
"Tout d'abord, bon nombre de propriétés de la collection Properties ne sont pas créées jusqu'à ce qu'une valeur ne leur soit affectée. Ainsi, la propriété description de l'objet TableDef n'existe pas si vous n'avez pas encore saisi la description de la table sous Access."

Je viens de finir le tuto sur le langage DAO et je suis en train de changer les propriétés de mes champs dynamiquement. Et là je suis tombé sur un problème: la propriéte Format n'existait pas encore pour l'un de mes champs alors qu'il est de type "Nombre".

Je me suis rappelé de ce qui était écrit dans le tuto et je me suis dit que c' était normal parce que il n'avait pas encore de valeur assignée.

Mon problème c'est que je ne sais pas du coup, comment faire pour assigner une valeur à une propriété qui n'exite pas. Dois je créer la propriéte ? (sachant que c'est pas une propriéte perso, il faut qu'ACCESS reconnaisse que c'est la proprieté format )

Merci d'avance

[loufab]

Bonjour,
Effectivement certaines propriétés n'existent pas avant d'avoir été définies. Par code il faut les créer, puis leur assigner une valeur.

Voici un exemple de code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
    If ofld.Properties("Format") Then
        'Change la valeur
        ofld.Properties("Format") = "yyyymmdd"
    End If
 
fin:
    On Error GoTo 0
    Exit Function
 
errSub:
    If Err.Number = 3270 Then
        ofld.Properties.Append ofld.CreateProperty("Format", dbText, "yyyymmdd")
        Resume fin
    End If
    Resume

Si la propriété est valide il reconnaitra le nom.

Cordialement,

[jazzybluesy]

Merci pour cette réponse. C est effectivement ce que j avais fini par faire a part que je n avais pas creer la propriete dans la gestion de l erreur mais dans un bloc if existproperty = false then.

Merci