VB, code avec IF OR et AND Fermé

Question

Bonjour, 

Je fais un modèle dans lequel je cherche à inscrire des valeurs à partir d'un code. 
Jai écrit ce code en VB mais cela ne fonctionne pas. Je ne suis pas habile en VB, pouvez-vous trouver mon erreur s'il-vous-plait? Si cela ne peut être fait en VB, quelles sont les solutions ?

Le code est le suivant : 




Dim lang
If [PAP]="AL" OR [PAP]="CIR" OR [PAP]="CO" OR [PAP]="CRE" OR [PAP]="DR" OR [PAP]="LAN" OR  [PAP]="POT" OR [PAP]="RO" Then
 lang ="Ang"
ElseIf  [PAP] = "POT" AND [MIN] = "RO" Then
 lang = "Fr"
Else
 lang ="Fr"
End If



Merci beaucoup de me répondre

Configuration: Windows XP / Internet Explorer 7.0

Lord Zero · Answer

Il te manque un End If, pour 2 condition , 2 End If
Avec quel VB tu code?

f894009 · Answer

Bonjour,

Dim lang
If [PAP] = "POT" AND [MIN] = "RO" Then
      lang = "Fr"
ElseIf [PAP]="AL" OR [PAP]="CIR" OR [PAP]="CO" OR [PAP]="CRE" OR [PAP]="DR" OR [PAP]="LAN" OR [PAP]="POT" OR [PAP]="RO" Then
     lang ="Ang"
Else
     lang ="Fr"
End If 

encode dans ce sens cela marche commme vous le demande

Bonne suite

VB, code avec IF OR et AND

2 réponses

Discussions similaires