Modifier format et légende du champ d'une table en vba

**ruman** · 22/02/2006, 13h12

Bonjour,

J'ai besoin de créer une table à la volée dans laquelle je défini les valeurs des propriétés "format" et "caption" des champs insérés. Ceci pour une utilisation dans un graphique.

Voici le code que j'utilise :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Function CreerTable()
    Dim bds As Database
    Dim dft As TableDef
    Dim chp As Field
    Dim NomTb As String
 
    NomTb = "TEff" & Environ("COMPUTERNAME")
    Set bds = CurrentDb
    bds.TableDefs.Refresh
    For Each dft In bds.TableDefs
        If dft.Name = NomTb Then
            bds.TableDefs.Delete dft.Name
        End If
    Next dft
    Set dft = bds.CreateTableDef(NomTb)
    Set chp = dft.CreateField("Nom du contact", dbText, 40)
    dft.Fields.Append chp
    Set chp = dft.CreateField("Jour", dbDate)
    dft.Fields.Append chp
    Set chp = dft.CreateField("Val1", dbByte)
    dft.Fields.Append chp
    dft.Fields.Refresh
    bds.TableDefs.Append dft
    bds.TableDefs.Refresh
    Set bds = Nothing
    DoCmd.OpenTable NomTb, acViewDesign
    CurrentDb.TableDefs(NomTb)("Val1").Properties("caption").Value = "Opératrice"
    CurrentDb.TableDefs(NomTb)("Jour").Properties("format").Value = "jj/mm/aaaa"
    DoCmd.Close acTable, NomTb, acSaveYes
End Function

J'obtiens une erreur au moment d'affecter la valeur "Opératrice" à la légende du champ "Val1".

Message d'erreur : Erreur 3270, propriété non trouvée.

Par contre, si après avoir créé la table (sans chercher à modifier la légende) je vais manuellement affecter une légende et qu'ensuite j'applique le code sur l'erreur était apparue, tout se passe correctement. C'est comme si il fallait initialiser la propriété avant de la modifier.

Quelqu'un pourrait-il me conseiller?

Invité · 22/02/2006, 13h17

Salut

Il ne manquerait pas quelque chose derriere le dbByte ?

Starec

**ruman** · 22/02/2006, 13h47

J'y avait pensé également mais l'élément suplémentaire est la taille (en octets) du champ dans le cas où il est de type texte.

Invité · 22/02/2006, 13h55

Re

Je sais, j'ai déjà utilisé cela, mais avec dbLong,20 et cela fonctionne essaye. Je ne peux tester pour l'instant

Starec

**ruman** · 22/02/2006, 14h01

Je ne vois pas ce que cela va m'apporter. Je veux un champ date et un champ octet. Même si je modifie le type des champs cela ne me permet toujours pas de modifier les propriétés "caption" et "format". Hors c'est là-dessus que je bloque.

Invité · 22/02/2006, 14h06

Re

Je crois avoir compris

1 - Créer ta table avec seulement ton premier champ
2 - Ensuite ajoute tes autres champs

Il me semble avoir dut faire une astuce de ce genre

Starec

**ruman** · 22/02/2006, 15h51

J'ai fait ce que tu proposes :

1 - Créer la table avec juste le premier champ => OK
2 - Ajouter les autre champs => OK
3 - Modifier la propriété "caption" de l'un d'entre eux => erreur 3270

J'ai cherché du côté de CreateProperty pour initialiser la propriété mais d'après ce que j'ai compris c'est à utiliser pour définir des propriétés personnelles.

Invité · 22/02/2006, 15h54

Re

Tu as

Code :

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

1
2
 
CurrentDb.TableDefs(NomTb)("Val1").Properties("caption").Value = "Opératrice"

Essaye

Code :

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

1
2
 
CurrentDb.TableDegs(NomTb).Field("Val1").name = "Opératrice"

Starec

Invité · 22/02/2006, 15h56

Re

De plus ne met pas ta table en mode Design, ne l'ouvre pas

Starec

**ruman** · 22/02/2006, 16h09

Effectivement, sans passer en mode design la mise à jour se fait. Mais c'est le nom du champ qui change et pas sa légende (le texte à mettre ne se prète pas pour être utilisé comme un nom de champ). De plus j'ai besoin de modifier également le format.

Invité · 22/02/2006, 16h21

Re

Qu'entends tu par légende , il n'y a pas cette propriété pour un champ, c'est le nom, le type.

Starec

Invité · 22/02/2006, 16h24

Re
OK
Je pense que cela vient de :

Code :

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

1
2
 
CurrentDb.TableDefs(NomTb)("Val1").Properties("caption").Value = "Opératrice"

tu ne rapelle pas le champ

Code :

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

1
2
 
CurrentDb.TableDefs(NomTb).fields("Val1").Properties("caption").Value = "Opératrice"

Pas testé essaye

Starec

**ruman** · 22/02/2006, 16h25

Excuse moi, c'est la francisation de la propriété "caption".

**ruman** · 22/02/2006, 16h31

Toujours la même chose : propriété non trouvée

Je ne pense pas que ce soit un problème de syntaxe puisqu'avec la même syntaxe, si j'initialise manuellement dans la table la propriété caption en lui attribuant une valeur, la modification est prise en compte.

Invité · 22/02/2006, 16h32

Re

Désolé, là je coince, c'est quoi que tu veux mettre dans ta table avec "operatrice" et "jj/mm/aa".

Starec

**ruman** · 22/02/2006, 16h37

Le but de la table est de contenir les données d'un graphique qui présente les effectifs par jour et par fonction d'une entreprise.

Pour obtenir ces données, je suis obligé d'appliquer un algo que je ne peut pas remplacer par une requête.

Le graphique, inclu dans un formulaire utilise alors cette table comme source de données.

Invité · 22/02/2006, 16h39

Re

Oui mais Operatrice et jj/mm/aa se sont quoi ?

Starec

Invité · 22/02/2006, 16h43

Re

Trouvé dans l'aide
Objet Property

Un objet Property représente une caractéristique dynamique d'un objet ADO défini par le fournisseur.

Remarques

Les objets ADO ont deux types de propriétés : intégrées et dynamiques.

Les propriétés intégrées sont implémentées dans ADO et immédiatement disponibles pour tout nouvel objet, à l'aide de la syntaxe MyObject.Property. Elles n'apparaissent pas en tant qu'objets Property dans la collection Properties d'un objet et vous pouvez donc modifier leurs valeurs, mais pas leurs caractéristiques.

Les propriétés dynamiques sont définies par le fournisseur de données sous-jacentes et apparaissent dans la collection Properties de l'objet ADO approprié. Par exemple, une propriété spécifique au fournisseur peut indiquer si un objet Recordset prend en charge les transactions ou les mises à jour. Ces propriétés supplémentaires apparaissent en tant qu'objets Property dans la collection Properties de cet objet Recordset. Les propriétés dynamiques peuvent uniquement être référencées via la collection, en utilisant la syntaxe MyObject.Properties(0) ou MyObject.Properties("Name").

Aucun de ces deux types de propriétés ne peut être supprimé.

Un objet Property dynamique comporte quatre propriétés intégrées qui lui sont propres, à savoir :

La propriété Name est une chaîne identifiant la propriété.

La propriété Type est un entier spécifiant le type de donnée de la propriété.

La propriété Value est un variant contenant la valeur de la propriété.

La propriété Attributes est une valeur de type Long indiquant les caractéristiques de propriétés spécifiques au fournisseur

Ensuite je coince désolé

Starec

**ruman** · 23/02/2006, 14h53

Merci pour tes recherches mais je ne vois pas non plus ce que je peux en tirer.

Opératrice c'est une des fonctions (au même titre que je pourrais avoir technicien, secrétaire...).

jj/mm/aaaa est le format auquel je veux que la date soit stocké dans la base.

Invité · 23/02/2006, 15h06

Re

J'étais un peu perdu dans le post précédent

Si opératrice est une fonction c'est juste une donnée du champ, donc ce n'est pas une prorriété, pour la date je pense qu'il faut chercher du coté des attributs, ou du type (l'aide ne marche pas sur mon micro pour DAO)

Starec

Modifier format et légende du champ d'une table en vba

Access

Discussions similaires

Partager

Partager