Discussion :

[Gabout]

Bonjour,

Je dispose d'un formulaire avec un sous-formulaire.
Je procède à un contrôle des données du sous-formulaire et je voudrais empêcher la sortie du sous-formulaire sous condition.
Quel évènement est adapté ? (Il faudrait pouvoir agir sur Cancel)

[madefemere]

Bonsoir,

BeforeUpDate devrait faire l'affaire.

Cordialement,

[Gabout]

Bonjour Madefemere,

Merci de te pencher sur mon problème.

L'événement BeforeUpDate s'applique à l'enregistrement et non au sous-formulaire. La vérification va donc s'opérer avant chaque enregistrement dans le sous-formulaire.

Le sous-formulaire contient 2 dates (début et fin), 1 domaine et une quotité. Il représente, pour une période donnée, la répartition des domaines d'activité du personnel d'une société.
Une personne peut avoir un ou plusieurs domaines. La somme des domaines pour une même période doit être <= 100.
La vérification porte sur 2 aspects :

• la somme des périodes <= 100 ;
• si la somme est < 100 demander validation.

Bien sûr, il eût été préférable de scinder le sous-formulaire en 2 parties : la période, puis un sous-sous-formulaire pour la répartition des domaines... mais à l'utilisation, cela commence à devenir difficile.

Une idée ?

[madefemere]

Bonjour,

Je ne vois pas de souci : exemple que j'utilise par exemple dans un sous-formulaire pour vérifier que des valeurs date et Hôtel sont bien saisies dans les champs conrrespondants :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'Gestion absence de date et hôtel dans sous-formulaire
Private Sub Form_BeforeUpdate(Cancel As Integer)
 
If IsNull(Me.DateJour) Then
    MsgBox "Date obligatoire !"
    Me.Undo
End If
If IsNull(Me.CboHotel) Then
    MsgBox "Saisie hôtel obligatoire !"
    Me.Undo
End If
End Sub

Cordialement,

[Gabout]

...si le contrôle devait s'effectuer sur chaque enregistrement du sous-formulaire, effectivement cela serait facile.

Le problème est que la condition à vérifier porte sur un ou plusieurs enregistrements avant de sortir du sous-formulaire.
Exemple : pour deux enregistrements saisis en même temps, tous les deux pour une même période, du genre

01/01/2015 31/03/2015 Support 40%
01/01/2015 31/03/2015 Environnement 60%

Le contrôle va porter sur la somme de 40% et 60% de manière à ce que le total ne soit jamais supérieur à 100% et que, si on est en dessous de 100%, l'utilisateur valide ce choix.

[madefemere]

Bonsoir,
Donc directement sur l'évènement après mise à jour du champ, je mettrai (Ici j'utilise le champ TauxPaiement):

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
'Validation taux saisi
Private Sub TauxPaiement_AfterUpdate()
Dim TotalTaux As Double
If Me.TauxPaiement < 0 Or Me.TauxPaiement > 1 Then
    MsgBox "La valeur que vous avez saisie n'est pas valide !" & _
    vbCrLf & "Veuillez saisir une valeur entre 0,00 et 1,00!"
    Me.TauxPaiement = 0
Else
    With Me.Recordset
        TotalTaux = 0
        .MoveFirst
        Do Until .EOF
            TotalTaux = TotalTaux + ![TauxPaiement]
            .MoveNext
        Loop
    End With
'    Debug.Print TotalTaux
    If TotalTaux > 1 Then
        MsgBox "le total est supérieur à 100 !"
        Me.TauxPaiement = 0
    End If
End If
End Sub

Attention, mon champ est un double et est uniquement formaté en %.

Cordialement,

[Gabout]

Bonsoir madefemere

Avec un peu de retard, je te remercie pour ton aide.
J'ai adapté ton exemple et cela répond à ma demande.

Cordialement,