Discussion :

[faressam]

Bonjour
Je reprends la discusion (dont je n'ai pas le droit de reçusiter)

http://www.developpez.net/forums/sho...d.php?t=194421

Pour une Erreur que j'ai eu dans le code Proposé.

Quand je Compile, il me donne une Erreur comme quoi "RowSourceType " et "RowSource " dans le Code Suivant :

Code :

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

1
2
ListeTables.RowSourceType = "Liste valeurs" 'A traduire dans la langue
ListeTables.RowSource = strListeTables

Merci pour votre Aide

[marot_r]

C'est quoi l'erreur ?

A+

[faressam]

enfin ce n'est pas une Erreur, mais plutôt une truc qui ne marche pas chez moi, et je voulais savoir pourquoi, il me dit que "RowSourceType " et "RowSource" ne sont pas reconnu.

[marot_r]

Vérifie le type ListeTable.

Est-ce bien un objet de type ListBox ou ComboBox ?

A+

[faressam]

Oui tu as raison ça marche, Merci

Mais mon objectif c'était d'afficher le contenu pas les données, mais seulement les Champs, la Structure de la table Choisie.

J'ai fait ça avec une MAcro, qui affiche la Table en mode Ajout de donnée,

mais est ce que je pourrai par Code afficher les Champs de la Table sur des Zones de Textes.

Merci

[marot_r]

Oui, mais c'est quand même assez long comme code.

Pourquoi as-tu besoin de cela ?

Sais-tu qu'il y a dans Outils/Analyse/Documentation un truc qui t'imprime la structure de tous les objets de ta base ?

A+

[faressam]

Je ne connaissais pas ce Composant, mais justement le Faite qu'il n'est pas installé dans le Pack Access, et aussi que j'ouvre ma base en mode minimum pour que Personne n'accéde à mon code ni à ma Tables, mais utilise seulement les interfaces que j'ai mit en Place.

C'est pour ça que je voulais savoir si il y'avait la possibilité de le Faire que par code.

Merci.

[marot_r]

Tu ne veux pas que les gens accèdent à ta base mais tu leur donne toute la structure interne ... surprenant.

Pour faire ce que tu veux, il faut que tu crées une table qui reprend dans des champs les différentes informations défines pour un champ. Si je comprends bien tu veux te limiter aux tables. Je vais te mettre un exemple de code minimaliste, tu pourra l'enrichir selon tes besoins.

Table AnalyseTable
NomTable as String
NomChamp as string
PositionChampDansTable as Integer
TypeChamp as integer
TailleChamp as integer

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
 
dim db as database:set db=currentdb
dim r as recordset:set r=db.openrecordset("AnalyseTable")
dim t as tabledef
dim f as field
for each t in currentdb.tabledefs
  for each f in t.fields
    with r
      .addnew
      ![NomTable]=t.name
      ![NomChamp]=f.name
      ![PositionChampDansTable]=OrdinalPosition
      ![TypeChamp]=f.type
      ![TailleChamp]=f.size
      .edit
    end with
  next f
next t
 
r.close:set r=nothing
db.close:set db=nothing

Si tu veux ajouter les indexs, sache qu'il y a une collection Indexes associé à l'objet tableDef et que chacun de ces indexs a un collection fields contenant des objets Field.

A+