Discussion :

[patmar83]

bonjour,
je cherche à limiter le nombre d'enregistrement dans un sous formulaire et ce en fonction d'un champ se trouvant dans le formulaire principal
Le typ_vl du formulaire principal correspond à un type de véhicule soit patrouilleur pas plus de 4 personnes à bord ou porteur d'eau pas plus de 2 personnes à bord

Le nom des équipiers se trouvent dans un sous formulaire rattaché au formulaire principal
j'ai écrit le code ci-dessous mais à priori il ne se passe rien

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
24
25
26
27
Private Sub Form_AfterInsert()
'f_patrouille formulaire principal
'vérification du type de véhicule retenu
' Patrouilleur ou Porteur d'eau choix dans le champ typ_vl
 
If Forms![f_patrouille].[Typ_VL].Value = [Patrouilleur] Then
 
 
    'Teste le nombre des équipiers  et limite à 2
    If Me.CurrentRecord > 2 Then
 
        MsgBox "Pas plus de 2 équipiers dans le patrouilleur !"
 
        Else
             If Forms![f_patrouille].[Typ_VL].Value = [Porteur d'eau] Then
 
        'Teste le nombre d'équipiers à 4     
                    If Me.CurrentRecord > 4 Then
 
       MsgBox " Pas plus de 4 equipiers dans le porteur d'eau"
 
 
   End If
            End If
                    End If
End If
End Sub

D'ou provient mon erreur
merci

[nico84]

Bonjour,

Tel que c'est écrit, [patrouilleur] est une variable alors que je pense que ce devrait être une chaine de caractères "patrouilleur"
Idem pour [porteur d'eau]
De plus le test sur porteur d'eau doit être fait dans le else du test sur patrouilleur

Enfin il faudrait faire tout ça beforeinsert je pense afin de bloquer l'insertion si le truc est déjà plein

[patmar83]

Merci pour ce début de réponse, j'ai modifié "porteur d'eau" et "patrouilleur" mais je ne vois pas exactement ce que tu veux dire lorsque tu écris que le test sur porteur
d'eau doit être fait dans le else du test sur patrouilleur car je l'ai mis après le else

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
24
25
26
27
Private Sub Form_BeforeInsert(Cancel As Integer)
 
'f_patrouille formulaire principal
'vérification du type de véhicule retenu
' Patrouilleur ou Porteur d'eau choix dans le champ typ_vl
 
If Forms![f_patrouille].Typ_VL.Value = "Patrouilleur" Then
 
 
    'Teste le nombre des équipiers  et limite à 4
    If Me.CurrentRecord > 4 Then
 
        MsgBox "Pas plus de 4 équipiers dans le patrouilleur !"
 
       Else
            If Forms![f_patrouille].Typ_VL.Value = "Porteur d'eau" Then
 
                   If Me.CurrentRecord > 2 Then
 
      MsgBox " Pas plus de 2 equipiers dans le porteur d'eau"
 
 
   End If
          End If
                   End If
End If
End Sub

[nico84]

Merci pour ce début de réponse, j'ai modifié "porteur d'eau" et "patrouilleur" mais je ne vois pas exactement ce que tu veux dire lorsque tu écris que le test sur porteur
d'eau doit être fait dans le else du test sur patrouilleur car je l'ai mis après le else

Oui mais ce else fait référence au 2e if c'est pas le bon