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

Question

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


Configuration: Windows 7 / Firefox 33.0

benol3 · Answer

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

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

1 réponse

Discussions similaires

Newsletters