Formulaire de dialogue
Résolu
GASTON22
Messages postés
204
Date d'inscription
Statut
Membre
Dernière intervention
-
GASTON22 Messages postés 204 Date d'inscription Statut Membre Dernière intervention -
GASTON22 Messages postés 204 Date d'inscription Statut Membre Dernière intervention -
Bonjour tous le monde,
j'aimerai faire un formulaire de dialogue (je sais pas si c'est le nom exact) qui contient des bandes déroulantes je fait mon chois puis je clic sur recherche et sa me fait une recherche sur les critère que je veux.
merci de m'aider je compte sur vous
j'aimerai faire un formulaire de dialogue (je sais pas si c'est le nom exact) qui contient des bandes déroulantes je fait mon chois puis je clic sur recherche et sa me fait une recherche sur les critère que je veux.
merci de m'aider je compte sur vous
A voir également:
- Formulaire de dialogue
- Whatsapp formulaire opposition - Guide
- Formulaire de réclamation facebook - Guide
- Dialogue boost - Accueil - Guide streaming
- Formulaire de reclamation instagram - Guide
- Télécharger dialogue anglais mp3 - Télécharger - Vie quotidienne
3 réponses
Re,
dans le code lorsqu'on clique sur ton bouton ( sub nombouton_click())
Mets ce code :
Ensuite, tu veux faire quoi avec les résultats de ta requête ?
dans le code lorsqu'on clique sur ton bouton ( sub nombouton_click())
Mets ce code :
Dim qdf As DAO.QueryDef
Dim rs As Recordset
Set qdf = CurrentDb.QueryDefs("nomdetarequete")
qdf.Parameters("nomduparametre") = valeuràutiliser '(matxtbox.value, maliste.value....)
'.... a répeter pour tous tes paramètres
Set rs = qdf.OpenRecordset 'execution et ouverture de ta requete
rs.close:set rs=nothing 'fermeture de la requete
Ensuite, tu veux faire quoi avec les résultats de ta requête ?
Bonjour,
"je fait mon choix puis je clique sur recherche et ça me fait une recherche sur les critères que je veux. "
Deux solutions: soit par la requête sous-jacente au formulaire (ou à l'état) que tu veux ouvrir, soit directement à l'ouverture du formulaire (ou de l'état)
- 1) par la requête : Mettre comme critère de sélection dans la requête (soit en visuel soit en VBA) "=Formulaires!FormulaireABC!ContrôleDEF" (ou < ou > ou like "...*", ce que tu veux), avec tous les critères que tu veux.
- 2) directement à l'ouverture, avec la macro ou le code VBA "docmd.OpenForm "NomDuFormulaire","...","..." etc " (ou "DoCmd.OpenReport """) Bien suivre toutes les indications de l'assistant et les variables requises, jusqu'à celles demandant les critères "ChampA=Formulaires!FormulaireABC!ContrôleDEF and ChampB=Formulaires!FormulaireABC!ContrôleGHI and etc", et continuer les autres variables requises.
C'est très facile, et l'assistant est très bien fait, il apparait quand on commence à écrire la 1ère expression DoCmd.OpenForm"..." ou DoCmd.OpenReport "..."
Mais attention, la recherche dans ce 2ème cas, se fait par les champs sous-jacents aux contrôles et non pas par les contrôles, il faut donc nommés les champs de la table ou de le requête sous-jacente au formulaire à ouvrir.
Bon courage.
"je fait mon choix puis je clique sur recherche et ça me fait une recherche sur les critères que je veux. "
Deux solutions: soit par la requête sous-jacente au formulaire (ou à l'état) que tu veux ouvrir, soit directement à l'ouverture du formulaire (ou de l'état)
- 1) par la requête : Mettre comme critère de sélection dans la requête (soit en visuel soit en VBA) "=Formulaires!FormulaireABC!ContrôleDEF" (ou < ou > ou like "...*", ce que tu veux), avec tous les critères que tu veux.
- 2) directement à l'ouverture, avec la macro ou le code VBA "docmd.OpenForm "NomDuFormulaire","...","..." etc " (ou "DoCmd.OpenReport """) Bien suivre toutes les indications de l'assistant et les variables requises, jusqu'à celles demandant les critères "ChampA=Formulaires!FormulaireABC!ContrôleDEF and ChampB=Formulaires!FormulaireABC!ContrôleGHI and etc", et continuer les autres variables requises.
C'est très facile, et l'assistant est très bien fait, il apparait quand on commence à écrire la 1ère expression DoCmd.OpenForm"..." ou DoCmd.OpenReport "..."
Mais attention, la recherche dans ce 2ème cas, se fait par les champs sous-jacents aux contrôles et non pas par les contrôles, il faut donc nommés les champs de la table ou de le requête sous-jacente au formulaire à ouvrir.
Bon courage.
Salut,
Reste plus qu'à faire ...
Créer un formulaire avec les champs que tu veux mettre en critère (textbox, liste déroulante, case a cocher ...) et ensuite créer un bouton qui récupéra les données via une requête SQL du type :" SELECT nomdeschamps... FROM tables WHERE champs1=moncritere...."
Reste plus qu'à faire ...
Créer un formulaire avec les champs que tu veux mettre en critère (textbox, liste déroulante, case a cocher ...) et ensuite créer un bouton qui récupéra les données via une requête SQL du type :" SELECT nomdeschamps... FROM tables WHERE champs1=moncritere...."
Puis enleve les 2 dernières lignes du code précédant et remplace les par :
D'accord, créer ton état avec ta requete comme source de données.
Puis enleve les 2 dernières lignes du code précédant et remplace les par :
Ps : j'ai jamais fait sa encore :) Donc cela peux qu'il y ai des erreurs...
Tiens moi au courant des problèmes rencontrés
il faut que je comprend le code déja :(
Option Compare Database
Dim qdf As DAO.QueryDef
Dim rs As Recordset
Set qdf = CurrentDb.QueryDefs("Report A In C")
qdf.Parameters("Part class") = E_COD_ABC_CLASS '(matxtbox.value, maliste.value....)
'.... a répeter pour tous tes paramètres
DoCmd.OpenReport "Report A In C", acViewReport, "", qdf
Qdf est un objet permettant d'utiliser une requete déjà définie dans ACCESS
on peut enlever "Dim rs As Recordset" car on ne l'utilise pas.
E_COD_ABC_CLASS est le nom d'un de tes champs de ton formulaire ? Qu'est ce que c'est ? une textebox, une liste ..?
Es ce que déjà tu as testé ta requete pour voir si elle fonctionne ?
Option Compare Database sub btn_click() Dim qdf As DAO.QueryDef Set qdf = CurrentDb.QueryDefs("Report A In C") qdf.Parameters("Part class") = E_COD_ABC_CLASS '(matxtbox.value, maliste.value....) '.... a répeter pour tous tes paramètres DoCmd.OpenReport "Report A In C", acViewReport, "", qdf end subc'est bon j'ai trouvé :D sa marche maintenant mais j'ai pas utilisé le VBA j'ai fait comme la dis tessel visual direct c'est plus simple (bon sa rame un peu mais j'ai pas le choix maintenant je l'améliorai une autre fois quand j'ai le temps )
encore merci pour ton aide :)