Discussion :

[yieiii]

Dans la suite de mon projet, je viens de créer dans le formulaire "BON" un bouton à côté de la zone de texte N° Client ouvrant un autre formulaire "CLIENT" permettant de rechercher celui-ci. En double cliquant sur la ligne du client, la valeur du N°Client est copiée dans la cellule N° Client du formulaire "BON", à ce moment j'espérait que la zone de liste des bons de dépôts soit filtrée, hors rien ne se passe, il faut que je retape dans la cellule la valeur.

Pourquoiiiiii ?

merci

[User]

Salut,

L'évènement AfterUpdate de Lst_No_Client ne se déclenche pas automatiquement quand tu modifie ce champ avec VBA, donc dans ton formulaire CLIENT sur l'évènement double-clic de ta zone de liste ListeClient il faut ajouter le code que je t'avais donné :

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
Private Sub ListeClient_DblClick(Cancel As Integer)
 
On Error GoTo Err_Commande6_Click
 
Forms![BON]![Lst_No_Client] = ListeClient.Value
Forms![BON]!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 [Bons de dépôt].[#Client]= " & Nz(Forms![BON]![Lst_No_Client].Value, 0) & " ORDER BY [Bons de dépôt].[N° Bon de dépôt];"
 
DoCmd.Close    
 
Exit_Commande6_Click:
    Exit Sub
 
Err_Commande6_Click:
    MsgBox Err.Description
    Resume Exit_Commande6_Click
 
End Sub

A+

[yieiii]

et bien et fois de plus, merci, ça fonctionne !

Afin que je comprenne, peux-tu me dire la différence entre

"Ton code"

Code :

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

Forms![BON]!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 [Bons de dépôt].[#Client]= " & Nz(Forms![BON]![Lst_No_Client].Value, 0) & " ORDER BY [Bons de dépôt].[N° Bon de dépôt];"

et celui-ci :

Code :

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

Me.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]= Forms![BON]![Lst_No_Client]"

Tous deux semblent faire la même chose mais peut-être avec une nuance ...

c'est bien entendu cette partie que je comprends - bien

Code :

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

" & Nz(Forms![BON]![Lst_No_Client].Value, 0) & " ORDER BY [Bons de dépôt].[N° Bon de dépôt];"

merci encore.

[User]

Salut,

Ces 2 techniques sont sensiblement équivalente, cependant avec cette méthode :

Code :

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

Me.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]= Forms![BON]![Lst_No_Client]"

Tu peux définir manuellement (sans code VBA) une fois pour toute la propriété RowSource de ta liste Liste_Bon.

Ensuite tu n'as qu'à actualiser ta liste par 1:

Code :

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

Me.Liste_Bon.requery

Pour mettre à jour ta liste...

A+

[yieiii]

merci pour l'info et le reste