Ouverture Etat Access dans VBA6

Bonjour a tous,

j ai cree une appli qui utilise des formulaires VB6.0 et les bases de donnees sont en access. Et il y a aussi des etats qui sont en access egalement. Et quand je lance l apercu avant impression les etats s affichent normalement. C est exactement ici que se pose mon probleme. Le message de securite qui s affiche a l entree d access, est il possible de modifier le niveau de cette securite a partir du code pour que j affiche directemement l etat sans passer par ce message?

Merci

Hello,

Pour ma part j'utilise du code qui ouvre l'état voulu en snapshot format et je n'ai pas ce message de sécurité par access. Mon access 2003 est avec les options par défaut.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

On Error GoTo fin   Static acc As access.Application Dim db As DAO.Database Dim strdbname As String   strdbname = App.Path & "/mabase.mdb" Set acc = New access.Application acc.Visible = False Set db = acc.DBEngine.OpenDatabase(strdbname, False, False, ";PWD=****") acc.OpenCurrentDatabase strdbname acc.DoCmd.OutputTo acOutputReport, "E_fiche_intervention", "SnapShot Format", _ App.Path & "\Fiche\fiche_intervention.snp", True acc.Quit acQuitSaveNone db.Close Set db = Nothing Set acc = Nothing   fin: On Error Resume Next acc.Quit acQuitSaveNone Exit Sub

---

Bonjour monsieur

merci pour cette aide et si ca marche bien, je reviens pour cocher resolu.

bye