Bonjour a tous.

j'en avais assez d'etre oblige d'ajuster la taille des colonnes quand je visualisais mes tables.

j'ai fait le bricolage suivant qui peut surement etre ameliore :
  1. Creer un formulaire vierge
  2. Y ajouter un controle sous-formulaire (sfrmAdjustColumn) SANS indiquer de source,
  3. Mettre le code suivant sur OnOpen (sur ouverture).
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    '=== Adjust columns
    Me.sfrmAdjustColumn.SourceObject = "Table.NomVotreTable" 'Defini la table.
    On Error Resume Next
    Dim c As Control
    For Each c In Me.sfrmAdjustColumn.Controls
        c.ColumnWidth = -2 'Autofit
    Next c
    '--- Adjust columns
  4. Sauvegarder le formulaire.
  5. L'ouvrir.
  6. Le fermer en confirmant que l'on veut sauvegarder ... et voila quand j'ouvre la table directement, toutes mes colonnes affichent au moins leur titre !


Ca devrait marcher avec les versions anterieures au moins jusqu'a Access 2007 selon moi mais je n'ai pas pu verifier.
Je ne suis pas sur que les versions non accdb supporte le Table.NomTable comme source.
Si quelqu'un peut confirmer.

En passant ca marche aussi pour les requetes de en changeant la source pour Query.NomQuery.

A+