Discussion :

[Blue Sky]

Bonjour,

Est-il possible de déplacer le focus (en VBA) dans un formulaire ou un sous-formulaire qui s’affiche en mode Feuille de données ?
J'utilise Access 2000.

[sim911]

Salut Blue Sky,

J'ai faite une petite recherche sur google... je pense qu'avec ces codes, tu pourrais t'en sortir :

Code :

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

1
2
docmd.GoToRecord,,acnext
docmd.GoToRecord,,acprevious

Malheusement, je n'ai pas encore utilisé de sous-formulaires, alors j'ignore comment utiliser ces codes à l'aide de ta form mère.

J'espère que ces informations auront pu t'aider.

[Blue Sky]

Merci sim911

Malheureusement, ça ne fonctionnera pas.
Je ne veux pas changer d'enregistrement, je veux atteindre un autre contrôle dans le même enregistrement.

[francishop]

Bonsoir,

Quel est le problème? La base envoyée sur le précédent post correspond à ta demande. Il suffit de mettre les S/forms en mode feuille de données.
Pièce jointe 22825

Cordialement.

Ps : Un véritable Pitt-Bull-->Je lache pas.

[Blue Sky]

Bon, voici de nouveaux éléments suite à d'autres tests effectués sur mes formulaires :

Le code qui déplace le focus est placé dans un contrôle de liste modifiable et répond à un événement "sur absence dans liste".
Voici le début du code :

Code :

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

1
2
DoCmd.RunCommand acCmdUndo
Me.Nom.SetFocus

J'ai essayé le code dans un formulaire principal et cela ne fonctionne pas non plus.
Le code fonctionne quand la propriété "Affich par défaut" du formulaire est "Mode simple", mais pas lorsqu'elle est à "Feuille de données".

Pour l'utilisation que je prévoit en faire, j'ai besoin que le code fonctionne quand le formulaire est affiché en "Feuille de données".

(Pardon pour l'information incomplète avant)

[mnssylvain]

j'avais le meme souci et j'ai trouver une réponse ici

voilou

[Blue Sky]

Merci mnssylvain, mais ça ne fonctionne pas pour moi.
En fait, quand j'essaie de changer le focus, même dans un formulaire principal qui ne contient pas de sous-formulaire, ça ne fonctionne pas.

Le problème vient du fait que j'affiche le formulaire en "Feuille de données" et que le code répond à un événement "Sur absence dans liste" (contrôle Zone de liste modifiable).
Quand j'essaie dans un autre mode d'affichage, je n'ai pas d'erreur.
Quand j'essaie le code dans un autre sorte de contrôle (en réponse à un autre sorte d'événement), et avec un affichage "Feuille de données", je n'ai pas d'erreur non plus.

[mnssylvain]

et si tu te déplace dans tes enregistrements

Code :

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

1
2
3
    Forms![lformulaire principal]![sous formulaire].SetFocus
Forms![formulaire principal]![ sous formulaire]![date].SetFocus
DoCmd.GoToRecord , , acNewRec

je suis aussi en mode feuille de donées......

[Blue Sky]

Merci mnsSylvain, mais ça ne fonctionne toujours pas.

J'ai joint un petit fichier exemple.

Ce que je veux faire : Quand j'entre un organisme qui n'est pas dans la liste (exemple : "Z"), je veux que le focus se positionne dans le champ "Nom".

Merci si quelqu'un peut m'aider.

Blue Sky

[mnssylvain]

si je comprends bien dans ton formulaire tu veux que quand tu ajoutes un organisme le focus soit sur nom.....

si c'est bien ça:
1) la zone de liste LienIDOrganisme est sur "limiter à lste" donc tu ne peux pas ajouter un nouveau organisme.

2) est ce qu'il peut y avoir plusieurs noms pour le meme organisme?
dans ce cas tu crées un formulaire principal sur la table organisme et en sous formulaire tu mets les personnes appartenant à cet organisme. (le focus est alors déplaçable comme indiqué précédement)


sinon c'est l'inverse qu'il faut faire, mettre un champ idcontact dans la table organisme.....

3) j'ai peut etre pas tout bien compris....
dans ton fichier j'ai 2 tables (organisme et contact) et 1 sous formulaire, il ne manquerai pas le formulaire père ?


bon j'espère ne pas avoir été trop mauvais tiens moi au courant

[francishop]

Bonjour,

Semble correspondre à la demande:

Code :

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

1
2
3
4
5
6
7
Private Sub Organisme_NotInList(NewData As String, Response As Integer)
    Response = acDataErrContinue
    Me.Organisme = Me.Organisme.ItemData(0)
    Me.Nom.SetFocus
    'MsgBox "Veuillez choisir un organisme répertorié.", vbExclamation, _
    "On a la tête en l'air?"
End Sub

Cordialement.