erreur non comprise

Question

voila lorsque j'execute le programme une erreur survient:

erreur d'execution '2185'
impossible de faire r&#233;f&#233;rence &#224; une propri&#233;t&#233; ou de la d&#233;finir pour un controle si ce dernier n'est activ&#233;.

en plus impossible d'avoir l'aide acces sous vb.

/**************************************************************/

Private Sub cmd_convertir_Click()
    
Dim francs, euros, dollars, sterling As Double

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 IsNumeric(txt_francs.Text) Then
        txt_euros.Text = Val(txt_francs.Text) * 0.15
        txt_dollars.Text = Val(txt_francs.Text) * 0.2
        txt_sterling.Text = Val(txt_francs.Text) * 0.1
        
        Else
          If IsNumeric(txt_euros.Text) Then
            txt_francs.Text = Val(txt_euros.Text) * 6.55
            txt_dollars.Text = Val(txt_euros.Text) * 1.31
            txt_sterling.Text = Val(txt_euros.Text) * 0.69
                
                Else
                  If IsNumeric(txt_dollars.Text) Then
                    txt_euros.Text = Val(txt_dollars.Text) * 0.77
                    txt_francs.Text = Val(txt_dollars.Text) * 5.05
                    txt_sterling.Text = Val(txt_dollars.Text) * 0.53
                        
                        Else
                          If IsNumeric(txt_sterling.Text) Then
                            txt_euros.Text = Val(txt_sterling.Text) * 1.42
                            txt_francs.Text = Val(txt_sterling.Text) * 9.45
                            txt_dollars.Text = Val(txt_sterling.Text) * 0.77
                        End If
                    End If
            End If
    End If
  End If
End Sub

Gobillot · Answer

~~Dim francs, euros, dollars, sterling As Double francs = txt_francs.Text euros = txt_euros.Text dollars = txt_dollars.Text sterling = txt_sterling.Text~~ If txt_francs "" And txt_euros "" And txt_dollars = "" And txt_sterling = "" Then MsgBox ("veuillez saisir une valeur svp") Else Daniel

Starec · Answer

Tu affectes &#224; des variables des donn&#233;es (je pense venant d'une textbox), hors tu ne dis
pas o&#249; sont ces textbox.

sous Vb : NomDelaForm.txt_Francs.Text

sous Access : NomDelaForm!txt_Francs.Text

Je pense que c'est cela, si ce que tu as &#233;cris est le reflet de ta proc&#233;dure

Starec

banlieue94polo · Answer

merci mais je ne comprend pas tres bien ce qu'il faut rentrer a la place de 
NomDelaForm!txt_francs.Text c'est sa ki me gene si tu pouvais m'expliquer...

Starec · Answer

Donc &#224; priori tu travaillerais sous Access

J'ai fait une petite erreur

Tu dois avoir un formulaire avec dessus un textbox, nomm&#233; txt_francs

Tu veux faire appel &#224; la valeur de cette textBox
Si ta routine ce trouve dans le module du formulaire il faut &#233;crire me.txt_francs.text pour r&#233;cup&#233;rer la valeur

Si ta routine se trouve dans un autre module il faut &#233;crire  :

Forms!Nomduformulaire.txt_francs.text

Le Forms doit &#234;tre &#233;crit &#224; l'indentique, et Nomduformulaire et le nom du formulaire tout simplement.

En esp&#233;rant t'avoir eclairci, j'ai toujours &#233;t&#233; nul en r&#233;daction

Starec

banlieue94polo · Answer

j'ai compris ton raisonnement de  Forms!Nomduformulaire.txt_francs.text    mais je sais pas ou placer cela .



petite question comment transformer le code du convertisseur mon&#233;taire
en classe (programmation objet) si tu as une id&#233;e je suis ouvert a
toute sugestion.

merci

Erreur non comprise

5 réponses

Discussions similaires