1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
|
Private Sub CmdImprimer_Click()
Set MonApplicationAccess = New Access.Application
'position de la base de donneés
strdb = App.Path & "\saisie.mdb"
'ouvrir la base de données sous microsoft access
MonApplicationAccess.OpenCurrentDatabase strdb
On Error GoTo gerr
Dim viewpreview As Boolean
viewpreview = False
If viewpreview Then
MonApplicationAccess.Visible = True
MonApplicationAccess.DoCmd.OpenForm "collecte de paramètres", acPreview, , , , acHidden
MonApplicationAccess.Forms![collecte de paramètres]![TxtFonction] = LaFonction
MonApplicationAccess.Forms![collecte de paramètres]![TxtNomSurveillant] = LeNomSurveillant
MonApplicationAccess.Forms![collecte de paramètres]![TxtNumSurveillant] = LeNumeroSurveillant
MonApplicationAccess.DoCmd.OpenReport statef, acViewReport, , , acWindowNormal
Exit Sub
Else
MonApplicationAccess.Visible = False
MonApplicationAccess.DoCmd.OpenForm "collecte de paramètres", acPreview, , , , acHidden
MonApplicationAccess.Forms![collecte de paramètres]![TxtFonction] = LaFonction
MonApplicationAccess.Forms![collecte de paramètres]![TxtNomSurveillant] = LeNomSurveillant
MonApplicationAccess.Forms![collecte de paramètres]![TxtNumSurveillant] = LeNumeroSurveillant
MonApplicationAccess.DoCmd.OpenReport statef
MsgBox "Clickez sur ok quand l'impression sera términée !!", vbInformation, "Imprission"
MonApplicationAccess.CloseCurrentDatabase
Set MonApplicationAccess = Nothing
ArrangerImprission
Exit Sub
End If
gerr:
Select Case Err.Number
Case 0
Case 2501
Resume Next
Case Else
MsgBox "erreur non gérée'" & vbCrLf & Err.Number & "'" & Err.Description, vbCritical, "Erreur"
MonApplicationAccess.CloseCurrentDatabase
Set MonApplicationAccess = Nothing
End select
End Sub |
Partager