Discussion :

[omen123]

bonjour les amis,

aujourd'hui je me trouve confronter a un petit souci, j'ai creer un champ sur ma table type : piece jointe , le probleme est que la piece est enregistrée sur la base acces . y 'a t il une possibilité pour modifer le chemin de l'enregitrement de la piece jointe ,exemple c:/ fiche.

PS :j'ai lu que la taille maximum d'acces est de 2 go, et j'ai 56996 enregistrement et chaque enregistrement a une piece jointe de 400 kilooctes donc ca va depasser largement acces .

merci pour votre aide qui est tres precieuse.

[Jean-Philippe André]

Bonjour,

ne stocke pas les pieces jointes en elle meme, mais seulement leur emplacement reseau (path)

[omen123]

et comment faire stp ci joint le lieu :

\\172.21.104.208\fiche

millle merciiiiiii

[Jean-Philippe André]

Hum,

tu remplaces ton champ piece jointe par un champ de type texte

A quel endroit tu bloques ?

[omen123]

lol dés le debut je bloque . pour l'insertion des pieces jointes c bon mais apprement il faut pas le faire donc je cherche a modifier le chemin (a les mettre dans mon disque dur).

dans le fichier texte je met quoi ? sachant que chaque enregistrement a une piece jointe specifique ( un dossier scanné)

merci

[Jean-Philippe André]

Pardon, j'ai du mal m'exprimer.

Tu as un fichier que tu souhaite stocker.

1/ Tu places le fichier sur ton disque en enregistrant son emplacement (par exemple C:\tondossier\tonfichierXYZ.docx)
2/ Dans ton champs emplacement de la table des pieces jointes tu mets la valeur du path en question (dans mon exemple C:\tondossier\tonfichierXYZ.docx)

[omen123]

ahhhhhhh okiiiii mais il y'aura un souci, si dans le meme dossier j'ai 50 fiches ,comment je saurai laquel je cherche .

exemple l'enregistrement 1,2,3,4.... aisini jusqua 50 ,quelle enregistrement correspont a quelle fiche ?

[Jean-Philippe André]

A toi de gere une nomenclature pour une numerotation =]

Ta piece jointe vient de quelle source ? N'as tu pas un moyen de determiner un identifiant unique susceptible d'etre rattache a cette piece jointe ?

[omen123]

mmm donc je dois renomer chaque piece , les pieces proviennent de word il s'agit d' une fiche risque pour chaque dossier. mon but dans une table consultation de cliquer sur le champ piece jointe et ouvrir la fiche .

apparement la soultion ideale c est de changer le chemin d'enregistrement via le VBA , mais je sias pas si c est possible ou pas .

[Jean-Philippe André]

Oui, pour la partie programmation derriere, on peut piloter Word et changer le nom d'enregistrement, ainsi que permettre l'ouverture automatique de la piece jointe avec le logiciel par defaut =]

[omen123]

ahh ca c'est difficile pour moi ,mais je parle de VBA sur acces par exemple du code pour que acces fais l'enregistrement sur mon bureau et non sur la base.

[Jean-Philippe André]

On a pas mal de documentation a disposition pour arriver a l'objectif, ne t'en fais pas.

Du coup je te propose un decoupage comme celui-ci :
- comment et a quel moment doit-on enregistrer la piece jointe ?
- quel nomenclature souhaites-tu mettre en place ?
- pour ouvrir le fichier on a le code suivant disponible : http://access.developpez.com/faq/?pa...n#shellexecute

[omen123]

- comment et a quel moment doit-on enregistrer la piece jointe ?

normalement je fais la fiche de risuqe sur word . une fois fini je doit la ratacher a acces.

- quel nomenclature souhaites-tu mettre en place ?

nomenclaure veut dire critere ? si oui par nom ca sera sympa.

merci

[Jean-Philippe André]

Il te fautdrait etre plus precis j'en ai peur.

OK la piece jointe est dans word, mais comment souhaites-tu qu'Access sache que le fichier est pret ??

Une nomenclature est une facon de classifier tes informations, par exemple jjmmaaaa_monfichier.doc donnerait aujourd'hui 21/11/2016 21112016_monfichier.doc

[omen123]

ah non c moi qui va joindre le fichier word dans acces manuellement.

[ClaudeLELOUP]

Bonjour,
Ce que tu pourrais par exemple faire :
nommer les fichiers Word avec l’identifiant client et les loger dans un sous-répertoire de celui qui contient ta base.
Dans le formulaire un bouton (dans ta colonne Fiche) . Lorsqu’on clique le bouton,
1re étape
de deux choses l’une
- il y a déjà déjà un .docx pour ce client : on passe à l’étape suivante,
- il n’y a pas encore de document : le programme en crée un par copie d’un modèle ;
2e étape
Access passe la main à Word qui t’affiche le document relatif au client => tu complètes et/ou modifies.
3e étape
Quand tu fermes Word, Access reprend la main.

Comme les documents sont logés dans un répertoire relatif à celui de la base de données, et que leur nom dépend de l’enregistrement actif, il n’est pas nécessaire de mémoriser un chemin.

[omen123]

bonjour

c'est exectementttttttttttttt ce qu'il me faut.mais a priori ca sera difficile pour moi etant que je suis debutant sur acces.

pour les renomer pas de souci.

[ClaudeLELOUP]

Affiche une capture d'écran de la définition de la source du formulaire que je puisse voir le nom des colonnes.

[omen123]

bonjour

ci joint



merci

[ClaudeLELOUP]

Dans le répertoire de ta db, crée un sous-répertoire « Documents » et loges-y ton modèle vierge en l’appelant « DocModele.docx ».
Dans un module tu places ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Compare Database
Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Public Sub Ouvrir_fichier(Chemin As String)
 
'Ouvrir, avec le pgm associé, le fichier dont le chemin est passé en paramètre
ShellExecute Application.hWndAccessApp, "open", Chemin, "", "", 1
 
End Sub

Merci à Loufab qui a donné ce code ici : http://www.developpez.net/forums/d15...m/#post8379255
Va voir et n'hésite pas à le « plusser » !

Dans ton formulaire,
- tu nommes « TXTid_demande » le contrôle qui contient « id_demande » ;
- tu ajoutes un bouton (je l’ai appelé btDocument) et tu lui associes ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Explicit
 
Private Sub btDocument_Click()
  Dim sDocument As String
  'Le document existe-t-il, sinon le créer
  sDocument = CurrentProject.Path & "\Documents\" & Me.TXTid_demande & ".docx"
  If Len(Dir(sDocument)) = 0 Then
    FileCopy CurrentProject.Path & "\Documents\DocModele.docx", sDocument
  End If
 Ouvrir_fichier (sDocument)
End Sub

En P.J. ce qui m’a servi de test.