Discussion :

[hugo69]

Bonjour,

J'ai une fonction qui me construit un objet control à partir de statiques.

Je ne prends pas depuis le debut, car l'objet est bien crée.

L'objet créé en question se nommera Ctl.

Si je fais un Ctl.Value="01/01/2006" ca me met bien la valeur.
Ainsi j'écarte l'hypothese que mon Ctl soit incorrecte.

Mon probleme est que si je fais un Ctl.SetFocus, ca ne fait rien.

je ne comprends pas la raison, j'ai testé pas mal de chose.

Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Sub doEstVide "[CommissionSurTransaction],[CommissionSurTransaction_SF],[DateFinCommission]"
 
 
Public Sub doEstVide(frm As String)
 
Dim T() As String
Dim Ctl As Variant
 
    'on met les noms de formulaire, sous-formulaire et control dans un tableau
    T() = Split(setConst(frm), ",")
 
    If T(2) = "" Then
 
        'si t2 est null, on a pas de sous-formulaire
        Set Ctl = Forms(T(0)).Controls(T(1))
 
    Else
 
        'On construit le controle formulaire
        Set Ctl = Forms(T(0)).Controls(T(1)).Form.Controls(T(2))
 
    End If
 
 
        Ctl.SetFocus 'la rien ne se passe
 
    End If
 
End Sub

merci pour votre aide

[ft035580]

Salut,

Juste une remarque:

Code :

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

1
2
3
4
 
....
Ctl.SetFocus 'la rien ne se passe
End If

Pourquoi ce "End if" ?

[hugo69]

j'ai une condition sur le setfocus.

Javais virer la petite condition pour simplifie le pb.
Il nest pas en jeu, si je met un msgbox (quand ma condition est la) jai bien mon message box, donc je parcours bien la ligne setfocus.

idem, si je met Ctl.Value = "xxx"
Il me met bien la valeur xxx

cest avec le Ctl.SetFocus qua jai un souci.

Je precise que derriere mon Ctl.Value j'ai mis un "End"

[ft035580]

'On construit le controle formulaire
Set Ctl = Forms(T(0)).Controls(T(1)).Form.Controls(T(2))

Juste une idée,

Si tu "construis" le contrôle , peut-être qu' un refresh ou requery seraient nécessaires avant de donner le focus à ton contrôle.

[hugo69]

non ca na aps lair de fonctionner.

Tu parles d'un Ctl.Requery ?

Quand je dis construire, c'est uniquement trouver le nom du controle et me faire une varibale objet.