Discussion :

[jrogron]

Bonjour,

Je m'explique: j'ai réaliser un état sous forme de formulaire. Je souhaite après avoir réaliser une recherche dans mes formulaire n'imprimer que les fiches des sociétés concernés par cette recherche.

Merci de votre réponse,

Jocelyn

[cafeine]

Hello,

il faut utiliser le SQL de ta recherche, ou bien la liste de valeurs comme la source d'un état ...
Ainsi cet état ne comportera que les infos qui ont été sélectionnées par l'utilisateur.

[Tofalu]

Un exemple :

http://access.developpez.com/sources...EtatFormulaire

[jrogron]

Pour la réponse de Caféine je ne sais pas ce que c'est qu'une SQL (trop nul je sais). Pourrais tu me détailler la démarche please?
Pour la réponse de Tofalu c'est ok mais le souci c'est que cela m'imprime tout mon formulaire et non pas les résultats de ma recherche seulement.

J'attends vos réponses avec impatience et merci encore pour tout.

Cordialement,

Jocelyn

[cafeine]

Pour la réponse de Caféine je ne sais pas ce que c'est qu'une SQL (trop nul je sais). Pourrais tu me détailler la démarche please?
Pour la réponse de Tofalu c'est ok mais le souci c'est que cela m'imprime tout mon formulaire et non pas les résultats de ma recherche seulement.

J'attends vos réponses avec impatience et merci encore pour tout.

Cordialement,

Jocelyn

Comment marche ta recherche ? quel est son code s'il y en a ?

[Hbenne]

Dans ton formulaire, tu ajoutes un bouton pour imprimer un etat, puis tu modifies le code du bouton.
dans mon exemple, je fais correspondre 2 critères du formulaire "champmois" "champannée" avec 2 critères de mon état " mois" "annee".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Compare Database
 
 
Private Sub imprimer_enregistrements_Click()
On Error GoTo Err_imprimer_enregistrements_Click
 
    Dim stDocName As String
 
    stDocName = "État Enregistrements Hebdomadaires"
    DoCmd.OpenReport stDocName, , , "mois=" & champmois & "  and annee=" & champannée
 
 
Exit_imprimer_enregistrements_Click:
    Exit Sub
 
Err_imprimer_enregistrements_Click:
    MsgBox Err.Description
    Resume Exit_imprimer_enregistrements_Click
 
End Sub

[jrogron]

Voici ma soluce:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Commande904_Click()
On Error GoTo Err_Commande904_Click
 
Dim Nom_Etat As String
Nom_Etat = "Database"
DoCmd.OpenReport Nom_Etat, , , "NumCompany=" & NumCompany & ""
 
Exit_Commande904_Click:
    Exit Sub
 
Err_Commande904_Click:
    MsgBox Err.Description
    Resume Exit_Commande904_Click
 
End Sub

Cordialement

Jocelyn