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 Imprimer une selection (special)

Imprimer une selection (special)

25 réponses
Avatar
souricette
Bonjour,
Je souhaite modifier ce code, mais je ne sais pas par quel bout le prendre :
Private Sub Imprimer_Sélection_Click()
On Error GoTo Err_Imprimer_Sélection_Click

Dim stDocName As String
Dim MyForm As Form

stDocName = "Frm CANDIDATS"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False

Exit_Imprimer_Sélection_Click:
Exit Sub

Err_Imprimer_Sélection_Click:
MsgBox Err.Description
Resume Exit_Imprimer_Sélection_Click

End Sub

ça, c'est le code généré par Access (moi je suis infoutue d'écrire une ligne)
pour demander au bouton situé sur le formulaire
Frm-ListePays
d'imprimer le Formulaire
Frm CANDIDATS
qui contient les CV commplets des candidats et repose sur la table
Tbl Candidats
Le soucis, c'est que ce code m'imprime tous les candidats de la base, et non
les quelques candidats sélectionnés dans le sous-formulaire (feuille de
données) Frm-SelectionCandidatPays Sous-formulaire

il existe bien sûr une table
Tbl-SelectionCandidatPays
source du sous-formulaire et qui permet de faire la jointure entre les tables
Tbl-ListePays
et
Tbl Candidats

Je compte sur vos lumières...
Merci
Signaler un problème avec ce contenu

5 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
1 2 3
Avatar
ze Titi
Avec le zip multiple, c'était bon...
Après analyse, j'en arrive au code suivant:

Private Sub Imprimer_Sélection_Click()
'On Error GoTo Err_Imprimer_Sélection_Click
Dim stDocName As String
Dim MyForm As Form
Dim rs As DAO.Recordset, tonFiltre As String
stDocName = "Frm CANDIDATS"
Set MyForm = Screen.ActiveForm
Set rs = MyForm![Frm-SelectionCandidatPays
Sous-formulaire].Form.RecordsetClone
rs.MoveLast
rs.MoveFirst
While Not rs.EOF
tonFiltre = tonFiltre & "[N°Candidat]=" & rs!candidat & " OR "
rs.MoveNext
Wend
tonFiltre = Left(tonFiltre, Len(tonFiltre) - 4)
DoCmd.SelectObject acForm, stDocName, True
Forms("Frm CANDIDATS").Filter = tonFiltre
Forms("Frm CANDIDATS").FilterOn = True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
Exit_Imprimer_Sélection_Click:
Exit Sub
Err_Imprimer_Sélection_Click:
MsgBox Err.Description
Resume Exit_Imprimer_Sélection_Click

End Sub

Dis-nous !

En ce jour mémorable du mardi 20/02/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
en .mdb, 3 900Ko : http://cjoint.com/?cuoaFP4IWq
en .zip, 610Ko : pas voulu : trop gros
en .zip, multiple : http://cjoint.com/?cuohsbyt8u
ET http://cjoint.com/?cuohZfcGjj


re,
Idem
Toujours pareil.
Compresses ta bd et zippes-la, c'est préférable à un fichier .mdb qui
risque d'être volumineux.

ré-essaye : http://cjoint.com/?cumdckxO7a
je pense avoir une explication


Bonjour Souricette,

Le lien ne fonctionne pas.

http://cjoint.com/?cumdckxO7a





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




--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info





Avatar
souricette
On progresse !
Boite de Dialogue :
Entrer la valeur du paramètre
N°Candidat

et si je lui donne une valeur.....
il part sur l'impression de tout le fichier !
Mais au moins, il imprime les CV...;-}



Avec le zip multiple, c'était bon...
Après analyse, j'en arrive au code suivant:

Private Sub Imprimer_Sélection_Click()
'On Error GoTo Err_Imprimer_Sélection_Click
Dim stDocName As String
Dim MyForm As Form
Dim rs As DAO.Recordset, tonFiltre As String
stDocName = "Frm CANDIDATS"
Set MyForm = Screen.ActiveForm
Set rs = MyForm![Frm-SelectionCandidatPays
Sous-formulaire].Form.RecordsetClone
rs.MoveLast
rs.MoveFirst
While Not rs.EOF
tonFiltre = tonFiltre & "[N°Candidat]=" & rs!candidat & " OR "
rs.MoveNext
Wend
tonFiltre = Left(tonFiltre, Len(tonFiltre) - 4)
DoCmd.SelectObject acForm, stDocName, True
Forms("Frm CANDIDATS").Filter = tonFiltre
Forms("Frm CANDIDATS").FilterOn = True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
Exit_Imprimer_Sélection_Click:
Exit Sub
Err_Imprimer_Sélection_Click:
MsgBox Err.Description
Resume Exit_Imprimer_Sélection_Click

End Sub

Dis-nous !

En ce jour mémorable du mardi 20/02/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
en .mdb, 3 900Ko : http://cjoint.com/?cuoaFP4IWq
en .zip, 610Ko : pas voulu : trop gros
en .zip, multiple : http://cjoint.com/?cuohsbyt8u
ET http://cjoint.com/?cuohZfcGjj


re,
Idem
Toujours pareil.
Compresses ta bd et zippes-la, c'est préférable à un fichier .mdb qui
risque d'être volumineux.

ré-essaye : http://cjoint.com/?cumdckxO7a
je pense avoir une explication


Bonjour Souricette,

Le lien ne fonctionne pas.

http://cjoint.com/?cumdckxO7a





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




--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info










Avatar
ze Titi
Ah, au temps pour moi...

tonFiltre = tonFiltre & "[N°Candidature]=" & rs!candidat & " OR
"


En ce jour mémorable du mardi 20/02/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
On progresse !
Boite de Dialogue :
Entrer la valeur du paramètre
N°Candidat

et si je lui donne une valeur.....
il part sur l'impression de tout le fichier !
Mais au moins, il imprime les CV...;-}



Avec le zip multiple, c'était bon...
Après analyse, j'en arrive au code suivant:

Private Sub Imprimer_Sélection_Click()
'On Error GoTo Err_Imprimer_Sélection_Click
Dim stDocName As String
Dim MyForm As Form
Dim rs As DAO.Recordset, tonFiltre As String
stDocName = "Frm CANDIDATS"
Set MyForm = Screen.ActiveForm
Set rs = MyForm![Frm-SelectionCandidatPays
Sous-formulaire].Form.RecordsetClone
rs.MoveLast
rs.MoveFirst
While Not rs.EOF
tonFiltre = tonFiltre & "[N°Candidat]=" & rs!candidat & " OR "
rs.MoveNext
Wend
tonFiltre = Left(tonFiltre, Len(tonFiltre) - 4)
DoCmd.SelectObject acForm, stDocName, True
Forms("Frm CANDIDATS").Filter = tonFiltre
Forms("Frm CANDIDATS").FilterOn = True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
Exit_Imprimer_Sélection_Click:
Exit Sub
Err_Imprimer_Sélection_Click:
MsgBox Err.Description
Resume Exit_Imprimer_Sélection_Click

End Sub

Dis-nous !

En ce jour mémorable du mardi 20/02/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
en .mdb, 3 900Ko : http://cjoint.com/?cuoaFP4IWq
en .zip, 610Ko : pas voulu : trop gros
en .zip, multiple : http://cjoint.com/?cuohsbyt8u
ET http://cjoint.com/?cuohZfcGjj


re,
Idem
Toujours pareil.
Compresses ta bd et zippes-la, c'est préférable à un fichier .mdb qui
risque d'être volumineux.

ré-essaye : http://cjoint.com/?cumdckxO7a
je pense avoir une explication


Bonjour Souricette,

Le lien ne fonctionne pas.

http://cjoint.com/?cumdckxO7a





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




--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info






--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info







Avatar
souricette
GGG EEEEEE N N I A A L !
G G E N N N I A A L !
G EEEE N N N I A A L !
G GGG E N NN I AAAAAA L !
G G E N N I A A L
GGG EEEEEE N N I A A LLLLLL O



Ah, au temps pour moi...

tonFiltre = tonFiltre & "[N°Candidature]=" & rs!candidat & " OR
"


En ce jour mémorable du mardi 20/02/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
On progresse !
Boite de Dialogue :
Entrer la valeur du paramètre
N°Candidat

et si je lui donne une valeur.....
il part sur l'impression de tout le fichier !
Mais au moins, il imprime les CV...;-}



Avec le zip multiple, c'était bon...
Après analyse, j'en arrive au code suivant:

Private Sub Imprimer_Sélection_Click()
'On Error GoTo Err_Imprimer_Sélection_Click
Dim stDocName As String
Dim MyForm As Form
Dim rs As DAO.Recordset, tonFiltre As String
stDocName = "Frm CANDIDATS"
Set MyForm = Screen.ActiveForm
Set rs = MyForm![Frm-SelectionCandidatPays
Sous-formulaire].Form.RecordsetClone
rs.MoveLast
rs.MoveFirst
While Not rs.EOF
tonFiltre = tonFiltre & "[N°Candidat]=" & rs!candidat & " OR "
rs.MoveNext
Wend
tonFiltre = Left(tonFiltre, Len(tonFiltre) - 4)
DoCmd.SelectObject acForm, stDocName, True
Forms("Frm CANDIDATS").Filter = tonFiltre
Forms("Frm CANDIDATS").FilterOn = True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
Exit_Imprimer_Sélection_Click:
Exit Sub
Err_Imprimer_Sélection_Click:
MsgBox Err.Description
Resume Exit_Imprimer_Sélection_Click

End Sub

Dis-nous !

En ce jour mémorable du mardi 20/02/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
en .mdb, 3 900Ko : http://cjoint.com/?cuoaFP4IWq
en .zip, 610Ko : pas voulu : trop gros
en .zip, multiple : http://cjoint.com/?cuohsbyt8u
ET http://cjoint.com/?cuohZfcGjj


re,
Idem
Toujours pareil.
Compresses ta bd et zippes-la, c'est préférable à un fichier .mdb qui
risque d'être volumineux.

ré-essaye : http://cjoint.com/?cumdckxO7a
je pense avoir une explication


Bonjour Souricette,

Le lien ne fonctionne pas.

http://cjoint.com/?cumdckxO7a





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




--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info






--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info












Avatar
ze Titi
Ca ne fût pas sans mal ! :/

Merci du retour et bravo pour la créativité ! :o)


En ce jour mémorable du mardi 20/02/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :

GGG EEEEEE N N I A A L !
G G E N N N I A A L !
G EEEE N N N I A A L !
G GGG E N NN I AAAAAA L !
G G E N N I A A L
GGG EEEEEE N N I A A LLLLLL O



Ah, au temps pour moi...

tonFiltre = tonFiltre & "[N°Candidature]=" & rs!candidat & " OR
"


En ce jour mémorable du mardi 20/02/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
On progresse !
Boite de Dialogue :
Entrer la valeur du paramètre
N°Candidat

et si je lui donne une valeur.....
il part sur l'impression de tout le fichier !
Mais au moins, il imprime les CV...;-}



Avec le zip multiple, c'était bon...
Après analyse, j'en arrive au code suivant:

Private Sub Imprimer_Sélection_Click()
'On Error GoTo Err_Imprimer_Sélection_Click
Dim stDocName As String
Dim MyForm As Form
Dim rs As DAO.Recordset, tonFiltre As String
stDocName = "Frm CANDIDATS"
Set MyForm = Screen.ActiveForm
Set rs = MyForm![Frm-SelectionCandidatPays
Sous-formulaire].Form.RecordsetClone
rs.MoveLast
rs.MoveFirst
While Not rs.EOF
tonFiltre = tonFiltre & "[N°Candidat]=" & rs!candidat & " OR "
rs.MoveNext
Wend
tonFiltre = Left(tonFiltre, Len(tonFiltre) - 4)
DoCmd.SelectObject acForm, stDocName, True
Forms("Frm CANDIDATS").Filter = tonFiltre
Forms("Frm CANDIDATS").FilterOn = True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
Exit_Imprimer_Sélection_Click:
Exit Sub
Err_Imprimer_Sélection_Click:
MsgBox Err.Description
Resume Exit_Imprimer_Sélection_Click

End Sub

Dis-nous !

En ce jour mémorable du mardi 20/02/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
en .mdb, 3 900Ko : http://cjoint.com/?cuoaFP4IWq
en .zip, 610Ko : pas voulu : trop gros
en .zip, multiple : http://cjoint.com/?cuohsbyt8u
ET http://cjoint.com/?cuohZfcGjj


re,
Idem
Toujours pareil.
Compresses ta bd et zippes-la, c'est préférable à un fichier .mdb qui
risque d'être volumineux.

ré-essaye : http://cjoint.com/?cumdckxO7a
je pense avoir une explication


Bonjour Souricette,

Le lien ne fonctionne pas.

http://cjoint.com/?cumdckxO7a





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




--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info






--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info






--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info









1 2 3