Ce code permets d'ouvrir à partir de VB un Report Access. Car bien que Vb Aie maintenant ces propres report si vous les avez testé vous avez surement remarquer qu'il ne sont pas du tout au point ... ;-)
Source / Exemple :
Public Sub Imprimer(NomDoc As String, Optional Preview As Boolean = False)
Dim AppAccess As Access.Application
Dim strDB As String
Dim strReportName As String
On Error GoTo gerr
' Position de la base de donnée
strDB = "C:\GiteVB\gite.mdb"
Set AppAccess = New Access.Application
' Open database in Microsoft Access.
AppAccess.OpenCurrentDatabase strDB
If Preview Then
AppAccess.Visible = True
AppAccess.DoCmd.OpenReport NomDoc, acViewPreview, , "Id_Rens =" & GvarIdDemande
Else
AppAccess.DoCmd.OpenReport NomDoc, , , "Id_Rens =" & GvarIdDemande
MouseWait False
MsgBox "Clickez OK quand l'impression de " & NomDoc & _
" sera terminée"
AppAccess.CloseCurrentDatabase
End If
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
End Select
End Sub
Conclusion :
Attention il faut Ajouter la reference à Access
(Projet->Reference et cocher "Microsoft Access 9.0 Object Library")
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.