Message d'alerte si une requête renvoit des résultats

Fermé
Cléoline - 4 déc. 2014 à 08:30
 Cléoline - 5 déc. 2014 à 13:33
Bonjour,

Je travaille sous Access 2007-2010.

Voilà, j'ai une base de données assez complexe que j'ai récupérée, je ne l'ai pas crée.

Je souhaiterai que à l'ouverture de la base de données, une message d'alerte s'ouvre si une des requêtes renvoie des résultats (requête de relance).

Est-ce que cela est possible ?

Merci d'avance,

Cléoline


A voir également:

1 réponse

benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 87
4 déc. 2014 à 10:58
Salut,

Oui c'est possible par macro.

Alt+F11 Insertion -> Module

Dans le module créé, copie-colle ce code :

Sub AutoExec()

Dim rs As Recordset
Dim qdf As QueryDef

Set qdf = CurrentDb.QueryDefs("lenomdetarequete") 'à adapter
Set rs = qdf.OpenRecordset
    
    If rs.RecordCount > 0 Then
        MsgBox "ton message" 'à adapter
    End If
    
End Sub
0
Bonjour,

Merci pour la réponse rapide, mais malheureusement cela ne marche pas...

J'ai copié/collé le texte en remplaçant le nom de la requête, et à l'ouverture de la base de données, rien ne se passe...
0
J'ai réussi avec ceci :

http://grenier.self-access.com/access/questions-generales/declencher-une-alerte-avec-access/

Merci pour la réponse!!!

Cordialement,
0