Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Requête sélection dans un formulaire

Requête sélection dans un formulaire

3 réponses
Avatar
Joël GARBE
Bonsoir à tous,

Pour filtrer des enregistrements dans un formulaire, j'utilise une requête
sélection, dans laquelle je mets un critère :
[Groupe] pour le champ Groupe

Dans le formulaire, je positionne un combo "ChoixGroupe" en entête, et je
souhaite filtrer par rapport au contenu de ce champ. (Pour cela, j'ai un
sous-formulaire qui me permet d'afficher les enregistrements correspondants
au groupe)

J'ai le code suivant :

Private Sub ChoixGroupe_AfterUpdate()
MAJRq
End Sub

Sub MAJRq()
Set MaBase = CurrentDb
Set RqSQL = MaBase.QueryDefs("Rq Filtrer Membre Groupe")
Me.ChoixGroupe.SetFocus
RqSQL.Parameters("Groupe") = Me.ChoixGroupe.Text
Me.Refresh
Set RqSQL = Nothing
End Sub

Dès que j'ouvre le formulaire, ou dès qu'on arrive sur l'instruction
Me.Refresh, j'ai la boîte de dialogue me demandant le choix du Groupe.

Comment empêcher l'apparition de cette boîte de dialogue ? (le choix
correspond au contenu du Combo "ChoixGroupe")

Je passe probablement à côté de quelque chose de plus facile, mais je suis
encore loin de la connaissance suffisante d'Access ...

Vous remerciant par avance,
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Evaro
Bonjour,

"Joël GARBE" a écrit dans le message de news:
41a9f17b$0$800$
Bonsoir à tous,

Pour filtrer des enregistrements dans un formulaire, j'utilise une requête
sélection, dans laquelle je mets un critère :
[Groupe] pour le champ Groupe

Dans le formulaire, je positionne un combo "ChoixGroupe" en entête, et je
souhaite filtrer par rapport au contenu de ce champ. (Pour cela, j'ai un
sous-formulaire qui me permet d'afficher les enregistrements
correspondants au groupe)

J'ai le code suivant :

Private Sub ChoixGroupe_AfterUpdate()
MAJRq
End Sub

Sub MAJRq()
Set MaBase = CurrentDb
Set RqSQL = MaBase.QueryDefs("Rq Filtrer Membre Groupe")
Me.ChoixGroupe.SetFocus
RqSQL.Parameters("Groupe") = Me.ChoixGroupe.Text
Me.Refresh
Set RqSQL = Nothing
End Sub

Dès que j'ouvre le formulaire, ou dès qu'on arrive sur l'instruction
Me.Refresh, j'ai la boîte de dialogue me demandant le choix du Groupe.

Comment empêcher l'apparition de cette boîte de dialogue ? (le choix
correspond au contenu du Combo "ChoixGroupe")

Je passe probablement à côté de quelque chose de plus facile, mais je suis
encore loin de la connaissance suffisante d'Access ...



Effectivement,
Pas besoin de VBA (peut-être quand même un Me.Requery dans
ChoixGroupe_AfterUpdate, je ne sais plus) , pas besoin de sous-Formulaire
Sur la ligne Critère, Colonne Groupe de ta requête, tu écris simplement avec
tes petits doigts ou à l'aide du générateur d'expression :
[Formulaires]![NomFormulaire]![Choixgroupe].
@+
Etienne

Avatar
Joël GARBE
Merci Etienne !

Avec un peu de mal à repérer où je devais inscrire ta proposition, je m'en
suis sorti !

Le comportement est celui attendu !!!

Je pense avoir fait un "tout petit pas en avant"

Encore merci et bonne soirée...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Evaro" a écrit dans le message de news:

Bonjour,

"Joël GARBE" a écrit dans le message de news:
41a9f17b$0$800$
Bonsoir à tous,

Pour filtrer des enregistrements dans un formulaire, j'utilise une
requête sélection, dans laquelle je mets un critère :
[Groupe] pour le champ Groupe

Dans le formulaire, je positionne un combo "ChoixGroupe" en entête, et je
souhaite filtrer par rapport au contenu de ce champ. (Pour cela, j'ai un
sous-formulaire qui me permet d'afficher les enregistrements
correspondants au groupe)

J'ai le code suivant :

Private Sub ChoixGroupe_AfterUpdate()
MAJRq
End Sub

Sub MAJRq()
Set MaBase = CurrentDb
Set RqSQL = MaBase.QueryDefs("Rq Filtrer Membre Groupe")
Me.ChoixGroupe.SetFocus
RqSQL.Parameters("Groupe") = Me.ChoixGroupe.Text
Me.Refresh
Set RqSQL = Nothing
End Sub

Dès que j'ouvre le formulaire, ou dès qu'on arrive sur l'instruction
Me.Refresh, j'ai la boîte de dialogue me demandant le choix du Groupe.

Comment empêcher l'apparition de cette boîte de dialogue ? (le choix
correspond au contenu du Combo "ChoixGroupe")

Je passe probablement à côté de quelque chose de plus facile, mais je
suis encore loin de la connaissance suffisante d'Access ...



Effectivement,
Pas besoin de VBA (peut-être quand même un Me.Requery dans
ChoixGroupe_AfterUpdate, je ne sais plus) , pas besoin de sous-Formulaire
Sur la ligne Critère, Colonne Groupe de ta requête, tu écris simplement
avec tes petits doigts ou à l'aide du générateur d'expression :
[Formulaires]![NomFormulaire]![Choixgroupe].
@+
Etienne




Avatar
Joël GARBE
Re ;-)

Encore Merci pour l'info concernant le sous-formulaire non utile...

J'ai essayé et adopté...

Du progrès en perspective...

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Evaro" a écrit dans le message de news:

Bonjour,

"Joël GARBE" a écrit dans le message de news:
41a9f17b$0$800$
Bonsoir à tous,

Pour filtrer des enregistrements dans un formulaire, j'utilise une
requête sélection, dans laquelle je mets un critère :
[Groupe] pour le champ Groupe

Dans le formulaire, je positionne un combo "ChoixGroupe" en entête, et je
souhaite filtrer par rapport au contenu de ce champ. (Pour cela, j'ai un
sous-formulaire qui me permet d'afficher les enregistrements
correspondants au groupe)

J'ai le code suivant :

Private Sub ChoixGroupe_AfterUpdate()
MAJRq
End Sub

Sub MAJRq()
Set MaBase = CurrentDb
Set RqSQL = MaBase.QueryDefs("Rq Filtrer Membre Groupe")
Me.ChoixGroupe.SetFocus
RqSQL.Parameters("Groupe") = Me.ChoixGroupe.Text
Me.Refresh
Set RqSQL = Nothing
End Sub

Dès que j'ouvre le formulaire, ou dès qu'on arrive sur l'instruction
Me.Refresh, j'ai la boîte de dialogue me demandant le choix du Groupe.

Comment empêcher l'apparition de cette boîte de dialogue ? (le choix
correspond au contenu du Combo "ChoixGroupe")

Je passe probablement à côté de quelque chose de plus facile, mais je
suis encore loin de la connaissance suffisante d'Access ...



Effectivement,
Pas besoin de VBA (peut-être quand même un Me.Requery dans
ChoixGroupe_AfterUpdate, je ne sais plus) , pas besoin de sous-Formulaire
Sur la ligne Critère, Colonne Groupe de ta requête, tu écris simplement
avec tes petits doigts ou à l'aide du générateur d'expression :
[Formulaires]![NomFormulaire]![Choixgroupe].
@+
Etienne