[AC-2007] affecter valeur à un champ à partir de la valeur d'un champs calculé [Résolu]

[ubaal]

Bonjour,

Dans un formulaire j'ai le code suivant :

Code :

1
2
3
4
5
Private Sub champ1_AfterUpdate()
If champs1.Value = "2" Then
champs2= "60"
End If
End Sub

Alors si le champs 1 est du type champs à renseigner par saisie ça fonctionne mais :

si le champ1 est un champ calculé le code ne fait rien.

Aves-vous une idée comment adapter le code pour que ça fonctionne ?

Merci

[JeanYves70]

Bonjour,

Code :

1
2
3
4
5
Private Sub champ1_AfterUpdate()
If me.champs1 = 2 Then
me.champs2= 60
End If
End Sub

ou en effectuant un calcul

Code :

1
2
3
4
5
Private Sub champ1_AfterUpdate()
If me.champs1 = 2 Then
me.champs2= me.champs1 * me.champs3 'par exemple
End If
End Sub

[ubaal]

Je vous remercie pour les rectifications dans la syntaxe. Mais le code reste muet. Je détail la nature du champs1 :

le champs 1 est obtenu par une formule saisie dans la source de contrôle du champs 1 : =[H M1]/[Dt M1]

Est-ce que ça vous donne d'autres idées ? Faut-il utiliser AfterUpdate sachant qu'il y a cette formule?

Merci

[pgz]

Bonjour.

Tu pourrais utiliser plutôt l'évènement AfterUpdate du contrôle "H M1" ET du contrôle "Dt M1". En fait de tous les contrôles utilisés dans le calcul.

Cordialement,

PGZ

[ubaal]

Excellent ça marche ; merci !!

Si je veux multiplier les conditions avec des intervales par exemple :

si champs1<2 attribuer la valeur 30
si champs1 >=2 et <3 attribuer la valeur 60

comment formulerez-vous cette succession de conditions avec des intervales ?

Merci pour votre aide

[pgz]

Hello.

Pour répondre à ta nouvelle question :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Select case me.Champ1.value
    Case Is < 2
        Me.Champ2 = ...
    Case 2 to 2.999999
        ...
    Case 3 to 3.999999
        ...
    ...
 
    Case is >= 12
        ...
End select

Sinon tu pourras être + précis avec

Code :

1
2
3
4
If Me.Camp1.Value < 2 then
    ...
ElseIf (Me.Champ1.Value >= 2) And (me.Champ1.Value <3) Then
    ...

Cordialement,

PGZ

[ubaal]

Merci pour votre expertise. Entre temps j'avais opté pour la seconde solution mais je vais tester votre première proposition. Voilà ce que j'avais rentré comme code avez-vous des commentaires la-dessus car je ne suis pas du tout initié à VBA:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Dt_M1_AfterUpdate()
 
If Me.i_M1 > "2.5" Then
    Me.âge_M1 = "<2 ans"
 
        Else
            If Me.i_M1 <= "2.5" And Me.i_M1 > 2 Then
            Me.âge_M1 = "2ans<âge<4ans"
 
                Else
                    If Me.i_M1 < "2" And Me.i_M1 > 1.55 Then
                    Me.âge_M1 = "4ans<âge<6.5ans"
 
                        Else
                            If Me.i_M1 < 1.55 And Me.i_M1 >= 1.1 Then
                            Me.âge_M1 = "6.5ans<âge<9ans"
 
                                Else
                                If Me.i_M1 < 1.1 And Me.i_M1 >= 0.9 Then
                                Me.âge_M1 = "9ans<âge<11.5ans"
 
                                    Else
                                    If Me.i_M1 < 0.9 Then
                                    Me.âge_M1 = "âge>11.5ans"
 
                                    End If
                                End If
                            End If
                    End If
            End If
End If
 
End Sub

[pgz]

Hello.

Deux remarques :

• Plutôt que d'emboîter plusieurs If, utiliser If ... ElseIf ... ELseIf ... ElseIf ... ... End If
• Quand tu ecris une expression logique encadre chaque terme avec des parenthèses : (a<B) And (a>c).

Cordialement,

PGZ

[ubaal]

Merci beaucoup et bonne soirée.