Discussion :

[m_charmat]

Bonjour,

J'ai réussi a trouver un code pour verifie l'existance ou non d'une photo dans le répertoire spécifique d'un étudiants en format "PNG" dans chaque formulaire, malheureusement cette méthode me prendra bcp de temps pour connaitre qui manque.

Est-il possible d'afficher le résultat par (Oui/non) dans une requête ?

J'ai nommé les photos de chaque étudiant par leurs clefs primaires, comme ça le formulaire cherchera la photo directement dans le répertoire spécifie.

Code :

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

Photo = [ID_AM]&".png"

voici le code fonctionnel du bouton dans le formulaire

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
\Private Sub Commande178_Click()
    Dim strCheminFichier As String
    Dim strNomFichier As String
    Dim strDossier As String
 
    ' Définir le dossier où chercher le fichier
    strDossier = "D:\Application_Acces\Photos_stagiaires\" ' Remplacez par le chemin correct
 
    ' Définir le nom du fichier à vérifier
    strNomFichier = [ID_AM]&".png" ' Remplacez par le nom de fichier désiré
 
    ' Construire le chemin complet du fichier
    strCheminFichier = strDossier & strNomFichier
 
    ' Utiliser la fonction Dir pour vérifier l'existence du fichier
    If Dir(strCheminFichier) <> "" Then
        ' Le fichier existe
        MsgBox "Le fichier " & strNomFichier & " existe dans le dossier " & strDossier, vbInformation
    Else
        ' Le fichier n'existe pas
        MsgBox "Le fichier " & strNomFichier & " n'existe pas dans le dossier " & strDossier, vbCritical
    End If
 
End Sub

Merci

[EricDgn]

Bonjour,

Quelque chose de ce genre, à lancer depuis l'éditeur VBA:

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
Private Sub PngManquants()
    Dim rs As DAO.Recordset
    Dim strCheminFichier As String
    Dim strNomFichier As String
    Dim strDossier As String
    strDossier = "D:\Application_Acces\Photos_stagiaires\"
    Set rs = CurrentDb.OpenRecordset("NomTable")            '<<< indiquer le nom de la table concernée
    Debug.Print "--- Fichiers .png manquants ---"
    Do While Not rs.EOF
        strNomFichier = rs.[ID_AM] & ".png"
        strCheminFichier = strDossier & strNomFichier
        If Dir(strCheminFichier) = "" Then                  ' Le fichier n'existe pas
            Debug.Print strNomFichier
        End If
        rs.MoveNext
    Loop
    Debug.Print "--- Fin ---"
End Sub

Cordialement.

[m_charmat]

Bonsoir,

Je l’est tester, il ne reconnaît pas le champ [ID_AM], c’est la clef primaire de la table « Table1 »

[EricDgn]

Remplacer rs.[ID_AM] par rs![ID_AM]

[m_charmat]

Re bonsoir,

Avant, j’utilisais pièce jointe pour les photos, c’était tres pratique pour savoir l’existence ou pas et le résultat était immédiat, après le projet prennent bcp de volume, il est devenue 47 mégas, j’ai du abandonner le champs pièce jointe pour un champ texte simple ou je stock l’adresse de chaque photos, avec cette méthode le fichier est devenu 1,2 mégas seulement, malheureusement j’ai sacrifié la possibilité de connaître le manque des photos.

Est-il possible d’afficher le résultat dans une requête ? C’est pour ajoute les autres champs comme leurs matricules, nom, prénom, Année universitaire… etc

C’est pour le bute de crée un état pour l’imprimer.

Merci

[EricDgn]

Vous pouvez utiliser une fonction personnalisée comme celle-ci dans une requête:

Code :

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

1
2
3
4
5
6
7
8
Public Function PhotoOk(kId As Long)
    CheminPhoto = DossierPhoto & kId & ".jpg"
    If Dir(CheminPhoto) = "" Then
        PhotoOk = False
    Else
        PhotoOk = True
    End If
End Function

Un exemple en attaché.
A adapter.

[m_charmat]

Bonjour,
Je travaille déçu depuis 2 heure du matin.

Le formulaire 2 ? C’est un sous-formulaire ?
Comment vous l’avez réalisé ?

Bonne journée, normalement je l’aurais fini cette après midi après mon retour du travail.

Merci infiniment

[EricDgn]

Le formulaire 1 a comme "Affichage par défaut: Formulaire unique".
Le formulaire 2 a comme "Affichage par défaut: Formulaires continus".
Il est facile de changer ce mode d'affichage par défaut quand on est en mode création du formulaire.


Cordialement.

[m_charmat]

Re bonjour,

Je vous remercie pour votre aide, je l’est tester et ça marche à merveille.

Vous m’avez donner une autre méthode d’afficher les photos sans stocker leurs liens dans un champ texte, waoo.

Vous m’avez donner un formulaire mieux que j’avais espéré avant, celui de choisir d’afficher (tous/disponible/non disponible), waoo.

Je pourrais le fusionné avec d’autres applications que j’ai.

Un grand merci.