Discussion :

[sidisadmir]

Bonjour
S.V.P je cherche votre aide ,voila mon problème
j'ai crée un programme vb6 utilisant ADO et une base access 2003 .
par un bouton "Button Imprimer" je veux lancer l'impression d'un état access en utilisant cette procedure:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Private Sub CmdImprimer_Click()
Dim appaccess As Access.Application
Dim strdb As String
On Error GoTo gerr
'position de la base de donneés
strdb = App.Path & "\MaBase.mdb"
statef = "MonEtatAccess"
Set appaccess = New Access.Application
'ouvrir la base de données sous microsoft access
appaccess.OpenCurrentDatabase strdb
  appaccess.Visible = false
 appaccess.DoCmd.OpenForm "MonFormulaireRecevantLesParametres", acPreview, , , , acHidden
 appaccess.Forms![MonFormulaireRecevantLesParametres]![Txtannee] = txtAnnescol.Text
 appaccess.Forms![MonFormulaireRecevantLesParametres] = CmbCodeNive.Text
 appaccess.Forms![MonFormulaireRecevantLesParametres]![txtLaSerie] = CmbCodeSeri.Text
 appaccess.DoCmd.OpenReport "MonEtatAccess appaccess.DoCmd.OpenForm "MonFormulaireRecevantLesParametres", acLayout, , , , acHidden
 
 MsgBox "Clickez sur ok quand l'impression sera términée !!", vbInformation, "Impression"
 
 
 End If
 appaccess.CloseCurrentDatabase
 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, vbCritical, "Impression"
 End Select
 appaccess.CloseCurrentDatabase
 Set appaccess = Nothing
End Sub

quand je débug mon programme , tout marche bien
mais quand j'utilise MonProgramme.exe je reçois le message suivant

erreur'429' le composant activex ne peut pas créer l'objet.
je click sur "ok"
un deuxième message :"variable bloc with non definée.

Quand je regarde l'observateur d'evenements je vois que le problème vient de: DCOM le message que je lis est :

"Le serveur {73A4C9C1-D68D-11D0-98BF-00A0C90DC8D9} ne s'est pas enregistré sur DCOM avant la fin du temps imparti"

alors si qlq un veut bien m'aider!!

[Vince]

DOUBLON : http://www.developpez.net/forums/d13...s-creer-objet/

de plus cela semble être du VB6...