Discussion :

[koopadu91]

Bonjour à tous,

Je suis entrain de mettre en place une base de donnée Access pour la gestion de matériel de prêt.

J'aimerai avoir une alerte par mail lorsque la date de restitution est dépassée.

Auriez-vous des idées?

[minot83]

Bonsoir,
regarde ce fil de discussion :
http://www.developpez.net/forums/d12...t-mail-alerte/

Cordialement

[koopadu91]

Bonsoir,

Merci pour la réponse mais cela ne correspond pas a mon besoin.

Je voudrais, enfin si possible, recevoir un mail d'alerte dès qu'un article prêté n'a pas été restitué a temps.

Exemple: location d'un dvd date de retour du DVD le 27/03/2013. Toujours pas de restitution du DVD un mail m'avertit que le DVD n'a pas été rendu.

[Robert1957]

Bonjour,
Je commencerais par faire une requête qui vérifie si un prêt est en retard. Cette requête fonctionnerais "sur minuterie" d'un formulaire menu général ou autre, donc dès que l'application est ouverte tu fais systématiquement la vérification. Si un prêt est en retard tu lance le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Dim outobj As Outlook.Application
    Dim outappt As Outlook.MailItem
    Set outobj = CreateObject("outlook.application")
    Set outappt = outobj.CreateItem(olMailItem)
    With outappt
        .To = Adresse email
        .Body = Le message que tu veux
        .Subject = Le sujet du message
        .Importance = olImportanceHigh 'L'importance du message
    End With
   ' Libérez la variable objet Outlook.
   Set outobj = Nothing

Naturellement il y a un peu d'ajustement à faire. Exemple: un champ qui test si le message à déjà été envoyer pour ne pas envoyer X fois le même message etc...

[koopadu91]

Pour ma requete concernant la date dépassée j'utilise une mise en forme conditionnelle pour l'instant, Cela me surligne en rouge les dates quand elle sont dépassées.

Mais j'aimerais avoir une alerte quand j'ouvre le fichier des dates depassées sur un pop up ou autres, avec la possibilité d'envoyer un mail de rappel toute les 48heures.

[Robert1957]

Pour ce que tu veux faire la mise en forme conditionnelle ne fera pas l'affaire. C'est bon pour ton formulaire mais ça ne te donne pas la possibilité de rappel.

Un Pop-up pourrait être activé sur l'évènement "Sur ouverture" de ton formulaire. Mais cela ne se fait pas sur une mise en forme conditionnelle. De plus la possibilité d'envoyer un mail tout les 48hres suppose que tu inscrit dans une table l'historique des envoie de mail sinon comment tenir le compte... Pour les envoies de mail c'est comme le code plus haut.

[koopadu91]

D'accord mais avec quelle requête "date dépassée"? Je n'arrive pas a trouver le code correspondant ...

[Robert1957]

Supposons ta table tblLocation avec certains champs mais un en particulier "Date_Retour" et aussi "Nom_Locateur"

Code :

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

1
2
3
SELECT tblLocation.*
FROM tblLocation
WHERE (((tblLocation.Date_Retour)<#" & Date() & "#));"

Cela te renvoie tous les enregistrements qui ont une date de retour avant aujourd'hui. Tu peux avoir un Pop-up qui va te donner le nom des individus qui sont fautifs. Le code pourrait ressembler à ceci:

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
25
Private Sub Form_Load()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim strSQL As String, strMessage As String
 
    strSQL = "SELECT tblLocation.* FROM tblLocation WHERE (((tblLocation.Date_Retour)<Date()));"
    strMessage = ""
    Set db = CurrentDb
    Set rst = db.OpenRecordset(strSQL)
    If rst.EOF = False Then
        While rst.EOF = False
            If strMessage = "" Then
                strMessage = rst("Nom_Locateur")
            Else
                strMessage = strMessage & Chr(13) & rst("Nom_Locateur")
            End If
            rst.MoveNext
        Wend
        MsgBox strMessage, vbInformation
    End If
    rst.Close
    Set rst = Nothing
    Set db = Nothing
 
End Sub

Pour le reste cela dépend de ce que tu veux faire...

[koopadu91]

J'ai une erreur de syntaxe. Ma table "Pret" et mon champs date_de_fin:

Code :

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

1
2
3
SELECT Pret.*
FROM Pret
WHERE (((Pret.Date_de_fin)<#" & Date() & "#));"

Merci de votre aide.

[Robert1957]

Désolé c'est mon erreur. Dans ta requête pas besoin de mettre # avant et après la fonction Date()

[koopadu91]

J'ai modifié les #, cependant il me demande d'enlever les " de fin. et des que je lance la requete access me demande d'entrer une valeur à Pret.date_de_fin.

je vien de trouver :

Code :

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

1
2
SELECT Pret.*
FROM PretWHERE (((Pret.[Date de fin])<=Date()));

Mainetant je fais en sorte qu'elle ce lance à l'ouverture du fichier.