Discussion :

[emmaad]

Bonjour,
je découvre le VBA, ma question paraître peut-être très simpliste pour certains et si c'est le cas, je m'en excuse d'avance.

J'ai crée différents états, 7 au total, pour lesquels je peux avoir un accès par nom.

J'ai trouvé un code VBA pour ouvrir ( ou imprimer les 7 états) et je dois à chaque fois entrer le nom de famille

Je cherche donc un code qui me permettrait en rentrant le nom une seule fois d'avoir les 7 états correspondants.

Voici le VBA de départ ( pour l'ouverture des états):

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Image172_Click()
 
  DoCmd.OpenReport "041", acViewPreview
  DoCmd.OpenReport "042", acViewPreview
  DoCmd.OpenReport "043", acViewPreview
  DoCmd.OpenReport "044", acViewPreview
  DoCmd.OpenReport "045", acViewPreview
  DoCmd.OpenReport "046", acViewPreview
  DoCmd.OpenReport "047", acViewPreview
End Sub

D'avance, merci !
Bonne soirée

Emma.

[Jeannot45]

Il nous manque quand même quelques infos:

1. A quoi correspond le nom de famille ?
2. A partir de quel événement est lancée l'impression ? (Clic sur un bouton d'un formulaire, après un choix dans une liste déroulante ...)

Au plus il y a d'informations sur le problème au plus il nous est facile d'apporter une solution

[emmaad]

Bonsoir,
merci pour votre réponse. Voici donc quelques informations complémentaires.

l'impression se fait à partir d'une image à laquelle j'ai associé un générateur de code.
Quant au nom de famille, il répond à un champ qui apparait dans la requête sur laquelle est basé l'état en question.
Merci;
Bonne soirée

Emma.

[Jeannot45]

Voici une piste sur laquelle tu pourrais travailler :
Au niveau de la procédure d'impression,
1. tu déclares une variable

Code :

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

Dim l_strNomFamille as string

2. Par l'intermédiaire d'une InputBox tu saisis le nom de famille concerné par l'impression

Code :

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

l_strNomFamille = InputBox("Saisir le nom de famille concerné par l'impression"

3. tu lances les impressions en intégrant le nom de famille :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Image172_Click()
 
  DoCmd.OpenReport "041", acViewPreview,,"NomDeFamille = '" & l_strNomFamille & "'"
  DoCmd.OpenReport "042", acViewPreview,,"NomDeFamille = '" & l_strNomFamille & "'"
  DoCmd.OpenReport "043", acViewPreview,,"NomDeFamille = '" & l_strNomFamille & "'"
  DoCmd.OpenReport "044", acViewPreview,,"NomDeFamille = '" & l_strNomFamille & "'"
  DoCmd.OpenReport "045", acViewPreview,,"NomDeFamille = '" & l_strNomFamille & "'"
  DoCmd.OpenReport "046", acViewPreview,,"NomDeFamille = '" & l_strNomFamille & "'"
  DoCmd.OpenReport "047", acViewPreview,,"NomDeFamille = '" & l_strNomFamille & "'"
End Sub

Remarque j'ai mis "NomDeFamille" mais en fait, il faut que tu indiques le nom du champ qui contient le nom de famille

Bonne continuation

[emmaad]

Bonjour
merci d'avoir pris le temps de réfléchir à mon petit souci.

Malheureusement, ça ne résout pas le problème que je rencontre: Access me propose bien d'ouvrir les 7 documents concernés mais je dois entrer à chaque ouverture de document le nom de famille.

Aurais-je raté quelque chose en appliquant ce que tu m'as envoyé ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Image178_Click()
  'déclarer variable'
  Dim l_strNom As String
  'création Input Box'
  l_strNom = InputBox("Saisir le nom de famille concerné par l'impression")
  'lancer les impressions en intégrant le nom de famille'
  DoCmd.OpenReport "041", acViewPreview, , "Nom = '" & l_strNom & "'"
  DoCmd.OpenReport "042", acViewPreview, , "Nom = '" & l_strNom & "'"
  DoCmd.OpenReport "043", acViewPreview, , "Nom = '" & l_strNom & "'"
  DoCmd.OpenReport "044", acViewPreview, , "Nom = '" & l_strNom & "'"
  DoCmd.OpenReport "045", acViewPreview, , "Nom = '" & l_strNom & "'"
  DoCmd.OpenReport "046", acViewPreview, , "Nom = '" & l_strNom & "'"
  DoCmd.OpenReport "047", acViewPreview, , "Nom = '" & l_strNom & "'"
End Sub

D'avance merci;
Emma.

[Jeannot45]

Peux-tu mettre la source d’un de tes états ?

[emmaad]

Bonjour à nouveau,

CA MAAAAAAARCHE !!!!

le problème venait du fait que le formulaire était lié à une requête avec [saisir le nom] comme critère.
J'ai donc dupliqué ma requête, supprimé ce critère et relancé le code que tu m'as donné et là, tout fonctionne: ouverture des 7 documents en ne rentrant le nom de famille qu'une seule fois.

J'ai pigé le truc, je vais donc pouvoir l'adapter en impression directe et l'utiliser pour d'autres Access
Un grand merci pour avoir pris le temps de me lire et de me renseigner !

Bon week end

Emma.