'On Error Resume Next Dim AppAccess As Access.Application Dim dbstr As String Set AppAccess = New Access.Application Set AppAccess = CreateObject("Access.Application") AppAccess.Visible = True dbstr = MyBddPath & "\GestionDeStock.mdb" AppAccess.OpenCurrentDatabase dbstr AppAccess.DoCmd.OpenReport "Etat_Historique", acViewPreview, , "Qte=800"
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
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.