Discussion :

[Daniel MOREAU]

Bonsoir,

Voilà je ne comprend pas pourquoi le code suivant :
fonctionne correctement lorsque aucune donnée n'est saisie
fonctionne lorsque une saisie est effectuée

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 CP_GotFocus()
Dim VerifListe As String

VerifListe = Nz(DLookup("[CP]", "Tbl_Villes"), 0)
If VerifListe <> 0 Then
Me.Frm_Villes.Form.Visible = False
Else
Me.Frm_Villes.Form.Visible = True
Me.Frm_Villes.SetFocus
Me.[Frm_Villes].Form![CP].SetFocus

End If

end sub

j'ai le message : Impossible d'activer le contrôle Frm_Villes !!!

Merci pour votre aide

daniel

[francishop]

Bonsoir,

Code :

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

1
2
3
Me.Frm_Villes.Form.Visible = True
Me.Frm_Villes.SetFocus
Me.[Frm_Villes].Form![CP].SetFocus

Pourquoi Me.Frm_Villes et Me.[Frm_Villes]?

Pourquoi Me.Frm_Villes.Form.... et Me.Frm_Villes.....?

Cordialement.

Ps :fonctionne correctement lorsque aucune donnée n'est saisie
fonctionne lorsque une saisie est effectuée-->Donc : C'est toujours OK!

[Daniel MOREAU]

Bonsoir,

Je reviens vers vous car je n'arrive toujours pas à donner le focus au champ CP de mon sous formulaire "Frm_Villes"

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
Private Sub CP_GotFocus()
Dim VerifListe As String

VerifListe = Nz(DLookup("[CP]", "Tbl_Villes"), 0)
If VerifListe = 0 Then
Forms![Frm_Salaries]![Frm_Villes].Form.Visible = True
Forms![Frm_Salaries]![Frm_Villes]![CP].SetFocus
Forms![Frm_Salaries]![Frm_Villes].Form![Btn_FermeFrm].Visible = False

Else
Forms![Frm_Salaries]![Frm_Villes].Form.Visible = False

End If

End Sub

Quelqu'un a-t-il une explication ?


Merci d'avance.

Daniel

[francishop]

Bonsoir,
En tous les cas il semble que tous ces appels sont faits depuis le form "au sommet".
Donc il est inutile d'appeler--> "Forms![Frm_Salaries]"
Un simple Me!Frm_Villes.Form![CP] doit faire l'affaire.

Cordialement.

Ps : Après essai-->Ceci est OK

Code :

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

1
2
3
Me.[Frm_Villes].Visible = True
Me.Frm_Villes].SetFocus
Me.Frm_Villes]![CP].SetFocus

[Daniel MOREAU]

bonsoir francishop,

Merci pour ta réponse,

J'avais bien noté ta remarque, mais avec la multitude d'essai que je viens d'effectuer, je finis par me mélanger les pinceaux.

Néanmoins ça ne fonctionne tjrs pas lorsque je saisi dans mon formulaire principal.
(Ce qui me surprend c'est que lorsque le formulaire principal est vierge le champ "CP" de mon sousformulaire recoit bien le focus.)

J'ai recherché dans les forums, mais je n'ai rien trouvé.

J'ai essayé avec docmd gotocontrol (même message), également avec screen activecontrol.

As tu une idée ?

Merci encore

Daniel

[Daniel MOREAU]

re,

Pour info francishop,

j'ai testé avec ton code mais j'ai bien le même message d'erreur.

@+

[francishop]

Bonsoir,

Envoie ton formulaire avec le minimum d'accessoires. C'est anormal. Il doit y avoir autre chose.

Cordialement.

[Faw]

salut,
Daniel, tu es sûr que ce code

Code :

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

Forms![Frm_Salaries]![Frm_Villes].form![CP].SetFocus

ne fonctionne pas?

[Daniel MOREAU]

bonjour,

pour répondre à faw, j'ai essayé également avec le code de francishop

Code :

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

1
2
3
Me.[Frm_Villes].Visible = True
Me.Frm_Villes].SetFocus
Me.Frm_Villes]![CP].SetFocus

et j'ai le même message "Impossible d'activer le controle 'frm_ville'" dès que je saisie une donnée dans mon formulaire principal.

Par contre le code fonctionne quand le formulaire reste vierge de toute saisie.

Je vous joins ma bdd comme me l'a proposé francishop

Merci pour votre aide

Daniel

[francishop]

Bonjour,

Dans Tbl_Salaries-->CP-->Null interdit-->Non

C'est avant mise à jour de ton formulaire qu'il faut vérifier la contenance des champs.

Cordialement.

[Faw]

RE,
J'ai bien compris? Frm_Villes sert à la fois de formulaire ET de sous-formulaire .
En plus si tu atteint le contrôle d'un sous-form, tu n'as pas besoin de donner le
focus au sous-form avant...il le reçois en même temps que son contrôle. c'est
déjà une ligne d'erreur en moins.

Tu peux essayer avec SelStart au lieu de SetFocus, ça atteint bien [CP].
Cela dit, je n'ai pas tout compris: Pourquoi un sous-form caché puisque tu t'en
sert en tant que formulaire (le bouton à trois points devant CP du form parent)?