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.