Discussion :

[lisepouliot]

Dans un formulaire, j'ai un champs [texte84] dont la source contrôle est =Compte([NR]) (calcule le nombre de rendez-vous saisie). J'ai ajouté un champ nombre de rendez-vous permis [NbrRDVpermis] dans ma table principale et ajouté ce champ à la requête du formulaire.

Est-ce possible de faire une macro qui affichera un message "Vous avez atteint le nombre permis" aussitôt que le nombre autorisé sera atteint? Voici un imprime écran de mon formulaire.

[EricDgn]

Bonjour,
Quelque chose de ce genre devrait pouvoir convenir:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_AfterInsert()
   Me.Recalc                                            '--- pour recalculer texte84 après chaque rendez-vous enregistré.
   If Me.texte84 = Me.NbrRDVpermis Then
      MsgBox Me.NbrRDVpermis & " atteint."
   End If
End Sub
 
Private Sub Form_BeforeInsert(Cancel As Integer)
   If Me.texte84 >= Me.NbrRDVpermis Then
      MsgBox Me.NbrRDVpermis & " déjà atteint."
   End If
End Sub

Bonne continuation.