VB, code avec IF OR et AND
Line
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
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
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
2 réponses
-
Il te manque un End If, pour 2 condition , 2 End If
Avec quel VB tu code? -
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
