Bonjour,
Pour ouvrir un formulaire issu d'une requête, j'utilise une boite de
dialogue avec une liste déroulante pour faire le choix.
Cela fonctionne parfaitement mais impossible dans ce cas de faire un chois
multiple.
Exemple de ma base je veux extraire les mariages et fiançailles, en allant
directement dans les critères de la requête et en notant
"Mariage"Où"Fiançailles" c'est ok, mais par la boite de dialogue comment
faire?
J'ai essayé en tapant dans la liste déroulante "Mariage"Où"Fiançailles" mais
sans résultat.
J'espère avoir été clair et merci pour votre aide.
Jean-Luc
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
pgz
¨Peut-être n'ais-je pas bien compris ton ouverture de formulaire... Gageons que tu utilises un DoCmd.OpenForm en utilisant la clause WHERE. Zi c'est ça, la clause s'écrit "MonEvènement = 'mariage' OR MonEvènement = 'Fiançailles'" bonne chance, pgz
Bonjour, Pour ouvrir un formulaire issu d'une requête, j'utilise une boite de dialogue avec une liste déroulante pour faire le choix. Cela fonctionne parfaitement mais impossible dans ce cas de faire un chois multiple. Exemple de ma base je veux extraire les mariages et fiançailles, en allant directement dans les critères de la requête et en notant "Mariage"Où"Fiançailles" c'est ok, mais par la boite de dialogue comment faire? J'ai essayé en tapant dans la liste déroulante "Mariage"Où"Fiançailles" mais sans résultat. J'espère avoir été clair et merci pour votre aide. Jean-Luc
¨Peut-être n'ais-je pas bien compris ton ouverture de formulaire...
Gageons que tu utilises un DoCmd.OpenForm en utilisant la clause WHERE.
Zi c'est ça, la clause s'écrit "MonEvènement = 'mariage' OR MonEvènement =
'Fiançailles'"
bonne chance,
pgz
Bonjour,
Pour ouvrir un formulaire issu d'une requête, j'utilise une boite de
dialogue avec une liste déroulante pour faire le choix.
Cela fonctionne parfaitement mais impossible dans ce cas de faire un chois
multiple.
Exemple de ma base je veux extraire les mariages et fiançailles, en allant
directement dans les critères de la requête et en notant
"Mariage"Où"Fiançailles" c'est ok, mais par la boite de dialogue comment
faire?
J'ai essayé en tapant dans la liste déroulante "Mariage"Où"Fiançailles" mais
sans résultat.
J'espère avoir été clair et merci pour votre aide.
Jean-Luc
¨Peut-être n'ais-je pas bien compris ton ouverture de formulaire... Gageons que tu utilises un DoCmd.OpenForm en utilisant la clause WHERE. Zi c'est ça, la clause s'écrit "MonEvènement = 'mariage' OR MonEvènement = 'Fiançailles'" bonne chance, pgz
Bonjour, Pour ouvrir un formulaire issu d'une requête, j'utilise une boite de dialogue avec une liste déroulante pour faire le choix. Cela fonctionne parfaitement mais impossible dans ce cas de faire un chois multiple. Exemple de ma base je veux extraire les mariages et fiançailles, en allant directement dans les critères de la requête et en notant "Mariage"Où"Fiançailles" c'est ok, mais par la boite de dialogue comment faire? J'ai essayé en tapant dans la liste déroulante "Mariage"Où"Fiançailles" mais sans résultat. J'espère avoir été clair et merci pour votre aide. Jean-Luc
Eric
Bonjour Jean-Luc,
Pour pouvoir faire ce que tu souhaites, c'est à dire choisir un ou plusieurs éléments dans une liste, il faut utiliser une zone de liste et non une liste modifiable.
En partant du principe que la liste a une colonne de données de type Texte :
Soit Liste0 cette zone de liste que tu remplis comme ta liste modifiable et Propriété|Onglet Autres : Sélection multiple, tu choisis Simple. Soit Commande0 un bouton de commande.
(Adapter le nom du champ et du formulaire)
Le code ci-dessous sur les évènements de la liste et du bouton
Option Compare Database Dim strWhere As String, varitm As Variant
Private Sub Commande0_Click() If Liste0.ItemsSelected.Count = 0 Then Exit Sub For Each varitm In Me.Liste0.ItemsSelected strWhere = strWhere & "'" & Me.Liste0.ItemData(varitm) & "'," Next varitm strWhere = Left(strWhere, Len(strWhere) - 1) strWhere = "[NomDuChamp] in (" & strWhere & ")" DoCmd.OpenForm "NomDuFormulaireAOuvrir", , , strWhere End Sub
Private Sub Liste0_GotFocus() For Each varitm In Me.Liste0.ItemsSelected Me.Liste0.Selected(varitm) = False Next varitm strWhere = "" End Sub
Bonjour, Pour ouvrir un formulaire issu d'une requête, j'utilise une boite de dialogue avec une liste déroulante pour faire le choix. Cela fonctionne parfaitement mais impossible dans ce cas de faire un chois multiple. Exemple de ma base je veux extraire les mariages et fiançailles, en allant directement dans les critères de la requête et en notant "Mariage"Où"Fiançailles" c'est ok, mais par la boite de dialogue comment faire? J'ai essayé en tapant dans la liste déroulante "Mariage"Où"Fiançailles" mais sans résultat. J'espère avoir été clair et merci pour votre aide. Jean-Luc
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Jean-Luc,
Pour pouvoir faire ce que tu souhaites, c'est à dire choisir un ou
plusieurs éléments dans une liste, il faut utiliser une zone de liste et
non une liste modifiable.
En partant du principe que la liste a une colonne de données de type Texte :
Soit Liste0 cette zone de liste que tu remplis comme ta liste modifiable
et Propriété|Onglet Autres : Sélection multiple, tu choisis Simple.
Soit Commande0 un bouton de commande.
(Adapter le nom du champ et du formulaire)
Le code ci-dessous sur les évènements de la liste et du bouton
Option Compare Database
Dim strWhere As String, varitm As Variant
Private Sub Commande0_Click()
If Liste0.ItemsSelected.Count = 0 Then Exit Sub
For Each varitm In Me.Liste0.ItemsSelected
strWhere = strWhere & "'" & Me.Liste0.ItemData(varitm) & "',"
Next varitm
strWhere = Left(strWhere, Len(strWhere) - 1)
strWhere = "[NomDuChamp] in (" & strWhere & ")"
DoCmd.OpenForm "NomDuFormulaireAOuvrir", , , strWhere
End Sub
Private Sub Liste0_GotFocus()
For Each varitm In Me.Liste0.ItemsSelected
Me.Liste0.Selected(varitm) = False
Next varitm
strWhere = ""
End Sub
Bonjour,
Pour ouvrir un formulaire issu d'une requête, j'utilise une boite de
dialogue avec une liste déroulante pour faire le choix.
Cela fonctionne parfaitement mais impossible dans ce cas de faire un chois
multiple.
Exemple de ma base je veux extraire les mariages et fiançailles, en allant
directement dans les critères de la requête et en notant
"Mariage"Où"Fiançailles" c'est ok, mais par la boite de dialogue comment
faire?
J'ai essayé en tapant dans la liste déroulante "Mariage"Où"Fiançailles" mais
sans résultat.
J'espère avoir été clair et merci pour votre aide.
Jean-Luc
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Pour pouvoir faire ce que tu souhaites, c'est à dire choisir un ou plusieurs éléments dans une liste, il faut utiliser une zone de liste et non une liste modifiable.
En partant du principe que la liste a une colonne de données de type Texte :
Soit Liste0 cette zone de liste que tu remplis comme ta liste modifiable et Propriété|Onglet Autres : Sélection multiple, tu choisis Simple. Soit Commande0 un bouton de commande.
(Adapter le nom du champ et du formulaire)
Le code ci-dessous sur les évènements de la liste et du bouton
Option Compare Database Dim strWhere As String, varitm As Variant
Private Sub Commande0_Click() If Liste0.ItemsSelected.Count = 0 Then Exit Sub For Each varitm In Me.Liste0.ItemsSelected strWhere = strWhere & "'" & Me.Liste0.ItemData(varitm) & "'," Next varitm strWhere = Left(strWhere, Len(strWhere) - 1) strWhere = "[NomDuChamp] in (" & strWhere & ")" DoCmd.OpenForm "NomDuFormulaireAOuvrir", , , strWhere End Sub
Private Sub Liste0_GotFocus() For Each varitm In Me.Liste0.ItemsSelected Me.Liste0.Selected(varitm) = False Next varitm strWhere = "" End Sub
Bonjour, Pour ouvrir un formulaire issu d'une requête, j'utilise une boite de dialogue avec une liste déroulante pour faire le choix. Cela fonctionne parfaitement mais impossible dans ce cas de faire un chois multiple. Exemple de ma base je veux extraire les mariages et fiançailles, en allant directement dans les critères de la requête et en notant "Mariage"Où"Fiançailles" c'est ok, mais par la boite de dialogue comment faire? J'ai essayé en tapant dans la liste déroulante "Mariage"Où"Fiançailles" mais sans résultat. J'espère avoir été clair et merci pour votre aide. Jean-Luc
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
