Salut le Forum,

Je me permet de vous soumettre un problème archi-traité, mais malgré toutes les discussions consultées et l'excellent guide DAO, je n'ai pas résolu mon problème

J'ai une table Test02 dont je voudrais modifier le format d'affichage d'un champ en vba. J'ai essayé avec le code suivant mais j'ai une erreur 3421 - erreur de conversion de type de données lors de la méthode CreateProperty.

Lorsque j'ouvre ma table (pas en vba cette fois) en mode création je constate que je peux changer le format pour le mettre en standard sachant que le type du champ que je veux changer est Réel Double. Je n'arrive pas à répliquer cette action apparemment simple en vba... Avez vous une idée ?

Merci pour votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Sub DD()
 Dim Tbl As DAO.TableDef
Dim Pr As DAO.Property
 
Set Db = DBEngine.Workspaces(0).Databases(0)
 
Set Tbl = Db.TableDefs("Test02")
Set Pr = Tbl.Fields("Champ2").CreateProperty("Format", dbDouble, "# ##0.00")
Tbl.Fields("Champ2").Properties.Append Pr
 
End Sub