Discussion :

[didine44]

Bonjour,
mon titre n'est pas très explicite mais je sais pas trop comment l'expliquer.
je m'explique:
j'ai une table Production qui contient un champ Quantité correspondant au nombre de pièces à produire et une table Pieces.
j'ai créé un formulaire correspondant à la table Production et un sous-formulaire correspondant à la table Piece.

pour l'instant, je peux rentrer autant de pièces que je veux à l'aide du sous-formulaire, or j'aimerai que ce soit limité à la valeur contenue dans le champs Quantite.

je ne sais pas si c'est faisable, et si oui un coup de main ne serait pas de refus!
merci à vous tous

[javelot69]

Bonjour,

Su l'évènement "Après MAJ" de ton contrôle Pièces tu mets

Code :

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

1
2
3
If Pieces > Quantite then
Pieces = Quantité
End if

Tu as sans doute intérêt à mettre aussi une MsgBox indiquant que le chiffre saisi étant trop important il a été ramené au maximum possible.

Bonne journée

[didine44]

merci de me répondre
mais ce n'est pas ça que je recherche.
par exemple, l'utilisateur rentre 4 dans le champs Quantité, dans ce cas, le nombre d'enregistrement du sous-formulaire devient égal à 4 et les flèches 'nouvel enregistrement' et 'enregistrement suivant' sont grisées quand l'enregistrement courrant est 4.
je ne sais pas si je me suis bien fait comprendre et si c'est plus claire,
n'hésitez pas à me poser des questions.
merci encore

[javelot69]

Bonjour,

Non ce n'est pas plus clair pour moi ! Je ne comprends donc pas ce que tu souhaites faire.
Désolé, il va falloir plus d'explications.

[Invité]

Bonjour

Quand tu as saisi ton nombre d'article max il faut mettre la propriété de ton sous-formulaire Ajout Autorisés (AllowAdditions) à false.

Starec

[didine44]

merci beuacoup Starec tu m'a débloqué!!
voila mon code pour ceux que ça intéresse:

la sub Form_Current() se trouve dans le code du sous formulaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Current()
    If Form_Productions2.Pro_Quantite > 0 Then
        If Me.CurrentRecord = (Form_Productions2.Quantite + 1) Then
            Me.AllowAdditions = False
        Else
            'tout un tas de code
            If Me.NewRecord Then
                Me.AllowAdditions = True
            End If
        End If
    Else: Me.AllowAdditions = True
    End If
End Sub

infiniment