Problem avec une textbox

Résolu
banlieue94polo Messages postés 8 Date d'inscription mardi 9 septembre 2003 Statut Membre Dernière intervention 22 avril 2005 - 31 mars 2005 à 10:47
banlieue94polo Messages postés 8 Date d'inscription mardi 9 septembre 2003 Statut Membre Dernière intervention 22 avril 2005 - 31 mars 2005 à 14:44
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

3 réponses

econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 25
31 mars 2005 à 11:15
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.
3
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 25
31 mars 2005 à 11:07
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ée, c'est une chance de réponse bien adaptée.
0
banlieue94polo Messages postés 8 Date d'inscription mardi 9 septembre 2003 Statut Membre Dernière intervention 22 avril 2005
31 mars 2005 à 14:44
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= "")
0
Rejoignez-nous