CHAMP CALCULE CONDITIONNEL ACCESS
Résolu
GUYSYS
Messages postés
27
Date d'inscription
Statut
Membre
Dernière intervention
-
Siroua -
Siroua -
A voir également:
- Access champ calculé conditionnel
- Excel champ calculé avec condition - Forum Excel
- [Access] champ calculé avec condition - Forum Logiciels
- Format conditionnel excel - Guide
- Hns-self-wan-access-ipv6 ✓ - Forum Réseau
- Le nom du champ de tableau croisé dynamique n'est pas valide ✓ - Forum Excel
10 réponses
Salut,
alors moi je ne passe pas par un champ de precalcul (c'est totalement inutile).
Je te propose la chose suivante :
Tu crées un formulaire "Formulaire1" avec 4 contrôles de type texte dedans (nommés A, B, Date_Sortie, Resultat)
Tu crées un module (dans la fenêtre base de données) avec ce code-là :
Ensuite, il ne reste plus qu'à affecter du code dans la propriété "après maj" des trois premiers contrôles en mettant un appel à la sous-procédure MajResu définie dans le module :
Comme ça, dès que tu saisis qq chose et que le focus passe sur un autre champ, on recalcule...
Mais comme ton algorithme n'est pas en phase avec les exemples que tu m'as proposés, j'ai fait en fonction de l'algo, à toi de voir ce qu'il faut modifier en fonction de tes besoins...
alors moi je ne passe pas par un champ de precalcul (c'est totalement inutile).
Je te propose la chose suivante :
Tu crées un formulaire "Formulaire1" avec 4 contrôles de type texte dedans (nommés A, B, Date_Sortie, Resultat)
Tu crées un module (dans la fenêtre base de données) avec ce code-là :
Public Sub MajResu() Dim ValA As Long Dim ValB As Long Dim Diff As Long If IsNull(Forms!Formulaire1.Controls("A").Value) Then ValA = 0 Else ValA = Val(Forms!Formulaire1.Controls("A").Value) End If MsgBox ValA If IsNull(Forms!Formulaire1.Controls("B").Value) Then ValB = 0 Else ValB = Val(Forms!Formulaire1.Controls("B").Value) End If MsgBox ValB Diff = ValA - ValB MsgBox Diff If Diff < 0 Then Forms!Formulaire1.Controls("Resultat").Value = 0 Exit Sub End If If Diff >= 0 Then Forms!Formulaire1.Controls("Resultat").Value = Diff Exit Sub End If If ValB = 0 Then If IsNull(Forms!Formulaire1.Controls("Date_Sortie").Value) Then Forms!Formulaire1.Controls("Resultat").Value = 0 Else Forms!Formulaire1.Controls("Resultat").Value = Diff End If End If End Sub
Ensuite, il ne reste plus qu'à affecter du code dans la propriété "après maj" des trois premiers contrôles en mettant un appel à la sous-procédure MajResu définie dans le module :
Private Sub A_AfterUpdate() MajResu End Sub Private Sub B_AfterUpdate() MajResu End Sub Private Sub Date_Sortie_AfterUpdate() MajResu End Sub
Comme ça, dès que tu saisis qq chose et que le focus passe sur un autre champ, on recalcule...
Mais comme ton algorithme n'est pas en phase avec les exemples que tu m'as proposés, j'ai fait en fonction de l'algo, à toi de voir ce qu'il faut modifier en fonction de tes besoins...