Archivage ancienne donnée en PDF pour visualisation dans nv programme ?
14 réponses
Stéphane / Sandrine
Bonjour,
J'utilise depuis des années une base que j'avais développé sous ACCESS 97.
Je viens de terminer la création d'un nouveau programme toujours sous ACCESS
97 mais de structure différente.
Pourtant il s'agit toujours de gérer une base CLIENT.
Je souhaiterais, à parti du nouveau programme, pouvoir visualiser les
données de l'ancien programme (tout l'historique d'un client).
Je pensais, à parti de l'ancien programme, générer un état client par client
au format PDF et associé ce fichier PDF au nouveau enregistrement de ma
nouvelle base.
Est ce possible ?
- Comment paramétrer mon etat pour qu'il me produise un fichier par client
(identifié par la société + nom du contact).
- Comment faire le bouton de visualisation qui chercherait le bon fichier ?
Je pensais à un truc du genre "ATTACHER FICHIER" qui me permettrait de
sélectionner n'importe quel fichier PDF (car entre temp, le nom de la
société à parfois changé, ou le contact n'existe plus et a été remplacé,
..).
Quelqu'un a t'il déjà été confronté à cela ? A t'il une solution simple à
mette en oeuvre ?
J'ai l'impression que tu es en train de modifier l'api. L'api ne doit pas être modifiée. Ne la touches pas. je croyais que lRet & IIf(stRet = "", vbNullString, ", ") & stRet) était aussi dans ta fonction personnelle. comment appelles-tu la fonction OpenFileExtend dans ton appli ?
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Stéphane / Sandrine" a écrit dans le message de news:cctlt6$m4j$
Oui, jai ceci :
.... stRet = "Erreur : chemin non trouvé" Case ERROR_BAD_FORMAT: stRet = "Erreur : Type de FileName inconnu" Case Else: End Select End If
Il me renvoit l'erreur 28, dépassement de la pile mais me lance bien le fichier adéquat avec le bon applicatif. lret a la valeur : -1 , varTaskID a la valeur: ""
Stéphane.
J'ai l'impression que tu es en train de modifier l'api. L'api ne doit pas
être modifiée. Ne la touches pas. je croyais que lRet & IIf(stRet = "",
vbNullString, ", ") & stRet) était aussi dans ta fonction personnelle.
comment appelles-tu la fonction OpenFileExtend dans ton appli ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Stéphane / Sandrine" <contact@archives-nord.com> a écrit dans le message de
news:cctlt6$m4j$1@s1.read.news.oleane.net...
Oui, jai ceci :
....
stRet = "Erreur : chemin non trouvé"
Case ERROR_BAD_FORMAT:
stRet = "Erreur : Type de FileName inconnu"
Case Else:
End Select
End If
Il me renvoit l'erreur 28, dépassement de la pile mais me lance bien le
fichier adéquat avec le bon applicatif.
lret a la valeur : -1 , varTaskID a la valeur: ""
J'ai l'impression que tu es en train de modifier l'api. L'api ne doit pas être modifiée. Ne la touches pas. je croyais que lRet & IIf(stRet = "", vbNullString, ", ") & stRet) était aussi dans ta fonction personnelle. comment appelles-tu la fonction OpenFileExtend dans ton appli ?
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Stéphane / Sandrine" a écrit dans le message de news:cctlt6$m4j$
Oui, jai ceci :
.... stRet = "Erreur : chemin non trouvé" Case ERROR_BAD_FORMAT: stRet = "Erreur : Type de FileName inconnu" Case Else: End Select End If
Il me renvoit l'erreur 28, dépassement de la pile mais me lance bien le fichier adéquat avec le bon applicatif. lret a la valeur : -1 , varTaskID a la valeur: ""
Stéphane.
Stéphane / Sandrine
Comme ceci :
Private Sub Commande137_Click() Dim réponse As Variant réponse = OpenFileExtend("c:tempclasseur1.xls", 3, 1)
If Not réponse = True Then MsgBox réponse End If
End Sub
Mais il bloque dans la fonction
Stéphane. "Raymond [mvp]" a écrit dans le message de news:erYukb$
J'ai l'impression que tu es en train de modifier l'api. L'api ne doit pas être modifiée. Ne la touches pas. je croyais que lRet & IIf(stRet = "", vbNullString, ", ") & stRet) était aussi dans ta fonction personnelle. comment appelles-tu la fonction OpenFileExtend dans ton appli ?
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Stéphane / Sandrine" a écrit dans le message de
news:cctlt6$m4j$
Oui, jai ceci :
.... stRet = "Erreur : chemin non trouvé" Case ERROR_BAD_FORMAT: stRet = "Erreur : Type de FileName inconnu" Case Else: End Select End If
Il me renvoit l'erreur 28, dépassement de la pile mais me lance bien le fichier adéquat avec le bon applicatif. lret a la valeur : -1 , varTaskID a la valeur: ""
Stéphane.
Comme ceci :
Private Sub Commande137_Click()
Dim réponse As Variant
réponse = OpenFileExtend("c:tempclasseur1.xls", 3, 1)
If Not réponse = True Then
MsgBox réponse
End If
End Sub
Mais il bloque dans la fonction
Stéphane.
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:erYukb$ZEHA.3404@TK2MSFTNGP11.phx.gbl...
J'ai l'impression que tu es en train de modifier l'api. L'api ne doit pas
être modifiée. Ne la touches pas. je croyais que lRet & IIf(stRet = "",
vbNullString, ", ") & stRet) était aussi dans ta fonction personnelle.
comment appelles-tu la fonction OpenFileExtend dans ton appli ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Stéphane / Sandrine" <contact@archives-nord.com> a écrit dans le message
de
news:cctlt6$m4j$1@s1.read.news.oleane.net...
Oui, jai ceci :
....
stRet = "Erreur : chemin non trouvé"
Case ERROR_BAD_FORMAT:
stRet = "Erreur : Type de FileName inconnu"
Case Else:
End Select
End If
Il me renvoit l'erreur 28, dépassement de la pile mais me lance bien le
fichier adéquat avec le bon applicatif.
lret a la valeur : -1 , varTaskID a la valeur: ""
Private Sub Commande137_Click() Dim réponse As Variant réponse = OpenFileExtend("c:tempclasseur1.xls", 3, 1)
If Not réponse = True Then MsgBox réponse End If
End Sub
Mais il bloque dans la fonction
Stéphane. "Raymond [mvp]" a écrit dans le message de news:erYukb$
J'ai l'impression que tu es en train de modifier l'api. L'api ne doit pas être modifiée. Ne la touches pas. je croyais que lRet & IIf(stRet = "", vbNullString, ", ") & stRet) était aussi dans ta fonction personnelle. comment appelles-tu la fonction OpenFileExtend dans ton appli ?
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Stéphane / Sandrine" a écrit dans le message de
news:cctlt6$m4j$
Oui, jai ceci :
.... stRet = "Erreur : chemin non trouvé" Case ERROR_BAD_FORMAT: stRet = "Erreur : Type de FileName inconnu" Case Else: End Select End If
Il me renvoit l'erreur 28, dépassement de la pile mais me lance bien le fichier adéquat avec le bon applicatif. lret a la valeur : -1 , varTaskID a la valeur: ""
Stéphane.
Raymond [mvp]
j'ai du oublier de te donner la modif complète : Function OpenFileExtend(FileName As String, _ Optional Window As TypeOpen = Minimized _ , Optional Operation As OP = OpExecute _ ) As Variant
le résultat est en variant. ce qui veut dire qu'il y a une erreur dans ton chemin.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Stéphane / Sandrine" a écrit dans le message de news:cctvor$qtr$
Comme ceci :
Private Sub Commande137_Click() Dim réponse As Variant réponse = OpenFileExtend("c:tempclasseur1.xls", 3, 1)
If Not réponse = True Then MsgBox réponse End If
End Sub
Mais il bloque dans la fonction
j'ai du oublier de te donner la modif complète :
Function OpenFileExtend(FileName As String, _
Optional Window As TypeOpen = Minimized _
, Optional Operation As OP = OpExecute _
) As Variant
le résultat est en variant. ce qui veut dire qu'il y a une erreur dans ton
chemin.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Stéphane / Sandrine" <contact@archives-nord.com> a écrit dans le message de
news:cctvor$qtr$1@s1.read.news.oleane.net...
Comme ceci :
Private Sub Commande137_Click()
Dim réponse As Variant
réponse = OpenFileExtend("c:tempclasseur1.xls", 3, 1)
j'ai du oublier de te donner la modif complète : Function OpenFileExtend(FileName As String, _ Optional Window As TypeOpen = Minimized _ , Optional Operation As OP = OpExecute _ ) As Variant
le résultat est en variant. ce qui veut dire qu'il y a une erreur dans ton chemin.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Stéphane / Sandrine" a écrit dans le message de news:cctvor$qtr$
Comme ceci :
Private Sub Commande137_Click() Dim réponse As Variant réponse = OpenFileExtend("c:tempclasseur1.xls", 3, 1)
If Not réponse = True Then MsgBox réponse End If
End Sub
Mais il bloque dans la fonction
Stéphane / Sandrine
Ca y est !!
J'ai trouvé grâce à ton aide précieuse :
Function OpenFileExtend(FileName As String, Optional Window As Long = 2, Optional Operation As Long = 1) As Variant
j'ai du oublier de te donner la modif complète : Function OpenFileExtend(FileName As String, _ Optional Window As TypeOpen = Minimized _ , Optional Operation As OP = OpExecute _ ) As Variant
le résultat est en variant. ce qui veut dire qu'il y a une erreur dans ton chemin.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Stéphane / Sandrine" a écrit dans le message de
news:cctvor$qtr$
Comme ceci :
Private Sub Commande137_Click() Dim réponse As Variant réponse = OpenFileExtend("c:tempclasseur1.xls", 3, 1)
If Not réponse = True Then MsgBox réponse End If
End Sub
Mais il bloque dans la fonction
Ca y est !!
J'ai trouvé grâce à ton aide précieuse :
Function OpenFileExtend(FileName As String, Optional Window As Long = 2,
Optional Operation As Long = 1) As Variant
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:e7suzIBaEHA.3404@TK2MSFTNGP11.phx.gbl...
j'ai du oublier de te donner la modif complète :
Function OpenFileExtend(FileName As String, _
Optional Window As TypeOpen = Minimized _
, Optional Operation As OP = OpExecute _
) As Variant
le résultat est en variant. ce qui veut dire qu'il y a une erreur dans ton
chemin.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Stéphane / Sandrine" <contact@archives-nord.com> a écrit dans le message
de
news:cctvor$qtr$1@s1.read.news.oleane.net...
Comme ceci :
Private Sub Commande137_Click()
Dim réponse As Variant
réponse = OpenFileExtend("c:tempclasseur1.xls", 3, 1)
j'ai du oublier de te donner la modif complète : Function OpenFileExtend(FileName As String, _ Optional Window As TypeOpen = Minimized _ , Optional Operation As OP = OpExecute _ ) As Variant
le résultat est en variant. ce qui veut dire qu'il y a une erreur dans ton chemin.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Stéphane / Sandrine" a écrit dans le message de
news:cctvor$qtr$
Comme ceci :
Private Sub Commande137_Click() Dim réponse As Variant réponse = OpenFileExtend("c:tempclasseur1.xls", 3, 1)
