Bonsoir!
Je veux créer des fonctions qui retournent des valeurs dans mes formulaires sous_menu. Par exemple, dans le formulaire F_GestionDesEleves, j'ai des zones de textes qui devraient afficher les valeurs retournées par ces fonctions.Pour afficher l'effectif total du collège dans TxtEffectifEtab du Formulaire F_GestionDesEleves, nous avons réussi à créer la fonction getEffectifEtab() que nous avons réutilisée dans le deuxième code. Aucune difficulté pour y parvenir.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Public Function getEffectifEtab() As Long Dim res As Long res = Nz(DCount("Eleve_id", "T_Eleve"), 0) getEffectifEtab = res End FunctionMaintenant je voudrais créer des fonctions qui me retournent pour chaque niveau(6ème, 5ème, 4ème et 3ème) le nombre de filles, de garçons et l'effectif total dans le niveau. Pour chaque niveau nous avons créer 3 zones de textes pour afficher ces valeurs.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub Form_Load() Dim isConnect As Boolean isConnect = IIf(nomUser_G <> "", True, False) If (isConnect = True) Then hasAccess User_id_G, Me Me.TxtEffectifEtab = getEffectifEtab() Else DoCmd.Close acForm, Me.Name DoCmd.OpenForm ("F_login") End If End Sub
djibysadji
Partager