Discussion :

[alex.a]

Bonjours à tous,

Voilà j'ai un petit problème et je ne sais pas si ce que je souhaite faire est possible.
J'ai crée un formulaire prenant en compte des photos stockées dans un dossier. Le code affiche l'image dans le formulaire si une photo porte le nom d'un champ de l'enregistrement en cours (numéro d'immatriculation). Mon problème est qu'un certain nombre de photo dans le dossier ne sont associé a aucun enregistrement, et j'aimerais garder dans mon dossier que les photos associées a un enregistrement, je voudrais donc faire un code qui permette d'afficher toutes les photos du dossier pour lequel il n'y a pas d'enregistrement associé (de manière a pouvoir ensuite soit les supprimer soit créer un enregistrement).

Merci pour vos éclaircissements.
Alex

[LedZeppII]

Bonjour,

Je pense que c'est possible.
Dans un premier temps il faut écrire un bout de code qui parcourt les dossiers et sauve dans une table les nom et chemin des images trouvées.
Ensuite tu fais une requête de non correspondance entre la table remplie par le code et la table utilisée par ton formulaire.

Bon courage.

[alex.a]

Bonjour,

Dans un premier temps il faut écrire un bout de code qui parcourt les dossiers et sauve dans une table les nom et chemin des images trouvées.

Merci,
Le problème est de recupérer le nom des photos dans un champ, as-tu une idée sur le sujet?

[LedZeppII]

Voila un exemple de code qui enregistre les résultats dans une table "ListeImages" ayant un champ Chemin et un champ Fichier.
cf FAQ http://access.developpez.com/faq/?pa...#TrouvFichDoss

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
Sub ListPics()
Dim FoundFile As Variant, r As ADODB.Recordset, p As Integer
Dim RetVal As Long

Application.FileSearch.NewSearch
Application.FileSearch.FileName = "*.gif;*.jpg;*.jpeg"
Application.FileSearch.LookIn = "D:\"  ' chemin de recherche
Application.FileSearch.SearchSubFolders = True
RetVal = Application.FileSearch.Execute()

If Application.FileSearch.FoundFiles.Count > 0 Then
   CurrentProject.Connection.Execute "DELETE FROM ListeImages"
   Set r = New ADODB.Recordset
   r.CursorLocation = adUseServer
   r.Open "ListeImages", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTable
   
   For Each FoundFile In Application.FileSearch.FoundFiles
       r.AddNew
       p = InStrRev(FoundFile, "\")
       If p > 0 Then
          r!Chemin = Left(FoundFile, p - 1)
          r!Fichier = Mid(FoundFile, p + 1, Len(FoundFile) - p)
       Else
       
       End If
   Next
   If r.EditMode <> adEditNone Then r.Update
   r.Close
   Set r = Nothing
End If

End Sub

Bon courage