Discussion :

[bestall666]

Bonjour

J'ai un souci avec mes listes déroulantes indépendantes qui ne se mettent pas à jour lors de l'ajout ou suppression d'enregistrement malgré des tests de

Code :

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

.requery

sur l'évèvement "form current"

A votre avis dans quel évenement placer les

Code :

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

requery

pour que mes 2 listes se mettent à jour après ajout ou suppresion d'enregistrement ??

Merci d'avance pour l'aide et le temps consacré aux réponses !!

Bestall666

[Shoryu]

c'est l'ajout ou la suppression qui va déclencher l'evenement
donc dans l'evenement Click des boutons qui s'occupent de l'ajout et de la suppression, essayes de mettre par exemple

Code :

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

1
2
3
 
liste1.requery
liste2.requery

[bestall666]

c'est l'ajout ou la suppression qui va déclencher l'evenement
donc dans l'evenement Click des boutons qui s'occupent de l'ajout et de la suppression, essayes de mettre par exemple

Code :

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

1
2
3
 
liste1.requery
liste2.requery

Merci d'avoir pris le temps de répondre mais cela ne marche pas après test avec le bouton d'ajout !!!

[bestall666]

Cela ne marche pas non plus sur l'évenement "après insertion"

[Gary_Stoupy]

bonjour,

moi perso, je réindique à ma liste les RowSource, je fais un requery et après je fais un refresh...

Code :

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

1
2
3
Me.liste10.RowSource = SOURCE_LISTE_EDG
Me.liste10.Requery
Me.Refresh

Ca fonctionne chez moi donc tentes ça...

[bestall666]

bonjour,

moi perso, je réindique à ma liste les RowSource, je fais un requery et après je fais un refresh...

Code :

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

1
2
3
Me.liste10.RowSource = SOURCE_LISTE_EDG
Me.liste10.Requery
Me.Refresh

Ca fonctionne chez moi donc tentes ça...

Merci mais sur quel évènement ?

et

SOURCE_LISTE_EDG

ca veut dire quoi?

[Gary_Stoupy]

alors SOURCE_LISTE_EDG c'est simplement le nom de ma requête source de type String... tu l'appelle comme tu veux.
Quant tu remplis tes listes, tu dois bien faire un SELECT sur une de tes tables quelque part... ca donne un truc du style

Code :

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

1
2
3
4
5
Dim SQL as String
SQL = "SELECT .... FROM .... WHERE ..."
Me.liste10.RowSource = SQL
Me.liste10.Requery
Me.Refresh

Et ca, tu le mets à la fin de ton évènement clic sur le bouton par exemple, ca devrait fonctionner

[bestall666]

Re gary

Merci encore mais cela fonctionne pas

On parle bien des listes de recherches dans l'entete du formulaire ?

Sinon les autres fonctionnent bien

Petites précisions complémentaires :
1) le bouton ajout crée un nouvel enregistremennt et après on saisi les données

2) je voudrais que la maj des listes se fasse après ajout ou supressionn d'enregistrement

3) mes listes sont basés sur les tables films pour la premirere et genre pour la seconde !

Voici quand même le code du bouton ajout

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
 
Private Sub cmdAjout_Click()
On Error GoTo Err_cmdAjout_Click
    'Crée un nouveau film
 
    'On supprime l'éventuel filtre
    Me.Filter = ""
 
    DoCmd.GoToRecord , , acNewRec
 
    'on efface l'affiche du film
    imgAffiche.Picture = ""
 
    [Titre Film].SetFocus
 
    cboRechTitre.RowSource = "SELECT [FILM].[Numéro Film], [FILM].[Titre Film] FROM FILM ORDER BY [FILM].[Titre Film]; "
    cboRechTitre.Requery
    cboRechGenre.Requery
    Me.Refresh
 
    Exit Sub
Err_cmdAjout_Click:
    MsgBox Err.Description
    Exit Sub
 
End Sub

[Gary_Stoupy]

dans ton formulaire en mode création, tu peux lui indiquer directement que la source de ta zone de liste modifiable est telle ou telle requete (requete que tu auras au préalable créée)...

[bestall666]

Re

Mes listes sont basées sour les tables !!!