Je deviens completement FOU!!!

Question

Je fais une interface VB pour une BD access, et j'éssaye deseperement d'ouvrir un état dans access...
J'ai chercher sur des sites d'aide en ligne, sur des forums, dans des bouquins et on me donne tjrs la même réponse : Docmd.OpenReport report, acViewPreview
Et ça marche pas pour moi!!! L'état s'imprime directe sans aperçu!!!!C'est déjà ça vous me direz, mais je voudrais décider de le consulter dans mon appl. avant!!!Sais vraiment pas pourquoi!!! Et je pete les plombs!!! Est-ce un problème dans ma BD, au niveau de la cmd openreport?
Est-ce un prob. dans mon app., au niveau du code, ou dois-je faire appel a une app. pour pouvoir voir la preview???
 Aidez moi svp.....

nhervagault · Answer

Private Sub cmdImprimer_Click()
    Set ac = GetObject(App.Path + "\mabdd.mdb")
    ac.DoCmd.OpenReport rapport, acViewNormal
    Set ac = Nothing
End Sub

acViewNormal --> impression
acViewPreview --> apercu
rapport --> string nom du rapport access

Voila

(je l'ai deja posté 3 ou 4 fois sur le forum cette methode :-) )

SCOY · Answer

Je sais que tu l'as déjà noté 3 ou 4 fois.... je l'ai utilisé..... mais ça marche pas! Pas avec mon interface...Je comprends pas pourquoi, t'as une idée de ce qui foire? 
L'état s"'imprime, donc c'est que qlqpart ça marche, mais j'ai pas d'aperçu...
STP Help me!

nhervagault · Answer

ajoute la reference microsoft aceess 9.0 (ou autre ) object  library a ton projet

nhervagault · Answer

acViewPreview  a la place de acViewNormal 

j'avait pas lu la suite du message

ajoute la reference microsoft aceess 9.0 (ou autre ) object  library a ton projet

SCOY · Answer

C'est fais 10.0
Ca ne s'imprime plus.... mais toujours pas d'aperçu...

nhervagault · Answer

avec 
ac.DoCmd.OpenReport rapport, acViewPreview
normalement ca marche

m$ access object library 8.0 --> 97 je crois
9.0 --> 2000
10.0 --> XP je crois

SCOY · Answer

OK, ça marche. Mais excuse moi de prendre encore un peu de ton temps mais j'aurais besoin du code pour que mon appl. ouvre access(et le referme..) pour pouvoir voir l'aperçu, je ne le voit que si access est ouvert....
Merci de ton aide!

rapeur_n1 · Answer

j'ai du mal &#224; conecter le composant DATA &#224; une requete ACCESS please save me !!!

apaulux · Answer

http://multibases.site.voila.fr



Sub C_QueryDef(sName As string, sTmp As string)
Dim DB As DAO.Database, NewQuery As QueryDef
Set DB = OpenDatabase(Source, False, gnReadOnly, sConnect)
  With DB
  DB.QueryDefs.Delete sName
End With
   Set NewQuery = DB.CreateQueryDef(sName, sTmp)
   DB.Execute sName
Set DB = Nothing
End Sub


Sub Imprimer()
Dim x1obj As Object
On Error Resume Next
Set x1obj = GetObject("Access.Application")
x1obj.Application.Quit
Set xx1obj = GetObject("C:\Documents and Settings\paul\Bureau\Comptoir.mdb")
xx1obj.DoCmd.Maximize
xx1obj.DoCmd.OpenQuery sName, acViewPreview
xx1obj.Application.Visible = True
'ne pas fermer l'application
MsgBox "Termin&#233;e"Set x1obj Nothing: xx1obj Nothing
End Sub

[mailto:paul.ablasou@wanadoo.fr mailto:paul.ablasou@wanadoo.fr]

Je deviens completement FOU!!!

9 réponses

Discussions similaires