Comment simuler en vba le clic sur Totaux du ruban Access 2010 (Onglet Acceuil\enregistrements\totaux)

一般討論 Comment simuler en vba le clic sur Totaux du ruban Access 2010 (Onglet Acceuil\enregistrements\totaux)

  • domingo, 19 de fevereiro de 2012 23:18
     
     

    Bonjour,

    existe t'il un docmd.runcommand quelque chose qui permette d'utiliser le bouton "Totaux" ?

    merci d'avance.

    Julian Alvarez

Todas as Respostas

  • segunda-feira, 20 de fevereiro de 2012 17:14
     
      Contém Código

    Bonjour,

    On peut accéder à n'importe quelle commande des onglets.

    Voici comment procéder :

    1) Commencer par répérer le raccourci de l'onglet en tapant 1 fois sur la touche Alt.

    Access affiche alors le caractère correspondant. Dans le cas de l'Accueil c'est la lettre L.

    2) Tapez sur la touche L.

    Les autres raccourcis apparaissent. Dans le cas de Totaux c'est la lettre T.

    Une fois ceci noté il ne reste plus qu'à faire une petite fonction VBA. Comme celle-ci.

    Function menTotaux()
    ' Totaux ON/Off
    On Error Resume Next
    
    SendKeys "%LT"
    
    End Function

    Sendkeys permet d'envoyer des touches dans le buffer clavier. Cela simule l'appuie sur les touches. Donc dans le code précédent on simule la touche Alt + L + T qui simule l'appuie du Accueil/Enregistrement/Totaux.

    % = Alt

    ^ = Ctrl

    ...

    Une fois cette fonction déclarée on peut l'appeler de n'importe où.

    Cordialement,


    Visitez mes sites : http://2gm.free.fr | http://loufab.developpez.com

  • terça-feira, 21 de fevereiro de 2012 21:02
     
     

    Bonjour et merci beaucoup pour cette réponse.

    J'aimerai simplement savoir s'il est possible d'obtenir ce résultat sans utiliser sendkeys ?

    Merci d'avance.

    Julian Alvarez

  • quarta-feira, 22 de fevereiro de 2012 13:25
     
     
    Je n'ai pas trouvé, c'est pour cela que je te donne cette solution. Cela ne veux pas dire que ça n'existe pas.

    Visitez mes sites : http://2gm.free.fr | http://loufab.developpez.com