Discussion :

[charlieda]

Bonjour à toutes et à tous,

J'ai crée un formulaire pour rechercher des clients à partir d'une liste et je voudrais que le sous-formulaire soit actualisé suite au changement fait dans la liste de l'en tête du formulaire.

J'ai beau chercher sur le net mais c'est incompréhensible pour mes très faibles capacités.

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
Option Compare Database
Option Explicit
 
Private Sub cboSelClient_Change()
    ' variables objet
    Dim rs As DAO.Recordset
    ' variables simples
    Dim lngCodeClient As Long
    ' init
    Set rs = Me.RecordsetClone
 
    ' lecture
    lngCodeClient = Me.cboSelClient
 
    ' recherche
    rs.FindFirst "[Code client]=" & lngCodeClient
    ' synchro
    If Not rs.NoMatch Then
        Me.Bookmark = rs.Bookmark
    End If
End Sub

J'ai trouvé ceci mais j'ai beau changer ce qui me semble pas convenir et ça fonctionne pas.

Merci d'avance pour votre aide.

[EricDgn]

A mettre dans le code du formulaire:

Code :

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

1
2
3
4
Private Sub Modifiable0_AfterUpdate()
   Me.Clients.Form.Filter = "Code_Clients = '" & Me.Modifiable0 & "'"
   Me.Clients.Form.FilterOn = True
End Sub

Bonne continuation.

[charlieda]

Bonjour,

Un grand merci pour ta réponse.

Effectivement, avec de la logique, c'est tout de suite plus clair

En fait, avec le 2013, il y a une fonction "automatique" quand on crée une zone liste déroulante qui propose la recherche.

Bonne journée.

Merciii