Discussion: Masquer le "volet de navigation" [AC-2010]

  1. #1
    Membre éclairé
    Inscrit en
    juillet 2006
    Messages
    357
    Détails du profil
    Informations forums :
    Inscription : juillet 2006
    Messages : 357
    Points : 325
    Points
    325

    Par défaut Masquer le "volet de navigation"

    Bonjour à tous,

    Lorsque je lie une table Access par du code, le "volet de navigation" apparait à l'écran.

    Connaissez-vous un moyen de le faire disparaitre ?

    J'ai trouvé une discussion similaire mais qui ne répond pas à ma question :
    http://www.developpez.net/forums/d92...et-navigation/
    Le code fournit permet de masquer le ruban, mais pas le volet de navigation.

    Merci d'avance pour vos réponses.

    PS : je vous met le bout de code qui me génére ce problème :
    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
    31
    32
    33
    34
    35
    36
    Sub CopyTable(ByVal strSourceTable As String, strDestTable As String, boCopyDatas As Boolean, boInTableDistante As Boolean, Optional strTableDistPath As String)
    'recopie une table ou seulement sa structure dans la base courante ou dans une base distante
    'et fait la liaison si la table est une table liée
     
    'verifie si la table de destination existe et la supprime
    Call suppri(strDestTable)
     
    If boInTableDistante Then
    'si les donnes doivent etre envoyées vers une table distante
        If boCopyDatas Then
            'si on copie les donnees
            DoCmd.RunSQL "select * into [" & strDestTable & "] in '" & strTableDistPath & "' from [" & strSourceTable & "]"
            DoCmd.TransferDatabase acLink, "Microsoft Access", strTableDistPath, acTable, strDestTable, strDestTable
        Else
            'si on copie la structure seulement
            DoCmd.RunSQL "select * into [" & strDestTable & "] in '" & strTableDistPath & "' from [" & strSourceTable & "] where false"
            DoCmd.TransferDatabase acLink, "Microsoft Access", strTableDistPath, acTable, strDestTable, strDestTable
        End If
    Else
        If boCopyDatas Then
            'si on copie les donnees
            DoCmd.RunSQL "select * into [" & strDestTable & "] from [" & strSourceTable & "]"
        Else
            'si on copie la structure seulement
            DoCmd.RunSQL "select * into [" & strDestTable & "] from [" & strSourceTable & "] where false"
        End If
    End If
     
       'On Error GoTo 0
       Exit Sub
     
    CopyTable_Error:
     
        MsgBox "Error " & Err.Number & " (" & Err.DESCRIPTION & ") in procedure CopyTable of Module oDivers"
     
    End Sub
    et l'appel à cette procédure :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Call CopyTable("zz_cai", "zz_cai_PRIO", False, True, "c:\mabase.mdb")

  2. #2
    Rédacteur
    Avatar de LedZeppII
    Homme Profil pro
    Maintenance données produits
    Inscrit en
    décembre 2005
    Messages
    4 477
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Maintenance données produits
    Secteur : Distribution

    Informations forums :
    Inscription : décembre 2005
    Messages : 4 477
    Points : 7 562
    Points
    7 562

    Par défaut

    Bonjour,

    Ce code (Comment afficher ou masquer la fenêtre de base de données ?) fonctionne avec le volet de navigation dans Access 2007.
    Il devrait encore fonctionner dans Access 2010.

    A+

  3. #3
    Membre éclairé
    Inscrit en
    juillet 2006
    Messages
    357
    Détails du profil
    Informations forums :
    Inscription : juillet 2006
    Messages : 357
    Points : 325
    Points
    325

    Par défaut

    C'est nikel, merci beaucoup

+ Répondre à la discussion
Cette discussion est résolue.

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo