Création de Form avec bouton au lieu Txtbox

philip.dang Messages postés 37 Statut Membre -  
castours Messages postés 2955 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour et merci de m'aider,

Alors je travaille Access 2007,

Lorsque j'utilise le wizard (l'assistant de création de formulaire) pour les forms, j'arrive facilement à avoir un formulaire m'affichant mes résultats dans une partie "Detail" avec : une sorte de textbox dynamique (je ne sais pas ce que c'est exactement, l'objet est une textbox) qui permet d'afficher les résultats de ma requete, sa taille (son nombre de ligne) est fonction du résultat de ma requete.

Mon problème est le suivant :

C'est que j'aimerais reproduire ce genre d'affichage dynamique des résultats de ma requête mais je ne sais pas comment faire.

Pour te mettre dans le contexte :

J'ai 2 tables : MOT et PHRASE dans ma BDD
J'ai une requete1 qui va chercher toutes les phrases contenant un motA. (le motA est tapé dans une textbox).
Sur chaque ligne de mon formulaire : je voudrais afficher la phrase décomposés en mots ex: PHRASE1 = motA, motB, motC.
Chaque mot sera dans un bouton, ex : bouton du motA, bouton du motB, bouton du motC
En cliquant sur le bouton du motB, on pourra faire la requete cherchant tous les phrases contenant motB.

J'espère que ce n'est pas trop confus et que tu pourras m'aider.
Merci

1 réponse

  1. castours Messages postés 2955 Date d'inscription   Statut Membre Dernière intervention   217
     
    Bonjour
    Si je comprends bien tu veux a l'aide d'un bouton ouvrir une requete predefinie.
    Si tu as une requete de faite qui te trouve toute les phrases avec le motA, il te suffit de faire un bouton qui t'ouvre cette requete avec l'aide de la boite a outil.
    Ce que j'indique est faisable sous access 2003, pour 2007 ou 2010 je ne connais pas.
    Voici un exemple de code pour ouvrir une requete predefinie

    Commande33 = Nom du Bouton
    T-Fichier Adresses Requête= Nom De la requete

    Private Sub Commande33_Click()
    On Error GoTo Err_Commande33_Click

    Dim stDocName As String

    stDocName = "T-Fichier Adresses Requête"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

    Exit_Commande33_Click:
    Exit Sub

    Err_Commande33_Click:
    MsgBox Err.Description
    Resume Exit_Commande33_Click

    End Sub
    0