Discussion :

[energies]

J'ai fait un formulaire dans lequel j'ai une liste qui m'affiche une requete : les sites rattachés à un hopital.

Quand je change d'hopital, je voudrais qu il m'actualise cette liste. Actuellement j'ai toujours la meme liste : celle qui est correspond au premier enregistrement.

Merci pour votre aide.

[argyronet]

Bonjour,

En fait, il y a plusieurs situation...
Comment est développé ton formulaire ?
En pratique, tu dois "binder" ta liste en fonction du site choisi et ce sur l'événement AfterUpdate().

Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub NomDuSite_AfterUpdate()
Dim strNomDuSite As String
Dim strFiltre As String
Dim strRowSource As String
 
  strNomDuSite = Me!NomDuSite
  strFiltre = "[Site]=" & Chr(34) & strFiltre & Chr(34)
  strRowSource = "SELECT IDHopital, NomHopital WHERE " & strFiltre & ";"
  Me!ListeHopitaux.RowSource = strRowSource
End Sub

Argy

[energies]

Mon formulaire est composé de l'affichage des coordonnées de l'hopital qui sont dans tblhopital,
puis 4 sous formulaires
et enfin la liste des sites qui ont été affecté à l'hopital (jointure réalisé sur un autre formulaire : déclaration du site et spécification de l'hopital attaché au site)

J'ai un formulaire (autre) dans lequel en modifiant mon hopital j'ai la liste des sites liés à cet hopital : mais si je l inclus dans mon formulaire :
1-il me demande la valeur que je souhaite en ouvrant le formulaire
2-il ne met pas à jour la liste lorsque je passe sur l'enregistrement suivant.

[argyronet]

Si tu as 2 forms distincts il faut que tu les coordonnent.
A chaque changement d'enregistrement tu appelles l'autre par :
DoCmd.OpenForm même s'il est déjà ouvert.

Tu n'es pas très clair dans tes explications.

Argy

[energies]

Désolé pour le manque de clarté...

Pour résumer mon problème :

J'ai deux tables :
tblsite (IdSite, Nomsite, Nomhopital,...)
tblhopital (Numhopital, Nomhopital,...)

Un premier formulaire SITE pour saisir les renseignements et lui attribuer l'hopital
Un deuxieme formulaire Hopital pour saisir les infos concernant l'hopital, et une liste qui affiche les sites liés à cet hopital.

Ma requete pour afficher la liste des sites :

Code :

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

1
2
3
SELECT tblsite.Nomsite, tblsite.Nomhopital
FROM tblsite
WHERE (((tblsite.Nomhopital)=Formulaires!hopital!Numhopital));

Quand j'ouvre le formulaire "hopital" pour le premier enregistrement c'est bon, si je passe à l'enregistrement suivant je garde la même liste.
Il n'y a pas de code actuellement.



En espérant avoir été plus clair.

[ft035580]

Salut,

Il me semble que tu devrais réactualiser ta liste par "Requery".

[energies]

OK je veux bien faire un "requery",

Peut on m'aider pour le code?

Private Sub ?????????????
Me.Listesite.Requery
End Sub

[ft035580]

Peut-être

Code :

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

Form_Current()

[argyronet]

tblsite devrait contenir Numhopital et non Nomhopital !!!
Deux hopitaux peuvent porter le même nom !!!
A quoi sert ta clé, sinon ?

Lorsque tu passes à l'enregistrement suivant par les boutons Access, il est normal que cela ne se rafraîchissent pas puisque le formulaire A n'est pas synchrone avec le B.

2 solutions :
1/ Enlève les boutons de déplacement et créé les tiens avec une procédure de rafraîchissement à chaque acNext ou acPrevious...

2/ Utilise le DoCmd.OpenForm pour le réouvrir avec le paramètre OpenArgs

Argy

[energies]

Merci beaucoup c'est tres bien

[matthieu83]

Sinon je crois que

Me.refresh
Me.list.requery


fonctionne aussi (remplacer list par ce que tu veux)