Discussion :

[ber10]

Bonjour,
Comment compter le nombre d’occurrence avec une valeur précise contenue dans 1 enregistrement.
Exemple:
1 TABLE
1 ENREGISTREMENT avec 10 CHAMPS contenant les valeurs individuelles suivantes : 1,2,1,0,0,2,1,-1,-2,1
Quelle fonction utiliser pour connaitre le nombre de fois qu’apparaît le chiffre 2 dans 1 champ calculé de formulaire
LA TABLE, LE FORMULAIRE sont prêts, il me manque juste la fonction.
Merci pour votre aide
Eddy

[micniv]

Bonjour,

Dans un module standard , copie la fonction :

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
 
Public Function CompteOccurences(ByVal idRecord As Long, ByVal Value As Long) As Long
    ' 2019-08-05    MN
    '               Exemple usage : CompteOccurences(1,2)
    Dim oDb As DAO.Database, oRs As DAO.Recordset, strsql As String, i As Long, n As Long
    n = 0
    Set oDb = CurrentDb
    ' Soit une table Table1 avec les colonnes Row_id, Fld01, Fld02, Fld03, Fld04, Fld05, Fld06, Fld07, Fld08, Fld09, Fld10
    ' les 10 colonnes Fld01 ...Fld10 sont des numériques
    strsql = "SELECT * FROM Table1 WHERE Row_id =" & idRecord
    Set oRs = oDb.OpenRecordset(strsql, dbOpenSnapshot)
    With oRs
        If .RecordCount > 0 Then
            .MoveLast
            .MoveFirst  'même s'il n'y en a qu'un, dans ce cas !
            For i = 0 To .Fields.Count - 1
                      If Left(.Fields(i).Name, 3) = "Fld" And .Fields(i) = Value Then n = n + 1
            Next i
        End If
        CompteOccurences = n
    End With
End Function

Que tu adaptes bien sûr à tes noms de table et colonnes

CDLT

[Invité]

bonjour,

cette fonction permet de répondre au problème aussi bien dans un formulaire que dans une requête car reste indépendante de la source d'information :

Code :

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

1
2
3
4
5
6
7
8
9
 
'retourne le nombre d'occurence de la valeur dans les champs
'getNbOccurence(2,[champ01],[champ02],[champ03],...)
Public Function getNbOccurence(ByVal Valeur As Variant, ParamArray a()) As Long
Dim v As Variant
For Each v In a
   If v = Valeur Then getNbOccurence = getNbOccurence + 1
Next v
End Function

[ber10]

Bonjour,
Merci pour toutes vos infos.
Malheureusement pour moi, je n'ai pas un niveau développeur suffisant pour arriver à adapter vos proposition à ma BD.
J'utilise Access depuis quelques mois seulement.
Pour faire simple, j'ai importer des scores de golf provenant d'une ancienne base de données qui tournait sous DOS.
Tout fonctionne bien mais je n'arrive pas à automatiser certains résultats.
Dans mon formulaire, les différents champs de résultats pour chaque trou provenant de la table score ainsi qu'un champ calculé qui présente la différence entre le score souhaité et le score effectif pour chaque trous, soir 18 champs calculé présentant des résultats allant de -3 à +3
Jusque la, tout fonctionne nickel.
Mon problème
J'ai ajouté 1 champs qui devrait décompter automatiquement le nombre de champ calculé présentant un résultat de -3 appelé albatros
J'ai ajouté 1 champs qui devrait décompter automatiquement le nombre de champ calculé présentant un résultat de -2 appelé eagle
Et ainsi de suite avec les autres champ de -1 à +3 ( appelé birdie, par, bogey, double bogey, triple bogey) soit 7 champs au total.
Pour l'instant j'effectue le décompte et rempli les champs manuellement mais souhaiterais automatiser l'opération
J'essaye de réaliser cela avec une requête, mais je ne sais pas trop comment m'y prendre.
Quelqu'un pourrait-il m'aider avec un exemple visuel (générateur de fonction ou fenêtre de requête) à savoir:
-Quels champs sélectionner ?
-Quelle fonction utiliser?
Merci encore une fois pour votre aide
Eddy

[micniv]

Bonjour Ber10,

Au plus simple, joins un extrait de ta base actuelle avec tes tables et quelques données.
Nous mettrons en application les fonctions proposées.
La fonction que j'ai proposée demande effectivement à être personnalisée aux données du projet tandis que la fonction de Galoir est plus portable.

CDLT

[ber10]

Bonsoir CLDT
Je m'occupe de cela dés demain.
Bonne soirée
Merci pour ton aide
Eddy

[ber10]

Bonjour,

Je joins la BD à ce message.
Le formulaire FRM_Score_Consultation contient les champs concernés
Encore une fois, merci pour le coup de main
Eddy

[micniv]

Voila une implémentation de la fonction GetNbOccurences()
Ton contexte demandait une fonction générique comme celle de Galoir. Mais j'ai dû en réécrire une autre.

autres remarques :
compactes ta bd de temps en temps (2 Mo au lieu de 10)
j'ai inséré "option explicit" en tête de chaque module : ca oblige à bien déclarer ses variables

Vois la fonction GetNbOccurences dans le module standard ‘mod compter scores’
Vois l’appel de cette fonction dans le sub Compter_resultats() dans le code de FRM_score_consultation
puis Compter_resultats est lancé dans l’evt form_current ,.
Tu devras le relancer si tu décides de modifier les scores dans FRM_score_consultation

Enfin dans le form_load , j’ai mis en commentaire la ligne , ce que je trouve plus normal en consultation
' DoCmd.GoToRecord , , acNewRec

CDLT (signifie Cordialement)
Micniv

[tee_grandbois]

bonjour et bravo micniv,
non seulement tu es expert Access mais aussi en golf ...

[ber10]

Salut Micniv

Merci pour ton aide.
J'ai un petit soucis lorsque j'essaye d'ouvrir le formulaire consultation et comme je ne maîtrise ...pas encore, le langage (je joins un print screen).
Désolé pour le CLDT, mais à mon âge, à part le mdr, le lol ou le M.S je ne connais pas trop les abréviations.
Au plaisir de recevoir tes prochains messages,
Eddy

[tee_grandbois]

puis-je me permettre d'ajouter un contrôle, afin de ne pas comptabiliser des résultats alors que le score (ou la valeur du par) n'a pas été noté ?

Code :

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

1
2
3
4
5
6
        ' si le score ou la valeur du par n'est pas rempli, il ne faut pas comptabiliser le trou
        If Not IsNull(Me("HOLE" & i + 1 & "C")) And Not IsNull(Me("HOLE" & i + 1 & "P")) Then
            s1 = s1 & Nz(Me("HOLE" & i + 1 & "D"), 0) & ","
        Else
            s1 = s1 & "10" & ","
        End If

avec ce code, le nombre de pars réalisé sera 0.

[micniv]

Bien vu, Tee_frandbois !
C'est vrai qu'avec un nom comme ça, le golf ça te connait et tu ne laisses pas un par passer ...

Ber10 :
En quelle version d'Access es-tu ?
Visiblement une reference est manquante ou marquée "manquante" dans les references VBA.
Vérifie dans l'éditeur VBA, memu OUTILS / REFERENCES :
en ACCESS 2010 , j'ai :


et aussi corrige Compter_resultats() pour la bonne correction de Tee_grandbois !

[ber10]

Hello à tous,

Je suis sous Access 2003.

J'avais un message d'erreur à l'ouverture de la BD mais depuis que j'ai supprimé les formulaires de saisie 2 et 3, celui-ci a disparu.
Pour l'apparence réelle de la carte de score et comme aucun trou n'est joué, il ne peut pas y avoir 18 PAR réalisés, le score de 0 doit rester visible dans le champ au début de la saisie.

Merci encore à tous de persévérer dans la recherche d'une solution.

Eddy

[micniv]

Le problème a déjà été évoqué et la solution a été donné par Tee_grandbois dans le message #11 .
et à la fin du message #12 ci-dessus, je te prie d'en tenir compte.

CDLT

[ber10]

Le problème a déjà été évoqué et la solution a été donné par Tee_grandbois dans le message #11 .
et à la fin du message #12 ci-dessus, je te prie d'en tenir compte.

CDLT

Message bien reçu.
Malheureusement, mes connaissances sont toujours insuffisantes et je ne sais trop comment utiliser la solution proposée.
J'ai bien essayé de copier le tout dans un module mais sans succès car à l'ouverture de la BD un message s'affiche, voir pièce jointe
Le mot HOLE est surligné en bleu mais comme je ne saisi pas totalement la formule j'ai quelques crainte à modifier quoi que ce soit.

[tee_grandbois]

Ce n'est pas la bonne manipulation, voici ce qu'il faut faire:
- ouvrir le formulaire FRM_Score_Consultation en mode création
- appuyer sur ALT+F11 en même temps pour afficher la fenêtre VBA, ou bien appuyer sur le bouton "Visualiser le code" du ruban
- rechercher la procédure Compter_resultats()
- supprimer la ligne marquée en rouge:



- copier et coller le code ci-dessous à la place de la ligne qui vient d'être supprimée:

Code :

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

1
2
3
4
5
6
        ' si le score ou la valeur du par n'est pas rempli, il ne faut pas comptabiliser le trou
        If Not IsNull(Me("HOLE" & i + 1 & "C")) And Not IsNull(Me("HOLE" & i + 1 & "P")) Then
            s1 = s1 & Nz(Me("HOLE" & i + 1 & "D"), 0) & ","
        Else
            s1 = s1 & "10" & ","
        End If

cela doit donner ceci:


- supprimer le code précédent collé dans le Module1 et qui provoque l'erreur:

[micniv]

Sic dixit Tee_grandbois ! merci
Je ne saurais mieux dire ...

[ber10]

C'est presque tout bon.
J'ai toutefois encore une erreur qui apparaît lorsque je veux activer le formulaire consultation et comme je n'en comprend pas la signification je préfère ne pas toucher
Je met le print screen de l'erreur en pièce jointe

Ce n'est pas la bonne manipulation, voici ce qu'il faut faire:
- ouvrir le formulaire FRM_Score_Consultation en mode création
- appuyer sur ALT+F11 en même temps pour afficher la fenêtre VBA, ou bien appuyer sur le bouton "Visualiser le code" du ruban
- rechercher la procédure Compter_resultats()
- supprimer la ligne marquée en rouge:



- copier et coller le code ci-dessous à la place de la ligne qui vient d'être supprimée:

Code :

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

1
2
3
4
5
6
        ' si le score ou la valeur du par n'est pas rempli, il ne faut pas comptabiliser le trou
        If Not IsNull(Me("HOLE" & i + 1 & "C")) And Not IsNull(Me("HOLE" & i + 1 & "P")) Then
            s1 = s1 & Nz(Me("HOLE" & i + 1 & "D"), 0) & ","
        Else
            s1 = s1 & "10" & ","
        End If

cela doit donner ceci:


- supprimer le code précédent collé dans le Module1 et qui provoque l'erreur:

[tee_grandbois]

Je met le print screen de l'erreur en pièce jointe

qui est, en fait, mon message précédent ...

[ber10]

Bonjour Grandbois
J'ai bien suivi toutes tes instructions, à savoir:

- ouvrir le formulaire FRM_Score_Consultation en mode création
- appuyer sur ALT+F11 en même temps pour afficher la fenêtre VBA, ou bien appuyer sur le bouton "Visualiser le code" du ruban
- rechercher la procédure Compter_résultats
- supprimer la ligne marquée en rouge:

- copier et coller le code proposé

- supprimer le code précédent collé dans le Module1 et qui provoque l'erreur

Le module qui provoquait l'erreur n’apparaît plus dans la liste, le seul qui reste est " mod compter score"
Dois-je aussi le supprimer?

Merci pour ta patience envers un total débutant en VBA...
En comparaison golfique, je suis un handicapé 36 et vous êtes, Micniv et toi, les Tiger Wood de ce langage.