5/5 (17 avis)
Snippet vu 32 305 fois - Téléchargée 74 fois
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
3 juil. 2007 à 14:02
votre code est bien fait mais j ai un petit problème avec moi je veux faire passer plusieurs paramètre pour ouvrir un état le code client et le code de la facture et la date et vraiment je sais pas comment utiliser GvarIdDemande
tout marche mais une fois l'access est ouvert je dois saisir les paramètre pour afficher mon état
voila la ce que je dois saisir
(sql = "[Code vFactures]='" & numfac & "' And vFactures.Date = '" & f & "' And [Code Client] ='" & numclient & "'")
et faire passer mais je sais pas comment procédés merci d'avance pour votre aide
veuillez m'envoyer la réponse dans cette adresse tifawine@gmail.com
et merci
5 oct. 2006 à 12:30
Essaye peut-être d'utilisé "Outils -> Démarrage"(dans les menus Access) de ta DB ...
5 oct. 2006 à 12:05
25 juil. 2006 à 16:53
24 juil. 2006 à 20:20
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.