Discussion :

[Crachover]

Bonjour,

J'ai un formulaire en mode continu... qui contient un champ [URL] qui pointe vers un fichier quelconque. Exemple : C:\Users\Propriétaire\Pictures\Images\vacance.jpg

J'ai dans mon formulaire deux images [IMAGE01] : un point rouge et [IMAGE02] : un point vert

J'aimerais qu'à chaque ligne contenant un enregistrement, donc un lien dans le champ [URL], il y ai un test de validation, si le lien est valide le point vert s'affiche autrement c'est le point rouge.

Pourriez-vous m'aider, car je n'ai aucune idée du code à créer.

Merci d'avance :-)

[Robert1957]

Bonjour Crachover,

Vous avez ICI les explications pour insérer une image dans un formulaire continu.

Pour correspondre à votre demande, vous n'avez qu'a créer une requête pour alimenter votre formulaire avec un champ supplémentaire nommé "Photos" comme ceci (je prend l'exemple de Morgan BILLY) et adapter à vos besoins:

Code :

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

SELECT tblEmployes.*, IIf(IsNull([LeChampURL]),"C:\...\IMAGE01","C:\...IMAGE02") AS Photos FROM tblEmployes;

Bonne journée

[CrasherSEP]

Bonjour et merci pour votre réponse, mais à mon avis je me suis mal expliqué :-)

Le problème n'est pas qu'il existe ou pas un lien, c'est qu'il soit valide, qu'il existe encore

Exemple :

Lors de la création du lien, C:\\....\Photos\doc.pdf

Après cela, un jour... le fichier doc.pdf est modifié en docs.pdf ou effacé...

J'aimerais un test sur le lien dans mon formulaire... et rouge.visible = True : vert.visible = False...

Bonne journée :-)

[Robert1957]

Bonjoour CrasherSEP,

En effet ce n'est pas la même chose. Il existe un moyen simple de vérifier si un fichier existe, c'est la méthode "FileExists " du "Scripting.FileSystemObject". Vous pourriez remplacer le test

Code :

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

IIf(IsNull([LeChampURL])

par une fonction qui retourne vrai/faux si le fichier existe. Dans un module standard:

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
Option Compare Database
Option Explicit
 
Public Function LienExiste(ByVal sChemin As String) As Boolean
On Error GoTo gestion_err
 
Dim oFSO                    As Object
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
If oFSO.FileExists(sChemin) Then LienExiste = True
 
Sortie:
On Error Resume Next
    Set oFSO = Nothing
    Exit Function
 
gestion_err:
    MsgBox "Erreur dans la procédure!" & Chr(13) & "Erreur #" & err.Number & Chr(13) & err.Description
    Resume Sortie
End Function

Et dans la requête:

Code :

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

IIf(LienExiste ([LeChampURL]),"C:\...\IMAGE01","C:\...IMAGE02")

Ici je suppose que le champ [LeChampURL] n'est jamais vide ou null, ce qui provoquerait une erreur.

Bonne journée

[Robert1957]

Bonjour Crachover,

J'ai oublié de vous mettre le lien d'un très bon tutoriel pour la manipulation des fichiers en VBA, ICI vous aurez toutes les explications nécessaires.

Bonne journée

[CrasherSEP]

Bonjour,

Ne fonctionne pas... :-/

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
Function LienExiste(ByVal sChemin As String) As Boolean
On Error GoTo gestion_err
 
Dim oFSO As Object
 
sChemin = Me.URL.Value
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
If oFSO.FileExists(sChemin) Then LienExiste = True
 
Sortie:
On Error Resume Next
    Set oFSO = Nothing
    Exit Function
 
gestion_err:
    MsgBox "Erreur dans la procédure!" & Chr(13) & "Erreur #" & Err.Number & Chr(13) & Err.Description
    Resume Sortie
End Function
 
Private Sub Form_Load()
If LienExiste = True Then Me.Image189.Visible = True: Me.Image190.Visible = False Else Me.Image189.Visible = False: Me.Image190.Visible = True
End Sub