Discussion :

[bartimeus35]

Bonjour à tous,

Ci-joint une BDD pour expliquer mon besoin.
Dans le formulaire T_Commandes, je voudrais faire en sorte que l'on ne puisse pas saisir un montant de ligne tel que le total des lignes soit supérieur au montant de la commande.
J'ai essayé de mettre une vérif dans le Before Update du SF_Lignes, en utilisant mon champ écart pour tester s'il est égal à 0 , mais celui si est recalculé après la sauvegarde du record donc ca ne marche pas

use case 1 :
commande de 150 €
1er ligne de 50
si on saisit en ligne 2 de 101€=> je voudrais interdire un valeur > 100 €

use case 2 :
commande de 150 ~€
1 er ligne de 50
2 eme ligne de 10 € => l'eacart des bien de 0 mais on doit pouvoir modifier et mettre par exemple 99 en L2 sans qu'il croie que l'on rajoute 99 u total déjà existant!


Merci pour vos idées et conseils.

Bon week end,

[tee_grandbois]

bonjour,
- dans le cas d'une nouvelle ligne, tu ne peux pas additionner le montant dans le contrôle somme car la ligne n'est pas encore réellement créée, il faut donc additionner ce montant avant la mise à jour du champ
- dans le cas d'une ligne existante et aussi pour une nouvelle ligne, tu dois soustraire l'ancien montant de cette même ligne (Control.OldValue, avec Nz() en prime si nouvelle ligne):

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub montant_BeforeUpdate(Cancel As Integer)
 
If Me.somme + (Me.montant - Nz(Me.montant.OldValue, 0)) > Me.Parent.montant Then
    MsgBox " la somme des montants saisis dépasse le montant de la commande!"
        Cancel = True
        Me.montant.Undo
    End If
 
End Sub

pense à mettre les contrôles pour les montants à 0, null ou négatif (si ce n'est pas autorisé)

[bartimeus35]

Hi,
Merci pour le tuyau pour le use case 2, mais pour le use case 1

Tu dis

dans le cas d'une nouvelle ligne, tu ne peux pas additionner le montant dans le contrôle somme car la ligne n'est pas encore réellement créée, il faut donc additionner ce montant avant la mise à jour du champ

=>Je ne vois pas comment faire ça , comment on sait qu'on est sur une nouvelle ligne ?
Le code que tu m'as donné, ouvre les 2 use case ?
Je pige pas bien.
Désolé

[tee_grandbois]

=>Je ne vois pas comment faire ça , comment on sait qu'on est sur une nouvelle ligne ?

peut importe, si c'est une nouvelle ligne le code est le même, c'est ce que je dis ici:

- dans le cas d'une ligne existante et aussi pour une nouvelle ligne, tu dois soustraire l'ancien montant de cette même ligne (Control.OldValue, avec Nz() en prime si nouvelle ligne):

et c'est ce que fait le code ...

Le code que tu m'as donné, ouvre les 2 use case ?

à priori oui, d'où l'utilisation de OldValue pour traiter ce cas, n'as-tu pas testé ?

[bartimeus35]

J'ai mis le code, mais il ne passe pas dedans !
cf mon zip, j’ai beau mettre un point d’arrêt, il ne passe pas dedans

J'ai pourtant activé les macros



Mais j'ai toujours cette bannière qui doit êetre la cause de mon pb ! grrrr

[tee_grandbois]

je n'ai pas ce problème :


as-tu pensé à activer les macros ou mettre la base sur un emplacement approuvé ?

[bartimeus35]

J"i fait un clic droit sur mon fichier et dans propriétés, j'ai coché débloquer et c'est bon maintenant.

AMEN

[tee_grandbois]

j'ai coché débloquer

je ne connaissais pas cette option, à quel niveau se trouve t-elle ?