Messages alertes à ouverture BDD

[HABBYRAY]

Bonjour,

Je souhaitais connaitre une solution concernant l'affichage de pop-up à l'ouverture d'une bdd de plusieurs tables différentes car je coince!!!
C'est-à-dire qu'à partir de différentes données arrivant à un seuil fixé, le pop-up se déclenche.
Est-ce réalisable sur Access?

Merci pour vos réponses

[bernardmichel]

Bonjour et bienvenue sur notre Forum

Veux-tu STP me confirmer ce que je comprends de ta question : Tu souhaites qu'une fenêtre "Pop-Up" s'affiche à l'ouverture de ta BDD si elle comporte plus qu'un certaine nombre de tables ? En d'autres termes, tu souhaiterais savoir comment compter les tables automatiquement et/ou comment afficher ta fenêtre ?

[HABBYRAY]

Pour être plus clair, j'ai besoin d'afficher un message qui m'avertit lorsque le nombre de pc dans une certaine table et le nombre de CD dans une autre arrive à un seuil critique, le message s'affiche.
Est-ce que c'est possible de réaliser celà ou bien faut-il créer une requête spécifique qui regroupe toutes ces informations?

Cordialement,

[bernardmichel]

Non, je pense qu'avec une fonction du type "Dcount("Champ","Table") tu devrais pouvoir y parvenir.

Donc un simple petit bout de code qui va compter les enregistrements de l'une ou l'autre table et qui te retourne un MsgBox en retour...

[HABBYRAY]

Et tu intègres ce code dans la page d'ouverture de la base? Aurais tu un exemple car je suis un peu perdu!!!

[bernardmichel]

Tu crées un nouveau module et dans ce module, tu crées une fonction du type :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function CtrlTables()
Dim lngPC   As Long         ' Variable destinée à recevoir le nombre total de PC
Dim lngCD   As Long         ' Variable destinée à recevoir le nombre total de CD
 
lngPC = DCount("IdPc", "tblPC") ' On compte les PC
lngCD = DCount("IdCd", "tblCd") ' On compte les CD
 
    If lngPC > 200 Then     ' Si il y a plus de 200 PC...
        MsgBox "Il y a actuellement " & lngPC & " PC dans votre base de données", vbInformation, "Information"
    End If
 
    If lngCD > 450 Then     ' Si il y a plus de 450 CD...
        MsgBox "Il y a actuellement " & lngCD & " CD dans votre base de données", vbInformation, "Information"
    End If
 
End Function

Ensuite, tu crées une macro que tu nommes "Autoexec" et dans cette macro, tu appelles ta fonction "CtrlTables()"
Cette macro va - comme son nom l'indique - s'auto-exécuter à l'ouverture de ta base et ainsi, les messages apparaîtront à l'ouverture. Tu peux bien sûr appeler cette fonction depuis où tu veux

[HABBYRAY]

Ok, je vais essayer de faire celà. Je te remercie pour tes lumières.

Cordialement,