+ Répondre à la discussion
Affichage des résultats 1 à 3 sur 3
  1. #1
    Membre éclairé
    Inscrit en
    juillet 2006
    Messages
    355
    Détails du profil
    Informations forums :
    Inscription : juillet 2006
    Messages : 355
    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 :
    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 :
    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 393
    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 393
    Points : 7 367
    Points
    7 367

    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
    355
    Détails du profil
    Informations forums :
    Inscription : juillet 2006
    Messages : 355
    Points : 325
    Points
    325

    Par défaut

    C'est nikel, merci beaucoup

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

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •