Discussion :

[vlksoft]

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

[urbanspike]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vlksoft]

Bonjour monsieur

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

bye