erreur dexécution 380. Valeur de propriété non valide

Question

Slt ! Les gars j&#8217;ai de s&#233;rieux probl&#232;me. Pour avoir les s&#233;parateurs de milliers au niveau des montants sur un formulaire, j&#8217;ai opt&#233; pour l&#8217;objet MaskEdBox avec Mask= &#8216;# ### ###&#8217; au lieu de TextBox. A la saisie, j&#8217;ai remarqu&#233; que le montant ne s&#8217;affiche pas toujours comme il faut. QUESTION1 : Que faire ?


<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /> 


Je veux cumuler 2 montants et afficher le r&#233;sultat. Pour se faire j&#8217;ai d&#233;clar&#233; 2 variables integer. Je r&#233;alise la somme des 2 montants : mMTDEBIT + mMTDEBP En voulant afficher le r&#233;sultat avec les s&#233;parateurs de milliers, j&#8217;ai dessin&#233; sur le formulaire un MaskEdBox. Dans le code je mets :


MaskEdBox2.Text = CStr(mMTDEBIT + mMTDEBP) . J&#8217;ai le message d&#8217;erreur &#171; erreur d&#8217;ex&#233;cution &#8216;380&#8217;. Valeur de propri&#233;t&#233; non valide &#187;. 


 


En passant par une variable interm&#233;diaire :


mTotDeb = mMTDEBIT + mMTDEBP


MaskEdBox2.Text = CStr(mTotDeb)


J&#8217;ai encore le m&#234;me message


 


Pour test quand je met  MaskEdBox2.Text = "10", j&#8217;ai toujours le m&#234;me message. QUESTION2 : Alors pourquoi ce message et que faire ?


 


Merci de me venir en aide

MecLome

Gobillot · Answer

c'est toi m&#234;me qui a donn&#233; le format.
la moindre des choses c'est de le respecter

MaskEdBox2.Text = "0 000 010"

Daniel

meclome · Answer

En essayant MaskEdBox2.Text = "0 000 010", je n'ai plus le message d'erreur mais j'ai des z&#233;ro (0) qui s'affiche. Mon but en fait comme je l'ai soulign&#233; dans le message, c'est d'avoir les s&#233;parateurs de milliers. De plus l&#224; tu as pris le cas de test o&#249; c'est une constante et dans le cas d'une variable que faire?

MecLome

Gobillot · Answer

je pense que tu auras beaucoup de probl&#232;me avec ce format, le s&#233;parateur de milliers n'&#233;tant pas toujours l'espace, je ne sais pas pas comment r&#233;agi MaskEditBox mais pour indiquer le s&#233;parateur de millier dans un format on emploie la virgule, de plus l'&#233;dition de l'espace n'est pas chr$(32) mais chr$(160), ce qui va poser d'&#233;normes probl&#232;mes.

    Dim var As Integer
    Dim s   As String


    var = 10
    s = Format$(var, "0,000,000")
    s = Replace(s, Chr$(160), " ")
    MaskEdBox1.Text = s

Daniel

Gobillot · Answer

' le s&#233;parateur de milliers
Dim sep As String * 1


Private Sub Form_Load()
'   d&#233;pend des options r&#233;gionales
    sep = Mid$(Format$(1234, "#,###"), 2, 1)
'   MsgBox Asc(sep)
End Sub


Private Sub Command1_Click()
'envoi dans le MaskEdBox
    Dim var As Long
    Dim s    As String

    var = 1234567
    s = Format$(var, "0,000,000")
    s = Replace(s, sep, " ")
    MaskEdBox1.Text = s
End Sub


Private Sub Command2_Click()
'reception du MaskEdBox
    Dim var As Long
    Dim s    As String
    s = MaskEdBox1.Text
  'les caract&#232;res non saisis remplac&#233; par des z&#233;ros
    s = Replace(s, "_", "0")
    MsgBox Val(s)
End Sub

Daniel

Erreur dexécution 380. Valeur de propriété non valide

4 réponses

Discussions similaires