probleme de code vb

salutation, j'ai un souci. je dois realisé une condition, dont quand "txtkm" na aucune valeur entrée, la valeur par defaut de "txttrans" est 250; quand j'enregistre ca m'affiche un message d'erreur sur l'image postée. mais quand "txtkm" a une valeur entrée, on multiplie sa valeur entrée par 50. quand j'enregistre il y'a aucune erreur. j'ai declaré ces variables de type entier. et je programme avec vb/MySql. voici le code de mon bouton egal

Code:

---

1 2 3 4 5 6 7 8 9

Try If txtkm.Text = "" Then txttrans.Text = 250 Else txttrans.Text = txtkm.Text * 50 End If Catch ex As Exception MsgBox(ex.ToString()) End Try

---

, et voici mon code du bouton enregistrement "txtkm" et "txttrans"Pièce jointe 268389Pièce jointe 268390

Code:

---

1 2 3

Dim req As acte_penal = New acte_penal() req.km_ = txtkm.Text.Trim req.transp_ = txttrans.Text.Trim

---

Salut,

tu as des problèmes de transtypage (cast). Pense à mettre Option Strict On en début de fichier, comme ça tu auras des erreur/warning à la compilation pour t'aider à comprendre ce que tu ne fais pas bien.