Discussion :

[pounette]

Bonjour,

voila mon formulaire est constitué d'un menu déroulant et de trois sous-formulaires.

J'ai 4 propositions dans mon menu déroulant. Tout change comme je veux ou presque...

Sauf pour le premier enregistrement ni rechange pas :
je peux visualiser le 1, 2, 3, 4 revenir sur le 2, 3, 4 pas revenir sur le 1. ça en s'actualise pas.

Je suis obliger de cliquer sur actualiser dans le ruban. J'ai penser mettre un bouton "actualiser" dans mon formulaire mais marche pas non plus (enfin l'actualisation fonctionne, c'est juste que ça ne fait pas ce que je veux).

Comment puis-je regler mon problème ?

Merci de vos réponses

Pounette

[zoom61]

Salut,

Il faut ajouter un Me.Refresh sur ton menu déroulant après mise à jour...

@+.

[pounette]

Comme ça :

Code :

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

1
2
3
4
 
Private Sub Modifiable27_afterUpdate(Cancel As Integer)
Me.Refresh
End Sub

Parce que marche pas ton truc ... :s

[zoom61]

Code :

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

1
2
3
4
Private Sub Modifiable27_afterUpdate(Cancel As Integer)
Me.Refresh
Me.Requery
End Sub

[marsouin_89]

Bonsoir,

Il y a aussi :

Code :

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

Me.MaListeDeroulante.Requery

Cordialement

Christophe

[pounette]

Alors zoom 61, ton code

Code :

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

1
2
3
4
Private Sub Modifiable27_afterUpdate(Cancel As Integer)
Me.Refresh
Me.Requery
End Sub

Ben ça fait que plus rien ne change dans mon formulaire...

et Christophe,

Le tiens ne marche pas :s

Je suis désespérée...

[zoom61]

Alors si je résume, tu veux que dans ton formulaire sélectionner une donnée d'une liste déroulante, ensuite que cela actualise les 3 sous-formulaires !
Ai-je bien compris ?

[pounette]

Tu as plus ou moins bien compris.

L'actualisation se fait déjà.

Mais lorsque je veux revenir sur mon premier enregistrement de ma liste déroulante, ça reste sur le précédent. Sinon je peux changer comme je veux. C'est seulmement pour revenir au premier que ça ne s'actualise pas

[zoom61]

Tu es sur "1", tu sélectionnes "2" cela fonctionne, tu resélectionnes "1" et là cela ne fonctionne pas !

[pounette]

c'est ça Zoom61

[zoom61]

Alors as-tu essayé :

Code :

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

1
2
3
4
5
6
7
Private Sub Modifiable27_afterUpdate(Cancel As Integer)
Me.Sous_Formulaire1.requery
Me.Sous_Formulaire2.requery
Me.Sous_Formulaire3.requery
Me.Requery
Me.Refresh
End Sub

[pounette]

Je viens de le faire ... toujours pareil :'(

[zoom61]

C'est étrange, car je viens de faire un test, et cela fonctionne correctement avec ACCESS2007 et juste ces lignes sur l'AfterUpdate de la liste déroulante :

Code :

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

1
2
3
4
Private Sub Modifiable27_afterUpdate(Cancel As Integer)
Me.Requery
Me.Refresh
End Sub

Mes 3 sous formulaires se mettre à jour...

[pounette]

Oui c'est étrange ...je désespère vrmt.

Penses-tu que ça peut-être une histoire de relations ? que je n'ai pas faites.

Je les ai faites mais jsute en créant mes sous formulaires. Dans le menu relation à proprement parler je n'ai rien ...

[zoom61]

Peux-tu m'envoyer ton fichier ?

[pounette]

Malheuresement non, je peux t'envoyer de multiple screen mais les informations contenues dans les tables sont "confidentielles"

Dit moi tous les screens que tu veux

[zoom61]

Non ce n'est pas les écrans qu'il me fallait !

Met ce code sur l'AfterUpdate :

Code :

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

1
2
3
4
5
6
7
Private Sub Modifiable27_afterUpdate(Cancel As Integer)
Msgbox "Msg1"
Me.Requery
Msgbox "Msg2"
Me.Refresh
Msgbox "Msg3"
End Sub

Et quand tu as fait un changement dans ta liste, as-tu les trois messages ?

[pounette]

Aucun message

[pounette]

Ah mais attends, j'ai une boulette là dans mon truc ... attends bouge pas

[pounette]

alors en faite c'est modifiable21 sauf que ... ça marche toujours pas. Du coup j'ai reessayer tous les codes et ça me donne le msg suivant :
"la déclaration de la procédure ne correspond pas à la description de l'événement ou de la procédure de même nom."

Numéro d'erreur : 2950

Code :

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

1
2
3
4
5
6
7
8
9
Option Compare Database
 
Private Sub Modifiable21_AfterUpdate(Cancel As Integer)
 
 
Me.Requery
Me.Refresh
 
End Sub