Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access erreur entre access et word

erreur entre access et word

1 réponse
Avatar
jerome
J'ai un champ OLE en pr=E9visualisation du document,lorsque=20
je doubleclique sur l'object le doc s'ouvre avec le code=20
suivant:

Private Sub ctlSourceDocument_DblClick(Cancel As Integer)
Dim ole1 As Control
'si le control est null,le lance la boite de message
If IsNull(Me.ctlSourceDocument) Then
Intreponse =3D MsgBox("Vous n'avez pas de=20
document,Voulez-vous ins=E9rer un document.", vbQuestion +=20
vbYesNo, "Gestion Commercial")
If Intreponse =3D vbYes Then
' Affiche la bo=EEte de dialogue Ins=E9rer un objet.
ctlSourceDocument.Action =3D acOLEInsertObjDlg
End If
Else
'si le champ est pas null
If Not IsNull(Me.ctlSourceDocument) Then
'je lance la fonction Fusiondevis qui cr=E9er un fichier=20
de publipostage au format RTF
FusionDevis
'je lance l'ouverture du document
Set ole1 =3D Me!ctlSourceDocument
ole1.Verb =3D acOLEVerbOpen
ole1.Action =3D acOLEActivate
'puis je lance la fonction de r=E9glage du publipostage =20
dans word avec le fichier de publipostage cr=E9er auparavant=20
publipostage (NumDocument)
=20
End If
End If
End Sub

Mon probl=E8me se trouve au moment ou la fonction=20
publipostage se lance une erreur 462 survient.
pour creer cette fonction j'ai simplement cr=E9er une macro=20
dans word, j'ai r=E9cup=E9rer le script que j'ai incorpor=E9=20
dans un module.

j'ai parcouru plein de site et je ne trouve pas la solution
=E0 mon probl=E8me=20
merci de me donner un coup de main

jerome
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel Carollo
Bonjour Jerome!

L'erreur 462 est-elle generee par Access ou par Word?
Votre probleme n'est pas evident a resoudre. Il necessite une session de
debugging sur le vrai code, avec des donnees pour pouvoir tester. De plus,
vous ne nous donnez meme pas tout le code concerne. A moins d'avoir la base
complete sous les yeux, cela va etre tres difficile de vous aider.

Les miracles, oui, mais pas en programmation...

--
Daniel :-)

Computing Technologies International - www.computing-tech.com - We
provide solutions...

"jerome" wrote in message
news:1446f01c444ce$d5c81d70$
J'ai un champ OLE en prévisualisation du document,lorsque
je doubleclique sur l'object le doc s'ouvre avec le code
suivant:

Private Sub ctlSourceDocument_DblClick(Cancel As Integer)
Dim ole1 As Control
'si le control est null,le lance la boite de message
If IsNull(Me.ctlSourceDocument) Then
Intreponse = MsgBox("Vous n'avez pas de
document,Voulez-vous insérer un document.", vbQuestion +
vbYesNo, "Gestion Commercial")
If Intreponse = vbYes Then
' Affiche la boîte de dialogue Insérer un objet.
ctlSourceDocument.Action = acOLEInsertObjDlg
End If
Else
'si le champ est pas null
If Not IsNull(Me.ctlSourceDocument) Then
'je lance la fonction Fusiondevis qui créer un fichier
de publipostage au format RTF
FusionDevis
'je lance l'ouverture du document
Set ole1 = Me!ctlSourceDocument
ole1.Verb = acOLEVerbOpen
ole1.Action = acOLEActivate
'puis je lance la fonction de réglage du publipostage
dans word avec le fichier de publipostage créer auparavant
publipostage (NumDocument)

End If
End If
End Sub

Mon problème se trouve au moment ou la fonction
publipostage se lance une erreur 462 survient.
pour creer cette fonction j'ai simplement créer une macro
dans word, j'ai récupérer le script que j'ai incorporé
dans un module.

j'ai parcouru plein de site et je ne trouve pas la solution
à mon problème
merci de me donner un coup de main

jerome