Discussion :

[jenniferIUP]

bonjour,

A partir d'un formulaire j'accède à un état qui est la version imprimable de mon formulaire.
J'ai créé un bouton de commande en conséquence avec un code pour que mon état ne sélectionne que l'enregistrement sur lequel je travail.
Voici mon code:

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 ouvir_fp_Click()
On Error GoTo Err_ouvrir_fp_Click
 
    Dim stDocName As String
 
    stDocName = "ouvrir avant impression la fiche de poste"
    DoCmd.OpenReport "fiche de poste", acPreview, , "[num_pds] = " & Me.num_pds
Exit_ouvrir_fp_Click:
    Exit Sub
 
Err_ouvrir_fp_Click:
    MsgBox Err.Description
    Resume Exit_ouvrir_fp_Click
 
End Sub

Mais au clic j'aimerais en plus du fait que l'état s'ouvre qu'un message d'alerte apparaisse
voici son code:

Code :

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

MsgBox "Vous devez imprimer " + nombre_d_équipe.Text + " fiche(s) de poste car il y'aura " + nombre_d_équipe.Text + " équipe(s) présente(s) pour ce DPS", vbCritical, "Attention au nombre de fiche de poste à imprimer"

Comment dois je faire pour que les deux opérations se fassent au clic sur mon bouton de commande??

Merci d'avance pour votre aide

[Marc_27]

Bonjour,

Normalement je mettrais le code de la msgbox ensuite de le code pour ouvrir l'etat:

Code :

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

1
2
DoCmd.OpenReport "fiche de poste", acPreview, , "[num_pds] = " & Me.num_pds
MsgBox "Vous devez imprimer " & nombre_d_équipe.Text & " fiche(s) de poste car il y'aura " & nombre_d_équipe.Text & " équipe(s) présente(s) pour ce DPS", vbCritical, "Attention au nombre de fiche de poste à imprimer"

mais je n'ai pas compris ton code pour le msgbox.
C'est un msgbox ou plusieurs? Ce champ (nombre_d_équipe), il reste où, dans le formulaire où dans l'etat?

[jenniferIUP]

ce nombre d'équipe reste dans le formulaire
en faite il faut imprimer autant de fiche de poste que d'équipe et la message box et la pour le rappeler à l'ouverture de l'état fiche de poste qui est seulement un aperçu avat impression respectant ls marges de mon formulaire!

merci pour la réponse je vais essayer otre solution!

[pier.antoine]

Bonjour Jennifer

Si on connait le nombre d'impression à faire, pourquoi ne pas le faire automatiquement à l'ouverture de l'état?

Il devrait être possible de jouer avec les propriétés de l'impression, mais je ne connais pas assez.

Donc ce que je ferai c'est une boucle d'autant de fois qu'il y a d'impression à faire.

Code :

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

1
2
3
4
5
for nb = 1 to nombre_d_équipe.value (en tout cas le nombre d'équipe)
 
 DoCmd.OpenReport "fiche de poste", acPreview, , "[num_pds] = " & Me.num_pds
 
next nb

Pierre