Discussion :

[patgame]

Bonsoir à tous

J'ai présumé de mes forces un truc qui m'échappe le voici:

dans des demande de rembours j'ai des conditions qui déclenche un calcul vraifaux etc pas de problème je sais faire même des vraifaux imbriqués

sauf que j'ai une condition un peu spéciale.

L'association se réserve le droit de transiger sur le calcul officiel et de ne pas l'appliquer pour donner un coup de pouce à l'adhérent pour lui rembourser sous conditions sa cotisation( chomage, deces etc..) et j'ai donc une condition qui doit donner:
vraifaux([demande le]="Rembours libre" et içi la condition vrai est que je peux mettre le chiffre que je veux mais je ne sais pas traduire ça dans la formule d'ailleurs est ce possible?


Un spécialiste y verrait il lumière ?

Cdlt

pat

[accessisgood]

Bonjour,

c'est pas vraiment clair pour moi,
mais si tu es coince dans une formule ou pour modeliser des cas de gestion... rajoute un champ qui "facilite" la gestion de la complexite. ce champ peut d'ailleurs n'etre actif (ex: par un format conditionnel) que dans certains cas

[patgame]

Tu as raison ce n'est pas tjrs facile d'expliquer une conception perso à qq

donc je vais essayer d'être clair le plus possible

j'ai un onglet "Rembours" dans un formulaire

avec les champs principaux :

Objet du rembours: (la cause du remboursement chômage , mutation etc)

et tous les champs de la formule qui calcule les nombres de semaines par trimestre

Rembours éligible : oui ou non

Demandé le : le champ le plus important qui détermine du montant de rembours
comme tu pourras le voir dans la formule qui va venir en dessous

choix dans une liste déroulante de :

Entre le 15 Sept et le 31 Dec
Entre le 1 Janv et le 30 Mars
Entre le 1 Avril et le 30 Juin
Pas de Demande
Rembours Complet
Rembours Libre c'est cette condition qui me pose problème


donc je te passe les règles d'obtention du rembours (exple le trimestre commencé est dû etc ...)

et j'ai un champ qui résulte de tout ça:

"RemboursCotisations" qui a comme formule (qui fonctionne bien pour l'instant)

=VraiFaux([RemboursEligible]="OUI" Et [Demandé le]="Entre le 15 Sept et le 31 Dec";((([Cotisations]/[Total Semaines Saison])*([Nbre Semaines Trim2]+[Nbre Semaines Trim3])));VraiFaux([RemboursEligible]="OUI" Et [Demandé le]="Entre le 1 Janv et le 30 Mars";((([Cotisations]/[Total Semaines Saison])*[Nbre Semaines Trim3]));VraiFaux([RemboursEligible]="OUI" Et [Demandé le]="Entre le 1 Avril et le 30 Juin";0;VraiFaux([RemboursEligible]="OUI" Et [Demandé le]="Rembours Complet";([Cotisations]+[Adhésion])))))


donc ce champ "Rembours cotisation " se trouve bloqué quand je mets dans ma liste déroulante "RemboursLibre"

j'aimerais mettre à la suite de la formule un autre (peut être vraifaux ?!) pour lui dire si dans le champ "DemandéLe" tu vois "RemboursLibre" (donc vrai) tu laisses le champ libre....> je peux saisir le chiffre que je veux


je te donne la raison parce qu'il y a une logique

parfois la présidente de l'assos (c'est de son ressort) donne un coup de pouce à l'adhérent qui veut se faire rembourser et n'applique pas strictement la règle mathématiques de la formule par exemple le trimestre entamé est dû mais dans ce cas d'exception elle va couper la poire en deux et rembourser une somme forfaitaire qui échappe à la règle etc ....


donc ce n'est pas facile à gérer informatiquement pour moi

J'espère que je t'ai éclairé correctement sur mon problème

Amitié

Pat

[User]

Bonjour,

Ici je suppose que tu dispose d'un champ "SaisieRembours" au niveau de la source de ton formulaire pour saisir le chiffre dans le cas où on a "RemboursLibre" :

Je pense qu'il faut ensuite mettre du code au niveau activation de l'enregistrement pour mettre à jour la propriété "SourceControl" (qui renvoie le champ de liaison de la source) de la zone de texte "RemboursCotisations" :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Current()
 
   if Me.DemandéLe = "RemboursLibre" then      
      me.RemboursCotisations.ControlSource = "SaisieRembours"  
   else      
     me.RemboursCotisations.ControlSource = "RemboursCotisations"
   end if
 
end sub

Et éventuellement au niveau mise à jour de la zone de texte DemandéLe :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub DemandéLe_Afterupdate()
 
    if Me.DemandéLe = "RemboursLibre" then      
      me.RemboursCotisations.ControlSource = "SaisieRembours"  
   else      
     me.RemboursCotisations.ControlSource = "RemboursCotisations"
   end if
 
End Sub

Cdlt,

[patgame]

ben en fait tous les champs concernés sont dans le formulaire (issu de la table )

comme tu as pu le voir (pour ne reprendre que les champs qui nous intéressent

"demandeLe " je clique Rembours libre (tous les autres cas de la liste déroulante de ce champ sont réglés par la formule)

le champ: Rembourscotisation est le résultat de ma formule plus haut et inscrit grâce à la formule les résultats demandés tout va bien à ce niveau sauf que le dernier cas (de la liste déroulante)qui est RemboursLibre je veux juste le coller au cul de la formule un autre vrai faux ou ????


la re voici

=VraiFaux([RemboursEligible]="OUI" Et [Demandé le]="Entre le 15 Sept et le 31 Dec";((([Cotisations]/[Total Semaines Saison])*([Nbre Semaines Trim2]+[Nbre Semaines Trim3])));VraiFaux([RemboursEligible]="OUI" Et [Demandé le]="Entre le 1 Janv et le 30 Mars";((([Cotisations]/[Total Semaines Saison])*[Nbre Semaines Trim3]));VraiFaux([RemboursEligible]="OUI" Et [Demandé le]="Entre le 1 Avril et le 30 Juin";0;VraiFaux([RemboursEligible]="OUI" Et [Demandé le]="Rembours Complet";([Cotisations]+[Adhésion])))))*

j'aimerais ajouter au cul ou ?

vraifaux[demandéLe]="RemboursLibre"; et c'est là que je bloque je veux lui dire ne met rien je veux saisir moi ce que je veux

tous les champs concernés sont dans l'onglet du formulaire c'est la source ( enfin la table dont découle le formulaire)

donc parle t on de la même chose ?!!

cdlt

Pat

[User]

Oui, je pense qu'on parle de la même chose :

Simplement quand [demandéLe]="RemboursLibre", le code remplace la formule par le champ de la table destiné à la saisie du chiffre...

Cdlt,

[patgame]

donc si j'ai bien compris je mets le premier code ( et le deuxieme si nécessaire )

tout ça dans un nouveau chaamp "saisieRembours"

dans le champ Rembours cotisation ( qui est mon champ de saisie) il y a déjà ma formule dans ce champ of course je n'ai pas d'autre champ de saisie même en cas de Rembours libre ??!!! donc il faut que je crée ce champ c'est ça?!!

je pensais que l'on pouvait mettre le résultat dans le même champ que la formule ? puisque tous les autres résultats se mettent là !?

et je met sur ce champ crée le code vba le premier et le deuxième que tu m'as donne ?(je suis nul en code ) sur quel évènement après maj ?

parce que si je crée un champ de saisie indépendant ( si j'ai bien tout compris ou c'est ton code qui crée ce champ ?!) pour "Rembours Libre" je n'ai pas besoin de formule y a un truc que je ne comprends pas ????

je te fais une photo du formulaire y a un truc qui m'échappe avec ce nouveau champ

pfff j'ai du mal hein mais je me soigne lol

merci à toi et de ta patience

Bien à toi

Pat

[User]

Salut,

Joins moi ta base si nécessaire.

Cdlt,

[User]

L'idée c'est de switcher entre le champ de saisie "SaisieRembours" et la formule, au niveau uniquement de la zone de texte "Rembours cotisation" en mettant à jour le champ de liaison (propriété source contrôle) :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Current()
 
   if Me.DemandéLe = "RemboursLibre" then      
      me.RemboursCotisations.ControlSource = "SaisieRembours"  ' ICI C'EST LE CHAMP DES SAISIE PERMETTANT D'INSCRIRE LE BON CHIFFRE.
   else      
     me.RemboursCotisations.ControlSource = "RemboursCotisations"  ' ICI C'EST LE CHAMP DE LIAISON CONTENANT LA FORMULE QUI EST APPLIQUEE;
   end if
 
end sub

La structure de code:

Code :

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

1
2
3
4
5
6
7
8
9
If condition then
 
       Résultat1
 
    Else
 
       Résultat2
 
    end if

Equivaut à l'expression :

Code :

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

Result : vraifaux(condition;Résultat1;Résultat2)

Comprends-tu ?

Cdlt,

[patgame]

Non je n'ai pas compris je te passe la base

voici le lien

http://1drv.ms/1oDdUJe

ça se trouve dans le formulaire "détailAdhérent" onglet Rembours tableau 1 fond bordeaux sur le menu d'accueil

pendant que je tiens j'ai passé mon dimanche à chercher( j'essaie tjrs avant d'embêter le forum) mais je n'ai pas trouvé" se sont des problèmes de syntaxe de formule

peux tu si tu le veux bien y jeter un œil ( c'est dur d'être ignorant grrr!) se sont des détails mais je ne m'en sors pas et l'assos attend sa base ....

1°) sur le formulaire tableau fond vert: "Ventilation cotisation ASS Dons" le champ tout en bas sur une saison autre que 2015_2016 " totalRembourstotal" se met en erreur c'est normal il n y en a pas c'est le résultat de la requête croisée "Nbre Rembours total " mais je ne sais pas mettre dans le critère: si pas de résultat mets 0 c'est pas faute d'avoir cherché
puisque ce même champ est déduit tout en haut du formulaire à droite sur le total des Adhérents donc erreur

2°)toujours sur la même requête croisée (je le mettrais sur pleins d'autres concernées celle des récap avec saisons) comment indiquer sur la colonne saison dans le critére que je veux seulement les 3 dernières saisons ( sachant que la c'est le commencement )donc elle n'y sont pas Access devra prendre la ou les 2 saisons existantes avant d'être dans son cycle des 3 saisons (sinon au fil du temps on va se retrouver avec bcp de saisons de référence !) bien entendu en essai tu peux mettre sur les adhérent existants des saisons bidons je n'ai pas encore injecté l'ancienne base j'ai hérité de nouvelles stats à faire

3°) et enfin sur l'état "situation financière cotisation" tableau vert dans le pied de page impossible de faire le total du champ "Total net à Encaisser" dans le pied de page ligne totaux champ tout en bas en rouge


Je te remercie d'avance je ne sais plus a quel saint me voué

amitiés
pat

[User]

Bonjour,

J'ai fait au plus serré :

Pour le message d'origine : à tester...

1) j'ai mis :

Code :

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

=Nz(RechDom("CompteDeID";"[Nbre Rembours Total]");0)

au niveau de la source du contrôle "TotRemboursTotal"

2) j'ai ajouté une fonction test dans le module 1:

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
 
Public Function TestSaisons3(Saison As String) As Boolean
Dim a1 As Long, a3 As Long, a As Long
 
   If Date > DateSerial(Year(Date), 6, 30) Then ' si supérieur au 30 juin - fin 3ème trimestre
      a1 = Year(Date) - 2 ' année n°1 (saison 1) = année en cours - 2
      a3 = Year(Date)     ' année n°3 (saison 3) = année en cours (dernière année de la période de 3 saison)
   Else ' sinon
      a1 = Year(Date) - 3 ' année n°1 = année en cours - 3
      a3 = Year(Date) - 1   ' année n°3 = année en cours - 1
   End If
 
a = Val(Saison) '1ère année de la saison
 
TestSaisons3 = (a >= a1) And (a <= a3) '1ère année de la saison comprise entre début d'année de la 1ère saison et dbut d'année de la dernière saison
 
End Function

J'ai placé le critère dans la requête "Nbre Rembours total".

3) ce n'est pas claire :

J'ai donc reproduit les totaux du pied de groupe dans le pied d'état en rouge...

Cdlt,

[patgame]

Merci à toi j'ai pris connaissance de ta base corrigée

comment mettre toutes tes interventions en production directement maintenant

step by step ça fait 15 ans que je n'ai pas fait d'Access c'est vraiment parce que je suis citoyen ( la vie associative c'est important ) et que je suis un jeune retraité mais j'en c.... lol

donc j'ai vu que tu as fait une procédure évènementielle pour ce fameux champ "Rembours libre " je suppose qu'il faut que je mettre ça en place

pour la condition ( sur les 3 dernières saisons de résultat) je suppose que je peux répliquer la colonne que tu as ajouté sur la requête "Nbre de rembours total" ??
vu que toutes les requêtes type "Récap .... par saisons " sont toutes bâties de la même façon ?

Pour les rembours partiels et total sur le formulaire les formules ont l'air de bien fonctionner "ventilation cotisation Ass Dons" je t'en remercie

Pour les 3 dernières saisons de résultatje n'ai pas encore tout tester mais il est fonctionnel tel quel ou faut il le "brancher" quelque part pour le déclencher ?

Donc voici ta base rechargée il sera en production des que je serais au clair avec tes transformations ?!! par exemple tjrs sur ce "Rembours libre" en l'état si je mets "Rembours libre" le champ "RemboursCotisation" est en erreur :"#Nom ? " normal je pense il faut relier ta procédure a l'évènement update ?? c'est pas gagné hein.... je vois déjà ton air dubitatif lol mais je vais y arriver !!!

http://1drv.ms/21nsWkl


là c'est dentiste ça va faire mal

ce post surtout pour te remercier d'avoir passé du temps (et vraisemblablement d'en passer encore un peu sur ma base)

Il faudrait être un ingrat pour ne pas saluer ton boulot la preuve j'ai passé une bonne partie de la nuit puisque ça m'a permis( fortuitement)de m'apercevoir de rattraper un bug important de calcul donc les tests pour l'instant ont été sommaires mais vont être faits plus amplement


Pfff l'imbécile je parle de moi bien entendu ton champ "Rembours libre " fonctionne merveilleusement bien j'avais viré dans "Adhérent étendu " " rembours cotis" pensant que c'était un test mais tu vois j'ai bien lu ton code lol donc ça on boucle c'est ok pour ce point tjrs ça de pris

si je comprends bien si je veux faire un total des "Rembours cotisations " ( champ originel) il faut que j'additionne le champ ci nommé et ton nouveau champ "Remboursz cotis" j'ai tout bon là ??

amitiés

bien à toi
pat

[User]

Bonjour,

Merci à toi j'ai pris connaissance de ta base corrigée

comment mettre toutes tes interventions en production directement maintenant

step by step ça fait 15 ans que je n'ai pas fait d'Access c'est vraiment parce que je suis citoyen ( la vie associative c'est important ) et que je suis un jeune retraité mais j'en c.... lol

donc j'ai vu que tu as fait une procédure évènementielle pour ce fameux champ "Rembours libre " je suppose qu'il faut que je mettre ça en place

pour la condition ( sur les 3 dernières saisons de résultat) je suppose que je peux répliquer la colonne que tu as ajouté sur la requête "Nbre de rembours total" ??
vu que toutes les requêtes type "Récap .... par saisons " sont toutes bâties de la même façon ?

Pour les rembours partiels et total sur le formulaire les formules ont l'air de bien fonctionner "ventilation cotisation Ass Dons" je t'en remercie

Pour les 3 dernières saisons de résultat je n'ai pas encore tout tester mais il est fonctionnel tel quel ou faut il le "brancher" quelque part pour le déclencher ?

Il faut ajouter dans les requêtes et sous-requêtes concernées le même critère que dans "Nbre de rembours total".

Par contre, il ne faut pas de critère sur saison dans les requêtes sources comme "Adhérents étendus" qui contient déjà il me semble un critère sur le champ saison.

Donc voici ta base rechargée il sera en production des que je serais au clair avec tes transformations ?!! par exemple tjrs sur ce "Rembours libre" en l'état si je mets "Rembours libre" le champ "RemboursCotisation" est en erreur :"#Nom ? " normal je pense il faut relier ta procédure a l'évènement update ?? c'est pas gagné hein.... je vois déjà ton air dubitatif lol mais je vais y arriver !!!

Il faut juste que le champ "RemboursCotis" soit présent dans la table des adhérents.

là c'est dentiste ça va faire mal

ce post surtout pour te remercier d'avoir passé du temps (et vraisemblablement d'en passer encore un peu sur ma base)

Il faudrait être un ingrat pour ne pas saluer ton boulot la preuve j'ai passé une bonne partie de la nuit puisque ça m'a permis( fortuitement)de m'apercevoir de rattraper un bug important de calcul donc les tests pour l'instant ont été sommaires mais vont être faits plus amplement


Pfff l'imbécile je parle de moi bien entendu ton champ "Rembours libre " fonctionne merveilleusement bien j'avais viré dans "Adhérent étendu " " rembours cotis" pensant que c'était un test mais tu vois j'ai bien lu ton code lol donc ça on boucle c'est ok pour ce point tjrs ça de pris

si je comprends bien si je veux faire un total des "Rembours cotisations " ( champ originel) il faut que j'additionne le champ ci nommé et ton nouveau champ "Remboursz cotis" j'ai tout bon là ??

A condition que la formule du champ "RemboursCositsation", renvoie 0 si "Rembours libre".

Cdlt,

[patgame]

Ami tes judicieux conseils m'ont permit de faire un boulot de qualité (enfin surtout toi lol )

Je t'en remercie en ces temps troublés un peu de solidarité affichée ne peut pas nuire aux mauvais coucheurs

j'ai rechargé à tout hasard la base sur le One drive même lien je pense si tu veux vérifier ton taf ( enfin surtout que ton élève que dis je ton disciple a bossé correct)

Je te remercie en mon nom et en celui de notre association

je pense que maintenant tout roule je vais terminer quelques stats demandées en dernière minute et re vérifier l'ensemble du boulot pour être sûr de ne pas tomber sur une mauvaise surprise en production

après, plus qu'injecter quelques éléments dans cette nouvelle base mais ça me semble difficile elle a été réalisé sans clé primaire mais surtout sans table m'a t on dit !?, ave juqste des requête c'est possible ça ?!!! je suis perplexe


bonne soirée

bien à toi

Pat

[patgame]

Bonjour a toi

je suis désolé de te déranger de nouveau ce n'est pas un bug c'est moi qui n'est pas prévu cette éventualité !

je reviens vers toi pour un petit problème avec le module sur le choix des 3 dernières saisons il marche nickel mais je pense qu'il faudrait ajouter dans le code si pas de résultat sur une saison mettre 0

en effet j'ai testé , j'ai fait une synthése comptable que l'on m'a demande sur l'Etat " synthèse Saison et au 31/12"

j'ai donc mis , enlevé , ajouté des infos par exemple: si pour une saison j'ai saisi un don pour un adhérent.....> erreur.....> j'efface il n' y a qu'un don pour la saison

avant l'effacement j'ai bien ma saisie nickel dans l'état mais après effacement si c'est l'unique enregistrement Access cherche la saison en question et il me dit erreur normal pas de résultat sur cette saison il ne la met pas c'est correct mais mon Etat est en erreur

peut être faut il mieux lui dire si pas de résultat mets quand même les 3 derniéres saison mais avec un zero quand pas de résultat qu'en penses tu ? je n'y avais pas pensé à cette éventualité ?!!

pour être plus clair voici la base à jour

http://1drv.ms/24p0Wz5

afficher l'état: "Synthése saison et au 31/10 "tu verras tout en bas le tableau don avec les 3 saisons ( c'est la requête du même nom) qui elle change bien normal elle fait son job tu enlèves une année tu en mets une nickel mais pas de mise a jour dans l'etat surement pareil avec les autres tableau mais il y a les 3 saisons donc pas d'erreur

si maintenant j'enlève le don de la saison 2013-2014 ( il n y a qu'un adhérent pour les besoins de l'exemple ça va + vite ) la requête est à jour mais pas l'état ??!! qui est en erreur, normal

les dons se trouve sur le formulaire ( le reste aussi d'ailleurs) "détail adhérent" onglet stats et finances et tu choisis si nécessaire une saison sur le formulaire d'accueil ça va plus vite

sinon tout est parfait c'est de ma faute je n'ai pas pensé à ce détail

Amitiés

patrick

[User]

Bonsoir,

Je n'ai pas trouvé un tel état dans vôtre base :

Ce que j'imagine, c'est de mettre 0 si [Saison] est nulle :

Code :

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

TestSaisons3(nz([Saison];0))

Sans garantie...

Cdlt,

[patgame]

merci je vais voir ça

je pense que Onedrive n'a pas mis l'archive a jour voici le bon lien

http://1drv.ms/1KLq7Wn

l'Etat est :"Synthese Saison et au 31/ 12"


Aprés Essai avec le Nz

j'ai simplement enlever le don de l'unique adhérent de 2013-2014 je n'ai donc plus que 2 saisons (2013-2014 n'exiqte plus) la requête est ok mais pas l'Etat qui m'indique a l'ouverture

"le moteur de base de données microsoft access ne reconnait pas [2013-2014] en tant que nom de champ ou expression correct " ??

si ça t'em.....bête laisses tomber il y a très peu de chance qu'une année soit complétement vide puisque jusque maintenant on oscille entre 5 et 10 membres donateurs mais on ne sait jamais. le puriste quoi lol

Par contre c'est dans la partie droite de l'état que ça risque de coincer sur les comptes arrêtés en année civile au 31/12 c'est 95 à 98 % des inscriptions donc comme tu peux le voir tout en bas on enleve les gens que l'on a remboursé complètement ( par exple mutation 15 j apres l'inscription) et on les sort des adhésions

donc il peut arriver qu'il n'y ait pas de "Rembours complet " sur une saison rare mais possible la requête renvoi 0 normal mais mon addition est fausse ( selection 2013-2014 2016-2017 menu ecran accueil)

j'avais cru être rusé en faisant un total qui lui se marque bien à 0 ( !!??) j'ai donc mis dans le champ"Rembours Complet en dessous, la formule suivante

=VraiFaux([RécapRemboursComplet au 31/12 sous-état].[Etat]![SommeDeCompteDeID]=[EstNull];[RécapRemboursComplet au 31/12 sous-état].[Etat]![AccessTotalsSommeDeCompteDeID];[RécapRemboursComplet au 31/12 sous-état].[Etat]![SommeDeCompteDeID])


mais il n'aime pas le Est null (en fait tu le vois le champ est vide inexistant )

si tu me donnes l'astuce je ferais de même pour les dons ça fera un champ supplémentaire mais se sera réglé



mais trés sympa de m'avoir de nouveau répondu

Bonne soirée

Pat

[User]

Bonjour,

Difficile pour moi de reprendre vôtre base.

Je peux éventuellement vous donner 2 astuces :

Pour la requête analyse croisée, il faut figer les colonnes en remplissant la propriété "en-têtes de colonnes" du champ saison, dans la requête "recap nbre rembours par saison", (pour éviter les champs absents).

Comme sur l'image jointe :
Pièce jointe 201926

Pour les totaux utiliser les fonctions de domaine :

Code :

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

1
2
 
=Nz(SomDom("SommeDeCompteDeID";"RécapRemboursComplet au 31/12");0)

Je vous joins à tout hasard la base.

Cdlt,

[patgame]

Merci

j'ai bien noté le cours sur les totaux par domaine je vais me plonger dedans

pas moyen d'ouvrir d'ouvrir la pièce jointe201926 ?!

en tous cas un grand merci

Cdlt

Pat

[User]

Bonjour,

Voici la pièce jointe :



Cdlt,