Discussion :

[Mike1971]

Bonsoir,

J'ai besoin de vos services pour solutionner un problème que je rencontre en voulant limiter les inscriptions dans un sous-formulaire.

J'ai une base de donnée "cours" dans laquelle j'ai des leçons. J'ai un formulaire "inscriptions" dans lequel se trouve un sous-formulaire dans lequel j'inscris le participants aux divers leçons ( sf : Participants sous-formulaire4).

Comme on peut le voir dans l'exemple (en se positionnant dans ce sous-formulaire), j'ajoute les personnes via une liste déroulante (nom_prenom) et ensuite je complète en sélectionnant la leçon, dans une autre liste déroulante (id_participant_lecon). Dans cette liste déroulante, j'ai un champ (nbre_max_pers) qui devrait me permettre de limiter le nombre d'inscriptions.

J'ai bien essayé de limiter en inscrivant dans "après MAJ", le code suivant :

Code :

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

If Me.CurrentRecord > Me.Nom_lecon.Column(4) Then

...mais le problème ce qu'il ne me fait qu'un contrôle sur un enregistrement.
Je pense qu'il faudrait créer une boucle qui me passe en revue tous les enregistrements du sous-formulaire, mais je ne sais pas comment procéder.

Je vous remercie par avance pour votre aide.
Mike1971limiter_lecons_test1.accdb.zip

[hyperion13]

Salut
Il n'y a pas de champ (nbre_max_pers) dans T_Planning ni même dans votre combobox Nom_lecon !
Peut-être ajouter dans la source de votre combobox Nom_lecon le champ (NombreParticipants) !
A adapter

Code :

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

1
2
3
4
5
If DCount("*", "Participants", "ID_participant_lecon = " & Me.Parent.IdCours) > Me.Nom_lecon.Column(4) Then
    Action_si_vrai
Else
    Action_si_faux
End If

ou

Code :

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

1
2
3
4
5
If Me.[Participants sous-formulaire4].Form.Recordset.RecordCount > Me.Nom_lecon.Column(4) Then
    Action_si_vrai
Else
    Action_si_faux
End If

[Mike1971]

Merci pour la réponse, mais je n'arrive pas à ce que vous souhaite.
Je souhaite limiter le nombre d'inscriptions à ce qui a été inscrit dans "nom_lecon.column(4) et si ça dépasse cela me donne une alerte.

-> quel code puis entrer pour compter le nombre de leçons identiques dans le cours ? (p. ex. : compter le nombre de leçon 1)


Merci encore pour votre réponse et meilleures salutations

[Mike1971]

N’y a-t-il personne pour m’aider avec ce problème.
Merci d’avance

Mike1971

[Mike1971]

comment faire pour, dans une Fonction, récupérer la valeur d'un champ ?

Code :

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

1
2
3
4
Public Function Doublon_Lecon(IDPartLecon As String, IDPartCours As String) As Boolean
 '   compteLecon = Me.compteLecon
    Doublon_Lecon = DCount("*", "Participants", "ID_participant_lecon=" & IDPartLecon & " and ID_Participant_cours =" & IDPartCours) >= 2
End Function

à la place d'une variable fixe (ici 2) à la fin, j'aimerais récupérer la valeur d'un champ numérique me.TxtNom situé dans le sous-formulaire...
j'ai essayé de mettre me.TxtNom à la fin main cela me donne une erreur.

Merci de votre aide...

[tee_grandbois]

bonjour,

N’y a-t-il personne pour m’aider avec ce problème.

as-tu pris en compte les indications de hyperion13 au sujet de la colonne nbre_max_pers qui n'existe pas ? personne ne voudra t'aider si tu ne rectifies pas les erreurs qu'on te signale et que tu pars sur autre chose.

à la place d'une variable fixe (ici 2) à la fin, j'aimerais récupérer la valeur d'un champ numérique me.TxtNom situé dans le sous-formulaire...
j'ai essayé de mettre me.TxtNom à la fin main cela me donne une erreur.

pour ce problème, il faut que tu y ajoutes un paramètre à ta fonction qui correspondra au contrôle du sous-formulaire nommé TxtNom car dans une fonction il faut éviter absolument de faire directement appel à des variables objets:

Code :

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

1
2
3
Public Function Doublon_Lecon(IDPartLecon As String, IDPartCours As String, paramTxtNom as long) As Boolean
    Doublon_Lecon = DCount("*", "Participants", "ID_participant_lecon=" & IDPartLecon & " and ID_Participant_cours =" & IDPartCours) >= paramTxtNom 
End Function

et dans le code qui appelle la fonction, tu remplaces paramTxtNom par Me.txtNom si c'est dans le sous-formulaire que la fonction est appelée ou Me.[NomduSousFormulaire].Form.TxtNom si c'est dans le formulaire principal que l'appel se fait