Discussion :

[buzz73]

Bonjour,

J'ai un dossier contenant des images et je les affiche dans un formulaire.
Les noms de ces images sont du type : img_aaaaaaaaa.jpg
A chaque changement d'enregistrement, j'aimerais modifier l'image.

Le problème est double :

1. aaaaaaaaa est un identifiant dont je ne connais que les 5 premiers caractères et je ne sais pas comment trouver l'image dont le nom débute par "img_" et ces 5 caractères : c'est quoi l'équivalent de "img_12345*.jpg" sur Access?
2. Le second problème est que parmi toutes les images dont le nom débute par "img_" et ces 5 caractères, je dois afficher l'image la plus récente (en date de modification)

[helas]

récupérer les fichiers images dans une table et piocher dedans en fonction de la date de creation par exemple

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
 
Sub FichierImg()
 Dim repertoire As String, fichier As String, t As DAO.Recordset
 
 repertoire = "D:\images\"
 
 Set t = CurrentDb.OpenRecordset("tbFichiers")
 fichier = Dir(repertoire & "img_*.jpg", vbArchive)
 Do Until fichier = ""
  t.AddNew
  t!fichier = fichier
  t!jour = FileDateTime(repertoire & fichier)
  t.Update
  fichier = Dir
 Loop
 t.Close
 Set t = Nothing
 
End Sub

[buzz73]

Merci helas!