Discussion :

[Arola78]

Bonsoir,
J'ai écrit ce code sur l'événement sur ouverture:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Select Case stArgument
        Case "Saisie"
        Case "Duplication", "Sélection", "Analyses"
            Me.Premier.Transparent = True
            Me.Précédent.Transparent = True
            Me.Nouveauté.Transparent = True
            Me.Suivant.Transparent = True
            Me.Dernier.Transparent = True
        Case "Recherche"
            Me.Nouveauté.Transparent = True
        Case "Duplication"
            Me.PrixAchat.SetFocus
        End Select

Mais le focus se place systématiquement sur le 1er champ alors que je voudrais qu'il se place sur le champ PrixAchat dans le cas Duplication.
Avez vous une idée de ce qui cloche ? Merci

[Pierre Fauconnier]

Bonsoir

Lorsqu'un case répond à la condition, les case suivants ne sont pas évalués et on passe à l'instruction qui suit End Select. Donc, ton dernier case duplication n'est pas évalué puisqu'il y en a déjà un avant qui a été évalué.

Perso, j'écrirais ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Select Case stArgument
    Case "Saisie"
    Case "Duplication", "Sélection", "Analyses"
        Me.Premier.Transparent = True
        Me.Précédent.Transparent = True
        Me.Nouveauté.Transparent = True
        Me.Suivant.Transparent = True
        Me.Dernier.Transparent = True
        If stArgument = "Duplication" then Me.PrixAchat.SetFocus
    Case "Recherche"
        Me.Nouveauté.Transparent = True
End Select

[Arola78]

Bonjour et merci pour la solution.
C'est nickel
Bonne journée à tous