Discussion :

[celthi]

Bonjour
J'ai mis en place un code avec des If Then Else dans un évènement, mais le nombre de cas est supérieur à 40. J'aurais aimé intégrer un For pour éviter la redondance et faciliter la maintenance.
Ce code permet l'affichage d'un sous formulaire en fonction d'un champ du formulaire.

Voici mon code de départ (qui fonctionne)

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Current()
If ID_Role.Value = 124 Then
Me.Fille148.SourceObject = "F_Role_124"
ElseIf ID_Role.Value = 124 Then
Me.Fille148.SourceObject = "F_Role_124"
Else
Me.Fille148.SourceObject = "F_Travaux"
End If
End Sub

Voici le code que j'ai voulu bidouiller mais il ne fonctionne pas
Need Help Please

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Current()
Dim i As Integer
For i = 110 To 140
If ID_Role.Value = i Then
Me.Fille148.SourceObject = "F_Role_i"
 
Exit For
End If
Next i
If ID_Role.Value = none Then
Me.Fille148.SourceObject = "F_Travaux"
End If
End Sub

Merci d'avance au forum pour toutes aides apportées

Cordialement

[ClaudeLELOUP]

Bonjour,

Je ne comprends pas ce que tu veux faire.

Peux-tu exprimer le problème en français ?

Au départ, tu as...

À l'arrivée, tu voudrais...

[Jean-Philippe André]

Salut,

je tente, mais ton code n'est pas des plus explicite pour etre certain que cela correspond à ton besoin :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Current()
Dim i As Integer
Dim bOK as Boolean
For i = 110 To 140
    If ID_Role.Value = i Then
        Me.Fille148.SourceObject = "F_Role_" & i
        bOk=True
        Exit For
    End If
Next i
If Not bOk Then
    Me.Fille148.SourceObject = "F_Travaux"
End If
End Sub

[syrald]

Bonjour,

Je crois que c'est effectivement ce qu'il a besoin.
Si c'est le cas j'ai une version plus rapide, sans utiliser de boucle for (Dans le cas ou i est compris entre deux chiffres)

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Form_current()
   If ID_Role.value >= 100 And ID_Role.value <= 140 Then
      Me.Fille148.sourceObject = "F_Role_" & ID_Role.value
   Else
      Me.Fille148.SourceObject = "F_Travaux"
   End if
End Sub

[celthi]

Bonjour,

Je crois que malgré ma très mauvaise explication vous avez compris, je vais essayé la modification. Si cela ne fonctionne pas, je reviens avec une explication claire.

merci pour toute ces réponses qui me permettent de mieux comprendre le code.
Cordialement,

[celthi]

Merci à tous,

C'est exactement ce que je recherchai.
Vous êtes trop bons.

Cordialement,