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
|
Private Sub CmdImprimer_Click()
Dim appaccess As Access.Application
Dim strdb As String
On Error GoTo gerr
'position de la base de donneés
strdb = App.Path & "\MaBase.mdb"
statef = "MonEtatAccess"
Set appaccess = New Access.Application
'ouvrir la base de données sous microsoft access
appaccess.OpenCurrentDatabase strdb
appaccess.Visible = false
appaccess.DoCmd.OpenForm "MonFormulaireRecevantLesParametres", acPreview, , , , acHidden
appaccess.Forms![MonFormulaireRecevantLesParametres]![Txtannee] = txtAnnescol.Text
appaccess.Forms![MonFormulaireRecevantLesParametres] = CmbCodeNive.Text
appaccess.Forms![MonFormulaireRecevantLesParametres]![txtLaSerie] = CmbCodeSeri.Text
appaccess.DoCmd.OpenReport "MonEtatAccess"
appaccess.DoCmd.OpenForm "MonFormulaireRecevantLesParametres", acLayout, , , , acHidden
MsgBox "Clickez sur ok quand l'impression sera términée !!", vbInformation, "Impression"
End If
appaccess.CloseCurrentDatabase
Set appaccess = Nothing
Exit Sub
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, "Impression"
End Select
appaccess.CloseCurrentDatabase
Set appaccess = Nothing
End Sub |
Partager