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 envoyer une zone de liste vers un état

envoyer une zone de liste vers un état

8 réponses
Avatar
...Patrick
Bonsoir,

rien trouvé sur www.groups.goggle , alors je pose la question sans trop y
croire :-(
j'ai un formulaire avec une zone pour questionner et avec une zone de liste
qui me donne les articles sur un critère un peu vague du genre "ac*m*8* mais
ça fonctionne; j'aimerais à présent envoyer cette liste vers un état, mais
ça ne parait pas possible...
Alors où je change ma manière de chercher avec des jokers et donc mon
formulaire , ou je me résouds à ne pas imprimer le résultat dans un état..
Avez - vous une suggestion ?

Merci

Patrick
Signaler un problème avec ce contenu

8 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
Raymond [mvp]
Bonjour.

pourquoi veux-tu imprimer une liste ? une liste est basée sur une requête et
tu n'as qu'à exécuter un état avec la même requête que la liste.

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Nouvelle base Access des communes françaises avec
longitude, latitude et 13183 sites internet officiels
http://ardecheearth.free.fr/basededonnees.htm


"...Patrick" a écrit dans le message de news:

| Bonsoir,
|
| rien trouvé sur www.groups.goggle , alors je pose la question sans trop y
| croire :-(
| j'ai un formulaire avec une zone pour questionner et avec une zone de
liste
| qui me donne les articles sur un critère un peu vague du genre "ac*m*8*
mais
| ça fonctionne; j'aimerais à présent envoyer cette liste vers un état, mais
| ça ne parait pas possible...
| Alors où je change ma manière de chercher avec des jokers et donc mon
| formulaire , ou je me résouds à ne pas imprimer le résultat dans un état..
| Avez - vous une suggestion ?
|
| Merci
|
| Patrick
|
Avatar
...Patrick
Bonsoir Raymond,

je me suis inspiré de ceci
http://cafeine.developpez.com/access/tutoriel/recherchemulti/
mais je ne sais pas comment avoir les mêmes critères dans mon état.
Pouquoi l'imprimer ??? ben , puisque elle est à l'écran, on pourrait
l'imprimer non ? :-))
Maintenant si on sait faire autrement, je suis preneur.
Merci


"Raymond [mvp]" a écrit dans le message
de news:
Bonjour.

pourquoi veux-tu imprimer une liste ? une liste est basée sur une requête
et
tu n'as qu'à exécuter un état avec la même requête que la liste.

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Nouvelle base Access des communes françaises avec
longitude, latitude et 13183 sites internet officiels
http://ardecheearth.free.fr/basededonnees.htm


"...Patrick" a écrit dans le message de
news:

| Bonsoir,
|
| rien trouvé sur www.groups.goggle , alors je pose la question sans trop
y
| croire :-(
| j'ai un formulaire avec une zone pour questionner et avec une zone de
liste
| qui me donne les articles sur un critère un peu vague du genre "ac*m*8*
mais
| ça fonctionne; j'aimerais à présent envoyer cette liste vers un état,
mais
| ça ne parait pas possible...
| Alors où je change ma manière de chercher avec des jokers et donc mon
| formulaire , ou je me résouds à ne pas imprimer le résultat dans un
état..
| Avez - vous une suggestion ?
|
| Merci
|
| Patrick
|




Avatar
Raymond [mvp]
dans la propriété 'contenu' de la liste, tu as la requête utilisée pour
charger la liste. tu prends la même pour la source de l'état.

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Nouvelle base Access des communes françaises avec
longitude, latitude et 13183 sites internet officiels
http://ardecheearth.free.fr/basededonnees.htm


"...Patrick" a écrit dans le message de news:

| Bonsoir Raymond,
|
| je me suis inspiré de ceci
| http://cafeine.developpez.com/access/tutoriel/recherchemulti/
| mais je ne sais pas comment avoir les mêmes critères dans mon état.
| Pouquoi l'imprimer ??? ben , puisque elle est à l'écran, on pourrait
| l'imprimer non ? :-))
| Maintenant si on sait faire autrement, je suis preneur.
| Merci
|
Avatar
...Patrick
Bonsoir,
dans mon état;
source = SELECT désignation,[mag#], emplacemt,article FROM emplacements
filtre = ([désignation]='*pant*') parce que j'ai cherché sur "*pant* dans le
formulaire et celui ci a bien répondu ce que j'attends mais quand j'appelle
l'état avec ce qui est ici plus bas dans l'evenement clic d'un bouton
"print"
les paramètres de txtRechTitre passent bien je pense puisque on le retouve
dans ma ligne "filtre" (si j'efface cette ligne dans les propriétés, l'etat
est au grand complet avec tous les articles, mais avec cette ligne rien ne
se passe, il est vide)

Private Sub PrintListeArticle_Click()
On Error GoTo Err_PrintListeArticle_Click
Dim stDocName As String
stDocName = "eta_liste_articles"
DoCmd.OpenReport stDocName, acViewPreview, _
"SELECT désignation,[mag#], emplacemt, article FROM emplacements",
"[désignation]='" & Me!txtRechTitre & "'"
Exit_PrintListeArticle_Click:
Exit Sub
Err_PrintListeArticle_Click:
MsgBox Err.Description
Resume Exit_PrintListeArticle_Click
End Sub

Patrick (qui s'accroche)

"Raymond [mvp]" a écrit dans le message
de news:
dans la propriété 'contenu' de la liste, tu as la requête utilisée pour
charger la liste. tu prends la même pour la source de l'état.

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Nouvelle base Access des communes françaises avec
longitude, latitude et 13183 sites internet officiels
http://ardecheearth.free.fr/basededonnees.htm


"...Patrick" a écrit dans le message de
news:

| Bonsoir Raymond,
|
| je me suis inspiré de ceci
| http://cafeine.developpez.com/access/tutoriel/recherchemulti/
| mais je ne sais pas comment avoir les mêmes critères dans mon état.
| Pouquoi l'imprimer ??? ben , puisque elle est à l'écran, on pourrait
| l'imprimer non ? :-))
| Maintenant si on sait faire autrement, je suis preneur.
| Merci
|




Avatar
Raymond [mvp]
ici il ne faut indiquer que la clause where et non la requête, celle-ci
restant ce qu'elle est.

DoCmd.OpenReport stDocName, acViewPreview, "[désignation] like '*pant*'"

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Nouvelle base Access des communes françaises avec
longitude, latitude et 13183 sites internet officiels
http://ardecheearth.free.fr/basededonnees.htm


"...Patrick" a écrit dans le message de news:

| Bonsoir,
| dans mon état;
| source = SELECT désignation,[mag#], emplacemt,article FROM emplacements
| filtre = ([désignation]='*pant*') parce que j'ai cherché sur "*pant* dans
le
| formulaire et celui ci a bien répondu ce que j'attends mais quand
j'appelle
| l'état avec ce qui est ici plus bas dans l'evenement clic d'un bouton
| "print"
| les paramètres de txtRechTitre passent bien je pense puisque on le retouve
| dans ma ligne "filtre" (si j'efface cette ligne dans les propriétés,
l'etat
| est au grand complet avec tous les articles, mais avec cette ligne rien ne
| se passe, il est vide)
|
| Private Sub PrintListeArticle_Click()
| On Error GoTo Err_PrintListeArticle_Click
| Dim stDocName As String
| stDocName = "eta_liste_articles"
| DoCmd.OpenReport stDocName, acViewPreview, _
| "SELECT désignation,[mag#], emplacemt, article FROM emplacements",
| "[désignation]='" & Me!txtRechTitre & "'"
| Exit_PrintListeArticle_Click:
| Exit Sub
| Err_PrintListeArticle_Click:
| MsgBox Err.Description
| Resume Exit_PrintListeArticle_Click
| End Sub
|
| Patrick (qui s'accroche)
Avatar
...Patrick
J'ai bien fais comme tu l'indiques, mais j'ai toujours l'entiereté de ma
table qui s'affiche...
dans mon formulaire j'ai meme mis ceci:
Debug.Print txtRechTitre.Value, " formulaire d'appel ", Time
puis pour essayer:

DoCmd.OpenReport stDocName, acViewPreview, _
"req_Art_Mag_Emplac", "[désignation] = '" & Me!txtRechTitre.Value & "'"

je vois donc mon texte recherché dans la désignation et demandé dans une
zone de texte : par ex "*vest*50*

à l'arrivée dans mon état:
Private Sub Report_NoData(Cancel As Integer)
MsgBox "Pas de données"
Cancel = True
End Sub
et en effet pas de données...

une fois arrivé dans l'etat il ne filtre rien !!!De quoi perdre mes derniers
cheveux.

Patrick (doit arreter pour le dodo)


"Raymond [mvp]" a écrit dans le message
de news:
ici il ne faut indiquer que la clause where et non la requête, celle-ci
restant ce qu'elle est.

DoCmd.OpenReport stDocName, acViewPreview, "[désignation] like
'*pant*'"

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Nouvelle base Access des communes françaises avec
longitude, latitude et 13183 sites internet officiels
http://ardecheearth.free.fr/basededonnees.htm


"...Patrick" a écrit dans le message de
news:

| Bonsoir,
| dans mon état;
| source = SELECT désignation,[mag#], emplacemt,article FROM emplacements
| filtre = ([désignation]='*pant*') parce que j'ai cherché sur "*pant*
dans
le
| formulaire et celui ci a bien répondu ce que j'attends mais quand
j'appelle
| l'état avec ce qui est ici plus bas dans l'evenement clic d'un bouton
| "print"
| les paramètres de txtRechTitre passent bien je pense puisque on le
retouve
| dans ma ligne "filtre" (si j'efface cette ligne dans les propriétés,
l'etat
| est au grand complet avec tous les articles, mais avec cette ligne rien
ne
| se passe, il est vide)
|
| Private Sub PrintListeArticle_Click()
| On Error GoTo Err_PrintListeArticle_Click
| Dim stDocName As String
| stDocName = "eta_liste_articles"
| DoCmd.OpenReport stDocName, acViewPreview, _
| "SELECT désignation,[mag#], emplacemt, article FROM emplacements",
| "[désignation]='" & Me!txtRechTitre & "'"
| Exit_PrintListeArticle_Click:
| Exit Sub
| Err_PrintListeArticle_Click:
| MsgBox Err.Description
| Resume Exit_PrintListeArticle_Click
| End Sub
|
| Patrick (qui s'accroche)




Avatar
Eric
Bonjour,

Essaies comme indiqué par Raymond mais il manquait une virgule :
DoCmd.OpenReport stDocName, acViewPreview, , "[désignation] like '*pant*'"

ou en adaptant avec ta zone de texte:
DoCmd.OpenReport stDocName, acViewPreview, , "[désignation] like '" &
Me!txtRechTitre.Value & "'"

J'ai bien fais comme tu l'indiques, mais j'ai toujours l'entiereté de ma
table qui s'affiche...
dans mon formulaire j'ai meme mis ceci:
Debug.Print txtRechTitre.Value, " formulaire d'appel ", Time
puis pour essayer:

DoCmd.OpenReport stDocName, acViewPreview, _
"req_Art_Mag_Emplac", "[désignation] = '" & Me!txtRechTitre.Value & "'"

je vois donc mon texte recherché dans la désignation et demandé dans une
zone de texte : par ex "*vest*50*

à l'arrivée dans mon état:
Private Sub Report_NoData(Cancel As Integer)
MsgBox "Pas de données"
Cancel = True
End Sub
et en effet pas de données...

une fois arrivé dans l'etat il ne filtre rien !!!De quoi perdre mes
derniers cheveux.

Patrick (doit arreter pour le dodo)


"Raymond [mvp]" a écrit dans le
message de news:

ici il ne faut indiquer que la clause where et non la requête, celle-ci
restant ce qu'elle est.

DoCmd.OpenReport stDocName, acViewPreview, "[désignation] like
'*pant*'"

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Nouvelle base Access des communes françaises avec
longitude, latitude et 13183 sites internet officiels
http://ardecheearth.free.fr/basededonnees.htm


"...Patrick" a écrit dans le message de
news:

| Bonsoir,
| dans mon état;
| source = SELECT désignation,[mag#], emplacemt,article FROM emplacements
| filtre = ([désignation]='*pant*') parce que j'ai cherché sur "*pant*
dans
le
| formulaire et celui ci a bien répondu ce que j'attends mais quand
j'appelle
| l'état avec ce qui est ici plus bas dans l'evenement clic d'un bouton
| "print"
| les paramètres de txtRechTitre passent bien je pense puisque on le
retouve
| dans ma ligne "filtre" (si j'efface cette ligne dans les propriétés,
l'etat
| est au grand complet avec tous les articles, mais avec cette ligne
rien ne
| se passe, il est vide)
|
| Private Sub PrintListeArticle_Click()
| On Error GoTo Err_PrintListeArticle_Click
| Dim stDocName As String
| stDocName = "eta_liste_articles"
| DoCmd.OpenReport stDocName, acViewPreview, _
| "SELECT désignation,[mag#], emplacemt, article FROM emplacements",
| "[désignation]='" & Me!txtRechTitre & "'"
| Exit_PrintListeArticle_Click:
| Exit Sub
| Err_PrintListeArticle_Click:
| MsgBox Err.Description
| Resume Exit_PrintListeArticle_Click
| End Sub
|
| Patrick (qui s'accroche)






--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr


Avatar
...Patrick
Bien vu !

merci Eric et Raymond

A plus

Patrick

"Eric" a écrit dans le message de news:

Bonjour,

Essaies comme indiqué par Raymond mais il manquait une virgule :
DoCmd.OpenReport stDocName, acViewPreview, , "[désignation] like '*pant*'"

ou en adaptant avec ta zone de texte:
DoCmd.OpenReport stDocName, acViewPreview, , "[désignation] like '" &
Me!txtRechTitre.Value & "'"

J'ai bien fais comme tu l'indiques, mais j'ai toujours l'entiereté de ma
table qui s'affiche...
dans mon formulaire j'ai meme mis ceci:
Debug.Print txtRechTitre.Value, " formulaire d'appel ", Time
puis pour essayer:

DoCmd.OpenReport stDocName, acViewPreview, _
"req_Art_Mag_Emplac", "[désignation] = '" & Me!txtRechTitre.Value &
"'"

je vois donc mon texte recherché dans la désignation et demandé dans une
zone de texte : par ex "*vest*50*

à l'arrivée dans mon état:
Private Sub Report_NoData(Cancel As Integer)
MsgBox "Pas de données"
Cancel = True
End Sub
et en effet pas de données...

une fois arrivé dans l'etat il ne filtre rien !!!De quoi perdre mes
derniers cheveux.

Patrick (doit arreter pour le dodo)


"Raymond [mvp]" a écrit dans le
message de news:

ici il ne faut indiquer que la clause where et non la requête, celle-ci
restant ce qu'elle est.

DoCmd.OpenReport stDocName, acViewPreview, "[désignation] like
'*pant*'"

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Nouvelle base Access des communes françaises avec
longitude, latitude et 13183 sites internet officiels
http://ardecheearth.free.fr/basededonnees.htm


"...Patrick" a écrit dans le message de
news:

| Bonsoir,
| dans mon état;
| source = SELECT désignation,[mag#], emplacemt,article FROM
emplacements
| filtre = ([désignation]='*pant*') parce que j'ai cherché sur "*pant*
dans
le
| formulaire et celui ci a bien répondu ce que j'attends mais quand
j'appelle
| l'état avec ce qui est ici plus bas dans l'evenement clic d'un bouton
| "print"
| les paramètres de txtRechTitre passent bien je pense puisque on le
retouve
| dans ma ligne "filtre" (si j'efface cette ligne dans les propriétés,
l'etat
| est au grand complet avec tous les articles, mais avec cette ligne
rien ne
| se passe, il est vide)
|
| Private Sub PrintListeArticle_Click()
| On Error GoTo Err_PrintListeArticle_Click
| Dim stDocName As String
| stDocName = "eta_liste_articles"
| DoCmd.OpenReport stDocName, acViewPreview, _
| "SELECT désignation,[mag#], emplacemt, article FROM emplacements",
| "[désignation]='" & Me!txtRechTitre & "'"
| Exit_PrintListeArticle_Click:
| Exit Sub
| Err_PrintListeArticle_Click:
| MsgBox Err.Description
| Resume Exit_PrintListeArticle_Click
| End Sub
|
| Patrick (qui s'accroche)






--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr