Bonjours ou bonsoir à tous.
après pas mal de recherche j'ai réussi a écrire un code que je pense être bon ( je suis extrement novice)
cependant je sais pas ou mettre ma variable pour indiquer mon nombre de copie (dans la partie rouge je pense)
il s'agit de l'impression de donnée d'un formulaire sur un état
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 Private Sub impression_click() Dim NbImprime As String Dim Box As String stDocName = "facture" NbImprime = InputBox("Nombre de copie ?") Box = MsgBox("Voulez vous imprimer " & NbImprime & "?", vbYesNoCancel, "Verification du nombre de copie") If Box = vbYes Then DoCmd.OpenReport stDocName, acNormal, , "[fact_num]='" & Me![fact_num] & "'" ElseIf Box = vbNo Then NbImprime = InputBox("Nombre de copie ?") DoCmd.OpenReport stDocName, acNormal, , "[fact_num]='" & Me![fact_num] & "'" End If End Sub
Merci
Partager