Discussion :

[showa]

Bonjour,

J'ai un problème qui semble anodin et pourtant je coince depuis des heures.
Aucune recherche sur le net ne m'a permis de trouver la solution, voilà pourquoi je me permets de poser la question ici :

Je suis dans un sous-formulaire (FMedailleCommande) non lié au formulaire principal (FMenu) et j'aimerais faire un DoCmd.GoToControl sur un champ situé dans mon sous-formulaire.

Pour ce faire, je fais ce ceci :

Code :

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

1
2
3
4
5
6
DoCmd.ShowAllRecords
if IsNull(recherche) Then Exit Sub
RechercheClient = Null
CommandeFiltre.Visible = True
DoCmd.GoToControl "MedailleCommandeNo"
DoCmd.FindRecord recherche

L'erreur renvoyée par la commande est celle-ci : Erreur d'exécution '2109': Il n'y a pas de champs nommé 'MédailleCommandeNo' dans l'enregistrement en cours.

J'ai essayé ceci aussi mais ça ne marcha pas non plus :

Code :

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

1
2
Me.[FMedailleCommande].SetFocus
Me.[FMedailleCommande]!MedailleCommandeNo.SetFocus

A noter que si je la fais manuellement via 'rechercher' de la barre 'Mode formulaire', cela marche parfaitement mais je ne veux pas imposer cela à l'utilisateur.

Une idée ?

Merci.

[f-leb]

bonsoir,

peut-être avec:

Code :

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

Me.[FMedailleCommande].Form.MedailleCommandeNo.SetFocus

[showa]

Bonsoir et merci pour ta réponse mais malheureusement, j'ai l'erreur suivante avec ta proposition :

Erreur d'exécution '2465' : Impossible de trouver le champ '|' auquel il est fait référence dans votre expression.



Quelqu'un a t-il une autre suggestion ?

Merci.

[f-leb]

peut-être plus simplement avec:

Code :

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

Me.MedailleCommandeNo.SetFocus

[jojo5650]

remplace le me. par forms.[formulaire principal].form.[sous formuliare].[nom du control].setfocus
jojo5650

peut-être plus simplement avec:

Code :

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

Me.MedailleCommandeNo.SetFocus

[showa]

Bonsoir à tous,

Tout d'abord, merci pour vous réponses.
En me repenchant sur le problème, je viens de constater que le problème ne provient pas du 'GoToControl' mais de la première ligne de code : DoCmd.ShowAllRecords.
Celle-ci supprimée, le code fonctionne très bien. Le message d'erreur m'avait induit en erreur.

Le 'DoCmd.ShowAllRecords' ne fonctionne pas car il l'applique à mon formulaire FMenu (qui ne contient pas de données) et non à mon sous-formulaire.

Par ailleurs, la ligne de code ci-dessous ne fonctionne pas non plus :

Code :

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

DoCmd.ApplyFilter , "[TMedailleCommande]![MedailleCommandeClient] = " & RechercheClient

Comme pour le problème précédent, il applique le code au formulaire père.

Quelqu'un a une idée de solution?

Merci.