Discussion :

[yieiii]

Bonjour, je cherche à actualiser ma zone de liste sur le formulaire "BON" en haut à droite après avoir créé un nouveau bon par le formulaire "AJOUT_BON" s'ouvrant en cliquant sur le bouton en dessous de la zone de liste dans le formulaire "BON".

Pour le moment, à la sortie du formulaire "AJOUT_BON" je demande :

Code :

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

Forms!BON!la zone de liste.requery

mais rien n'y fait !


J'ai tenté d'utiliser la même ligne de code qui réactualise la zone de liste quand un client est recherché, mais cela ne fonctionne pas non plus.

merci.

[tarnx]

J'ai changé l’évènement dans lequel ta liste se met à jour et ça à l'air de fonctionner

Dans le formulaire "BON" :

Code :

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

1
2
3
4
Private Sub Form_Activate()
    Liste_bon.RowSource = "Select [Bons de dépôt].[N° Bon de dépôt], [Bons de dépôt].Date, [Bons de dépôt].[#Client] FROM [Bons de dépôt] WHERE [#Client]=   [Lst_No_Client]"
    Liste_bon.Requery
End Sub

[yieiii]

Merci, ça fonctionne lorsque je sélectionne manuellement le numéro client dans la zone de texte en haut à gauche, mais lorsque je clique sur rechercher client et j'en selectionne un dans la liste en double cliquant dessus, le formulaire BON se ferme et rien ne se passe !

[User]

Salut,

Si tu souhaites actualiser ta liste de bons après avoir ajouté 1 bon dans le formulaire "Ajout_Bon", il faut actualiser ce formulaire avant d'actualiser la liste de bons :

Code du bouton Exit du formulaire "Ajout_Bon" :

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
27
28
29
30
31
Private Sub Exit_Click()
On Error GoTo Err_Exit_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
'Confirmation après EDIT
 
    If MsgBox("Voulez-vous confirmer la modification", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
    Me.Undo
    Cancel = True
  End If
 
'Ouvre et ferme le formulaire
 
    stDocName = "BON"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
    Me.Requery
    Forms!BON!Liste_bon.Requery 'Rafraichit la zone de liste
 
    DoCmd.Close
 
Exit_Exit_Click:
    Exit Sub
 
Err_Exit_Click:
    MsgBox Err.Description
    Resume Exit_Exit_Click
 
End Sub

A+

[yieiii]

encore une chose que je ne savais pas, cette info va me permettre de résoudre quelques problèmes.

merci !

Grâce à toi ce que je souhaitais faire prend forme.