Instruction If dans VB 6.0
Polly
-
Armojax Messages postés 1860 Date d'inscription Statut Membre Dernière intervention -
Armojax Messages postés 1860 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Pouvez-vous SVP me corriger le code suivant:
Vérifier surtout l'utilisation de Else If et la définition des conditions.
If Rep = "01" Or Rep = "02" Or Rep = "03" Then
VarNum = Varold
operator.Text = Varoperator
ElseIf Rep = "14" Or rep = "20" Or Rep = "23" Then
VarNum = VaroldNum + 1
operator.Text = Varoperator
ElseIf Rep = "05" Or Rep = "06" Then
VarNum = Varold - 15
Operator.Text = VarNum
end If
End If
EndIf
Merci d'avance
Polly.
Pouvez-vous SVP me corriger le code suivant:
Vérifier surtout l'utilisation de Else If et la définition des conditions.
If Rep = "01" Or Rep = "02" Or Rep = "03" Then
VarNum = Varold
operator.Text = Varoperator
ElseIf Rep = "14" Or rep = "20" Or Rep = "23" Then
VarNum = VaroldNum + 1
operator.Text = Varoperator
ElseIf Rep = "05" Or Rep = "06" Then
VarNum = Varold - 15
Operator.Text = VarNum
end If
End If
EndIf
Merci d'avance
Polly.
A voir également:
- Instruction If dans VB 6.0
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Screenhunter 6.0 free - Télécharger - Capture d'écran
- Télécharger adobe acrobat 6.0 professional gratuit - Forum Logiciels
- The realtek network controller was not found. if deep sleep mode is enabled please plug the cable ✓ - Forum Pilotes (drivers)
1 réponse
Salut polly,
Je ne vois pas de problème, à part 2 End If en trop en fin de proc.
Je conseillerais plutôt, pour la clarté, l'utilisation de Select Case :
Je ne vois pas de problème, à part 2 End If en trop en fin de proc.
Je conseillerais plutôt, pour la clarté, l'utilisation de Select Case :
Select Case Rep
Case "01", "02", "03"
VarNum = Varold
Operator.Text = Varoperator
Case "14", "20", "23"
VarNum = VaroldNum + 1
Operator.Text = Varoperator
Case "05", "06"
VarNum = Varold - 15
Operator.Text = VarNum
End Select
