Discussion :

[zougna]

Bonjour,

Je voudrais limiter la saisie d'enregistrements dans un formulaire à un nombre donné.

Pour donner un exemple, un formulaire X basé sur la table X présente un sous formulaire Y basé sur la table Y. Le champ commun entre les deux tables est id_pret.
Le but de la manoeuvre serait de limiter le nombre d'enregistrements par id_pret à dix.
Et par ailleurs de numéroter les enregistrements et de recommencer la numérotation des enregistrements à chaque changement d'id_pret.

id_pret 5000 num 1
num 2
num 3
num 4
id_pret 5001 num 1
num 2
num 3

et ainsi de suite...
Quel est le moyen le plus sûr d'y arriver ? Suis-je assez clair ?

[mout1234]

Bonjour,

Concernant la numérotation manuelle, cherches dans le forum, il me semble que ce sujet a déjà été traité plusieurs fois.

Concernant la limitation, le plus simple sera d'agir dans l'évènement Avant Insertion du sous formulaire.
Tu y comptes le nombre d'enregistrements (ou tu regardes si le numéro 10 existe déjà) et dans ce cas tu annules l'évènement en complétant avec un message d'explication.

Cela donnerait quelques chose du genre

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_BeforeInsert(Cancel As Integer)
 
    Dim idMax As Integer
 
    idMax = DMax("num", "TableY", "ID_Pret=" & ME.parent!ID_Pret)
 
    If idMax >= 10 Then
        MsgBox "nombre de lignes maximum atteint pour le prêt N°" & ME.parent!ID_Pret
        Cancel = True
    End If
 
 
 
End Sub

[zougna]

Le contrôle fonctionne mais au lieu d'avoir une msgbox, j'ai un message d'erreur m'annonçant un type de données incompatible dans l'expression du critère et faisant appel au débogueur
???

[mout1234]

Le contrôle fonctionne mais au lieu d'avoir une msgbox, j'ai un message d'erreur m'annonçant un type de données incompatible dans l'expression du critère et faisant appel au débogueur
???

Sur quelle ligne il plante?

[zougna]

Code VBA :

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

idMax = DMax("num", "TableY", "ID_Pret=" & ME.parent!ID_Pret)

[mout1234]

Si ID-Pret est de type texte, il faut mettre par exemple

Code VBA :

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

idMax = DMax("num", "TableY", "ID_Pret='" & ME.parent!ID_Pret & "'")

[zougna]

Ca fonctionne.
Je devrais me mettre plus sérieusement au vba...