Discussion :

[DurDur]

Bonsoir,

Pour mon usage personnel, j'ai réalisé une petite base de données avec ACCESS 2007.
- J'ai une table contenant la date de début du prêt.
- J'aimerais, à la mise en route (donc avec la date du jour), recevoir une alerte si la date d'échéance du prêt approche ou si elle est dépassée, et si possible visualisée les titres, sachant que la durée du prêt est de 4 semaines.
- Je ne voudrais pas utiliser mon champ DateReour pour la saisie de la date réelle du Retour.
- J'ai essayé de faire une requête, mais je n'arrive pas à intégrer ce code pour calculer la date prévue du retour et la comparer à la date du jour. Ce code fonctionne hors requête.

Code :

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

dateadd("ww",4,datedébut)>now()

Avez-vous une idée ?

Merci pour votre aide.

JCB

[User]

Bonjour,

En mode création de la requête, ajouter un champ calculé DateEcheance dans votre requête :

DateEcheance : AjDate("ee";4;[DateDebut])

Mettre en dessous de ce champ, sur la ligne Critères :

>= Date()

Cela va garder uniquement les prêts arrivés à échéance.

Vous pouvez d'ailleurs ajuster le critère si vous souhaitez être prévenu avant (prêts dont l'échéance est proche,..).


Ensuite, si vous avez un formulaire d'accueil qui s'ouvre au démarrage, alors vous pouvez mettre du code sur son événement ouverture :

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
Private Sub Form_Open(Cancel As Integer)
    Dim rst As DAO.Recordset
 
    'ouverture du jeu d'enregistrements de la requête avec le filtre
    Set rst = CurrentDb.OpenRecordset("Requete_echeances")
 
    If Not rst.EOF Then ' si des prêts arrivent à échéance
        MsgBox "Alerte - échéance prêt !", vbExclamation
        ' ouvrir le formulaire basé sur la requête
        ' DoCmd.Openform "Formulaire_Echeances" 
    End If
 
    ' fermeture et libération
    rst.Close
    Set rst = Nothing
End Sub

Cdlt,

[DurDur]

Bonjour,

Merci pour votre réponse rapide et précise.
Après adaptation, voilà le résultat.
J'avais bien pensé à un "champ calculé" mais je ne savais pas le mettre en pratique.

Code :

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

1
2
3
4
5
6
7
8
9
‘AlerteBientot :
SELECT tbl_Fiches.RefLivre, tbl_Fiches.Livre, tbl_Fiches.Debut, tbl_Fiches.Retour, DateAdd("ww",4,[Debut])-Date() AS Difference
FROM tbl_Fiches
WHERE (((tbl_Fiches.Debut)>=#3/1/2024#) AND ((tbl_Fiches.Retour) Is Null) AND ((DateAdd("ww",4,[Debut])-Date()) Between 0 And 7));
 
‘AlerteRetard
SELECT tbl_Fiches.RefLivre, tbl_Fiches.Livre, tbl_Fiches.Debut, tbl_Fiches.Retour, DateAdd("ww",4,[Debut]) AS DateEcheance
FROM tbl_Fiches
WHERE (((tbl_Fiches.Debut)>=#3/1/2024#) AND ((tbl_Fiches.Retour) Is Null) AND ((DateAdd("ww",4,[Debut]))<=Now()));

Maintenant je vais mettre en place la deuxième partie, c'est l'affichage de l' "ALERTE"

Merci encore de votre aide.

JCB