Private Sub Form_Current()
If Not Me.NewRecord Then
sShowPicture
Else
Me.Image2.Picture = ""
End If
End Sub
Private Sub sShowPicture()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim fol As Object, fil As Object, FN As String
Set fol = fso.GetFolder(CurrentProject.Path & "\picto")
For Each fil In fol.files
FN = Mid(fil.Name, 1, InStrRev(fil.Name, ".") - 1)
If FN = Me.ID Then Me.Image2.Picture = fil.Path
Next
End Sub