Discussion :

[Claudine]

Bonjour à tous
J'aimerai parfaire une Bd sous Access 2000
J'ai un formulaire avec 2 colonnes(Dépenses) et (Recettes)
puis une zone de texte (Différence) qui affiche la différence des dépenses et recettes; Je viend de créer une nouvelle zone de texte nommée (Résultat) dans laquelle j'aimerais afficher soit :
'Bénéfice' si la différence est positive,
'Perte' si la différence est négative ainsi qu'un changement de couleur de fond de la zone de texte , par exemple:
verte si +
rouge si -
Bon à savoir: Ma BD se nomme "Indiciaire", ma table"AJustifier" et mon formulaire"FormIndic"
Pouvez-vous m'aider en sachant que je connais peu de choses en programmation?
Salutations amicales
Claudine

[argyronet]

Bonjour,

Dans ta zone de texte, tu tapes la formule :

Code :

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

=IIf(Différence>0; "Bénéfice"; "Perte")

Après quoi, toujours focalisée sur cette zone de texte, tu paramètres les options de Mise en forme conditionnelle en fonction du contenu, à savoir :
Vert pour le mot Bénéfice
Rouge pour le mot Perte

N'oublie pas de verrouiller cette zone de texte et de lui définir un Arrêt Tabulation à Non...

Argy

[Claudine]

Bonjour et Merci Argy pour cette réponse rapide, mais je reste avec certains problèmes à savoir:
je suppose que le code que j'ai tapé dans la zone de texte Résultat est bien

Code :

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

= If ([Différence]>0;"Bénéfice";"Perte")

Mais il m'affiche: signe dièse Nom?
De plus je suis en Access 2000 et je ne vois pas De Mise en forme conditionnelle dans les propriétés, par contre j'ai verrouiller la zone de texte et un arrêt sur tabulation à Non
Pouvez-vous me renseigner?
Claudine

[LE VIEUX]

bonsoir,

je suppose que le code que j'ai tapé dans la zone de texte Résultat est bien = If ([Différence]>0;"Bénéfice";"Perte")

Non c'est bien

Code :

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

=IIf(Différence>0; "Bénéfice"; "Perte")

en fait plus exactement dans le générateur d'expression il se transformera en :

Code :

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

=VraiFaux(Différence>0; "Bénéfice"; "Perte")

mais c'est pareil.

[Claudine]

Bonsoir
Un tout grand merci car je n'avais jamais rencontré cette expression
Cela fonctionne à merveille;
Mais pour la suite, comment paramètrer les options de Mise en forme conditionnelle en fonction du contenu, à savoir :
Vert pour le mot Bénéfice
Rouge pour le mot Perte
Car je ne vois nulle part dans Access 2000 cette option de mise en forme conditionnelle
Sincères remerciements pour votre aide
Claudine

[User]

Salut,

tu peux jeter un oeil sur ce tuto:

L'auteur explique en détail comment dèfinir les conditions de la mise en forme

[Claudine]

Bonjour à tous
Mille fois merci User, grâce à vous, j'ai fait un pas de géant en Access et je me rends compte que malgé cela je suis encore pratiquement nul.
Bref, cette Mise en forme conditionnelle est géniale et ouvre beaucoup de portes souvent fermées.
Pour d'autres Webmaesters aussi nuls que moi et qui suivent la résolutions de ce problème, je tiens à préciser ce que j'ai introduit dans le formulaire de mise en forme conditionnelle:
en 1ere condition: [TotalRecettes]-[TotalDépenses]<0 avec le choix de la couleur de fond rouge
en 2ème condition: [TotalRecettes]-[TotalDépenses]>0 avec le choix de la couleur de fond verte.
Pour accéder à ce dernier, il suffit de cliquer sur la zone de texte et de cliquer ensuite dans la barre sur format puis sur mise en forme conditionnelle
Une fois de plus, mes plus sincères remerciements à toute l'équipe.
Claudine

[Claudine]

Bonjour à tous,
Je sollicite votre aide car je constate que tout fonctionne normalement mis à part le fait que les résultats des: TotalDépenses , TotalRecettes et Différences s'affichent dans le formulaire mais ne sont pas enregistrés dans la table correspondante nommée "A Justifier".
Comment puis-je résoudre ce problème?
Salutations
Claudine

[LE VIEUX]

Bonjour,
Pour avoir des champs calculés « directement » dans une table il faudra attendre access 2010. Pour le moment si on veut simplement utiliser les calculs cela se fait dans une requête.
Si on veut les enregistrer dans les champs de la table il faut le faire par du code à mettre sur l’évènement le plus adapté du formulaire en laissant la référence de sa source de contrôle conforme à la table.
Ex :
Dans la table :
Prix HT
TVA – format %
Prix TTC.
Sur l’évènement « après mise a jour » (Feuille de Propriété, évènement,…,Générateur de code, après MAJ) du champ TVA :

Code :

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

1
2
3
Private Sub TVA_AfterUpdate()
Me.Prix_TTC = Me.Prix_HT * (1 + Me.TVA)
End Sub

À adapter à ta table et ton formulaire.

[Claudine]

Bonjour et merci Mr Le Vieux
Malheureusement je n'ai toujours pas l'enregistrement dans la table du TotalDépenses. Voici ce que j'ai tapé dans le générateur de code "après Maj" de la propriété de la zone de texte"TotalDépenses":

Code :

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

1
2
3
Private Sub TotalDépenses_AfterUpdate()
Me.TotalDépenses = Me.Précompte_immobilier + Me.Versements_anticipés + Me.Frais_de_menage + Me.Remboursements_prêts + Me.Investissements_Privés + Me.Epargne_pension + Me.Impôts_payés + Me.Frais_de_véhicule_privé + Me.Titres_services + Me.Frais_TélEtGSM_privés + Me.Cot_sécurité_sociale + Me.Autres
End Sub

Voyez-vous une erreur?
Sincères remerciements
Claudine

[LE VIEUX]

Bonsoir,
Le code ne doit pas être mis sur « après mise a jour » du contrôle qui reçoit le calcul (TotalDépenses), mais par exemple sur le dernier contrôle renseigné avant le calcul.
Si tu ne peux mettre du code que sur le contrôle TotalDépenses, met le sur « réception focus » à condition que tous les autres contrôles soient renseignés.
Tu peux le mettre aussi sur l’évènement « AVANT mise a jour » du formulaire il sera enregistré mais tu ne verra le résultat qu’en revenant sur l’enregistrement ou en consultant ta table.
Sinon donne plus de détail sur l’utilisation de ton formulaire et la table – champs présents en relation avec la table – champs calculés qui doivent être renseignés et/ou enregistrés.

[Claudine]

Bonsoir,Comme je n'arrive pas à solutionner le problème, j'ai refait une nouvelle table nommée TableJustification et formulaire: FormTableJustification beaucoup plus simple, à savoir:
la table et le formulaire comporte tous deux les mêmes5 colonnes: N° (NuméroAuto), Béneficenet,Amortissements, SalairesProf et enfin TotalRecettes.
Dans le formulaire , la zone de texte [TotalRecettes]affiche la somme des autres zones de texte car dans les propriétés et souce Contrôles de TotalRecettes j'y ai indiqué

Code :

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

=[Béneficenet]+[Amortissement]+[SalairesProf]

Par contre cette somme n'est jamais enregistrée dans la table.
J'espère avoir été plus explicite et je serai très heureux que vous puissiez me dépanner.
Sincères remerciements
Claudine

[User]

Salut,

Normal, la propriété source contrôle sert à lier la zone de texte à un champ de la table source, si tu remplace le champ par une expression le résultat ne sera donc pas enregistré dans un champ de la table.

Comme te l'a indiqué Le Vieux, il te faut mettre le code, par exemple, sur afterupdate des zones de texte Béneficenet, Amortissement et SalairesProf, par exemple:

Code :

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

1
2
3
Private Sub Amortissement_AfterUpdate()
Me.TotalDépenses = nz(Me.Béneficenet,0)+nz(Me.Amortissement,0)+nz(Me.SalairesProf,0)
end sub

la fonction nz renvoie 0 si la zone de texte est vide

A+

[LE VIEUX]

Bonjour,
User t’as donné la solution et précisé le pourquoi de ce que je t’avais précédemment posté :

Si on veut les enregistrer dans les champs de la table il faut le faire par du code à mettre sur l’évènement le plus adapté du formulaire en laissant la référence de sa source de contrôle conforme à la table.

.

simple précision comme tu as déjà mis une formule dans ton champ « TotalDépenses », tu dois l’effacer et remettre sa propriété source de contrôle à « TotalDépenses » qui doit être accessible avec la flèche à droite où il y a tous les champs de ta table.
à +

[Claudine]

Bonjour et mille remerciements a vous Messieurs Le Vieux et Users.
Grâce à vous , je progresse à petits pas et c'est merveilleux de se sentir épaulé.
Claudine