Discussion :

[parab]

Bonjour à tous,

J'ai une erreur "Incompatibilité de type sur le code si-dessous :

Code :

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

1
2
3
4
Private Sub TxtJan_AfterUpdate()
    'MAJ du montant total
    Me.MtTotal = Nz(Me.TxtJan, "0") + Nz(Me.TxtFev, "0") + Nz(Me.TxtMar, "0") + Nz(Me.TxtAvr, "0") + Nz(Me.TxtMai, "0") + Nz(Me.TxtJuin, "0") + Nz(Me.TxtJuil, "0") + Nz(Me.TxtAou, "0") + Nz(Me.TxtSep, "0") + Nz(Me.TxtOct, "0") + Nz(Me.TxtNov, "0") + Nz(Me.TxtDec, "0") + Nz(Me.CoutFrais, "0")
End Sub

Cela arrive quand je saisie les mensulalités malgrés l'utilisation de la fonction "NZ" pour eviter les valeurs null.

Pourriez vous m'aider SVP ?

Cordialement,

Parab

[Kloun]

et comme ça :

Code :

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

1
2
3
4
Private Sub TxtJan_AfterUpdate()
    'MAJ du montant total
    Me.MtTotal = Nz(Me.TxtJan, 0) + Nz(Me.TxtFev, 0) + Nz(Me.TxtMar, 0) + Nz(Me.TxtAvr, 0) + Nz(Me.TxtMai, 0) + Nz(Me.TxtJuin, 0) + Nz(Me.TxtJuil, 0) + Nz(Me.TxtAou, 0) + Nz(Me.TxtSep, 0) + Nz(Me.TxtOct, 0) + Nz(Me.TxtNov, 0) + Nz(Me.TxtDec, 0) + Nz(Me.CoutFrais, 0)
End Sub

[parab]

Non, cela n'a pas marché

[Kloun]

Message d'erreur ?
Sinon, ça :

Code :

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

1
2
3
4
Private Sub TxtJan_AfterUpdate()
    'MAJ du montant total
    MtTotal.value = Nz(TxtJan.value, 0) '+ Nz(TxtFev.value, 0) + Nz(TxtMar.value, 0) + Nz(TxtAvr.value, 0) + Nz(TxtMai.value, 0) + Nz(TxtJuin.value, 0) + Nz(TxtJuil.value, 0) + Nz(TxtAou.value, 0) + Nz(TxtSep.value, 0) + Nz(TxtOct.value, 0) + Nz(TxtNov.value, 0) + Nz(TxtDec.value, 0) + Nz(CoutFrais.value, 0)
End Sub

ça fonctionne ?

[parab]

Oui, pourquoi cela ne marche pas pour toutes les zones ?

[Kloun]

Ch'ais pas.
Rajoute les zones une à une, tu verras bien où ça plante.

[parab]

cela ne marche pas avec une deuxième zone, c'est comme s'il prend pas en compte la valeur 0. Je ne comprend pas

[Tonioyo]

Bonjour,

C'est normal que cela ne fonctionne pas puisqu'une zone de texte c'est du texte soit le type String il faut donc "caster" (c.a.d. changer de type) la valeur pour pouvoir l'additionner grace à Cint, Clng et Cdouble par exemple

Donc ca donne quelquechose dans ce genre là :

Code :

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

1
2
3
4
Private Sub TxtJan_AfterUpdate()
    'MAJ du montant total
    MtTotal.value = Clng(Nz(TxtJan.value, 0)) + Clng(Nz(TxtFev.value, 0)) '+ Nz(TxtMar.value, 0) + Nz(TxtAvr.value, 0) + Nz(TxtMai.value, 0) + Nz(TxtJuin.value, 0) + Nz(TxtJuil.value, 0) + Nz(TxtAou.value, 0) + Nz(TxtSep.value, 0) + Nz(TxtOct.value, 0) + Nz(TxtNov.value, 0) + Nz(TxtDec.value, 0) + Nz(CoutFrais.value, 0)
End Sub

Du coup le Nz n'est peut être plus utile voir la doc pour être sûr.

[Kloun]

Code :

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

1
2
3
4
5
Private Sub TxtJan_AfterUpdate()
debug.print Nz(TxtFev.value, 0)
    'MAJ du montant total
    MtTotal.value = Nz(TxtJan.value, 0) '+ Nz(TxtFev.value, 0) + Nz(TxtMar.value, 0) + Nz(TxtAvr.value, 0) + Nz(TxtMai.value, 0) + Nz(TxtJuin.value, 0) + Nz(TxtJuil.value, 0) + Nz(TxtAou.value, 0) + Nz(TxtSep.value, 0) + Nz(TxtOct.value, 0) + Nz(TxtNov.value, 0) + Nz(TxtDec.value, 0) + Nz(CoutFrais.value, 0)
End Sub

T'as quoi dans la fenêtre exécution ?

[parab]

Cela ne marche pas non plus, c'est vraiment incompréhensible...

[parab]

J'ai toujours l'erreur "Incompatibilité de type".

[Kloun]

Je m'en doute, mais qu'est ce qu'il y a dans la fenêtre exécution (CTRL-G quand tu es dans un module) ?

[parab]

Je copie la formule de calcul, je la colle dans la fenêtre d'exécution, et j'ai même message d'erreur...

[Kloun]

le

Code :

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

debug.print Nz(TxtFev.value, 0)

donne quoi ?

[parab]

Rien, fenêtre vide après avoir exécuté

Code :

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

debug.print Nz(TxtFev.value, 0)

[Kloun]

Nous y voilà.
Dans txtFev, tu as ""

Code :

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

Debug.print iif(nz(txtfev.value, "") = "", 0, txtfev.value)

Donne quoi ?

[parab]

0, bravo chef
Cela devra marcher maintenant.