problem avec une textboxRésolu

Question

Voila je suis entrain de faire un convertisseur monétaire sous vb access, g un probleme au niveau de l'utilisation des texbox , il me dit qu'il y a une utilisation incorrecte de 'null' /************************************/ Private Sub cmd_convertir_Click() Dim francs, euros, dollars, sterling As Double francs = txt_francs.Value <> Null euros = txt_euros.Value <> Null dollars = txt_dollars.Value <> Null sterling = txt_sterling.Value <> Null If francs Null And euros Null And dollars = Null And sterling = Null Then MsgBox ("veuillez saisir une valeur svp") Else If euros = txt_euros.Value Then francs = (euros * 6.55) / 1 dollars = (euros * 1.31) / 1 sterling = (euros * 0.69) / 1 Else If francs = txt_francs.Value Then euros = (francs * 0.15) / 1 dollars = (francs * 0.2) / 1 sterling = (francs * 0.1) / 1 Else If dollars = txt_dollars.Value Then euros = (dollars * 0.77) / 1 francs = (dollars * 5.05) / 1 sterling = (dollars * 0.53) / 1 Else If sterling = txt_sterling.Value Then euros = (sterling * 1.42) / 1 francs = (sterling * 9.45) / 1 dollars = (sterling * 1.89) / 1 End If End If End If End If End If End Sub

econs · Accepted Answer

Mais je pense que ce code ci ressemble plus à ce que tu veux vraiment faire : /************************************/ Private Sub cmd_convertir_Click() Dim francs, euros, dollars, sterling As Double francs = txt_francs.Value <> Null euros = txt_euros.Value <> Null dollars = txt_dollars.Value <> Null sterling = txt_sterling.Value <> Null If isNumeric(txtfrancs.Text) Then txtEuros.Text = Val(txtfrancs.Text) * 0.15 txtDollars.Text = Val(txtfrancs.Text) * 0.2 txtSterling.Text = Val(txtfrancs.Text) * 0.1 End If If isNumeric(txteuros.Text) Then txtfrancs.Text = Val(txteuros.Text) * 6.55 txtDollars.Text = Val(txteuros.Text) * 1.31 txtSterling.Text = Val(txteuros.Text) * 0.69 End If ' La suite coule de source... End Sub Manu ------------------------------------------- Une question bien posée, c'est une chance de réponse bien adaptée.

econs · Answer

dim francs as boolean

dim euros as boolean

dim dollars as boolean

dim sterling as boolean

francs = (txt_francs.Text= "")euros (txt_euros.Text "")dollars (txt_dollars.Text "")sterling (txt_sterling.Text "")



        
 If (not francs) or (not euros) or (not dollars) or (not sterling)  Then

     MsgBox ("veuillez saisir une valeur svp")
 
 Else
    If euros = txt_euros.Text Then

        ...




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

banlieue94polo · Answer

oui merci ce que je comprend pas tres bien enfin ce que je me demande keske je dois remplir  dans les parametres "text"

francs = (txt_francs.Text= "")

Problem avec une textbox

3 réponses

Discussions similaires