Discussion :

[Sprsrini]

Bonjour,

J'essaye en vain de faire une comparaison entre la valeur entrée dans un champ texte de mon formulaire avec une chaîne de caractère que je précise dans code VBA, ça ne marche pas.

Voici le code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If [ADRLIV1*].Value = "toto" Then
   Sup_35_Adr1.Visible = True
Else
   Sup_35_Adr1.Visible = False
End If

J'ai également essayé ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If [CDPOSLIV*].Value = "75000" Then
    Format_Cd_Postal.Visible = True
Else
    Format_Cd_Postal.Visible = False
End If

et ça ne marche pas également.

J'ai essayé de mettre un [ADRLIV1*].Text à la place de [ADRLIV1*].Value mais toujours pareil.

Pour moi normalement le code devrait fonctionner mais je ne vois pas pourquoi ce n'est pas le cas.

Si quelqu'un pouvait m'éclairer .

Merci

Srini

[nirG95]

Bonjour,

As-tu essayé de passer ton champ en string ?

str([ADRLIV1*].Value) = "ta valeur" ?

Je dis ça, mais je viens juste de commencer dans la Prog et Access. Donc tiens moi au courant

Mais sinon, ce code fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Me.Texte0 = "lol" Then
MsgBox "lol"
Else
MsgBox "no"
End If

De plus le nom de textbox est bizarre : [ADRLIV1*] ?!

Je pencherai plus sur le nom de ton textbox

cordialement.

[Sprsrini]

Bonjour,

Merci pour ta réponse.

J'ai réussi à régler le problème du premier code (je m'étais trompé dans le nom de champ ), le code marche bien.

Par contre au niveau du deuxième code ça ne marche pas du tout :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If [CDPOSLIV*].Value = "75000" Then
    Format_Cd_Postal.Visible = True
Else
    Format_Cd_Postal.Visible = False
End If

Pour précision, le champ CDPOSLIV* est un champ texte.

[nirG95]

Mais c'est pareil que le premier, ton code devrait fonctionné :/ Vérifie bien les noms de tes champs !

Cordialement.

[Sprsrini]

Merci de m'avoir aidé.

J'ai réussi à régler le problème en faisant ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If [CDPOSLIV*].Value = "75000" Then
     Format_Cd_Postal.Visible = True
ElseIf [CDPOSLIV*].Value <> "75000" Then
     Format_Cd_Postal.Visible = False
End If

Je ne comprend pas pourquoi si je mettait seulement un Else ça ne fonctionnait pas .

Srini