Discussion :

[C15nantes]

Bonjour à tous et à toutes,

J'ai un formulaire [0_FORMULAIRE_SUIVI_AG_ET_COTISATIONS_TOUS_ADHERENTS] qui contient 2 sous formulaires liés entre eux

J'ai une liste déroulante QuelAdherent pour faire une recherche dans le 1er sous formulaire F_Adherents_liste

J'ai essayé d'adapter la procédure événementielle créée lorsque j'ai mis la liste déroulante avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub QuelAdherent_AfterUpdate()
' Rechercher l'enregistrement 
 
 Dim rs As Object
    Me.FilterOn = False
    Set rs = Me.[F_Adherents_liste].Form.Recordset.Clone
    rs.FindFirst "[N°Adherent] = " & Str(Me![QuelAdherent]) & ""
    Me.F_Adherents_liste.Form.Bookmark = rs.Bookmark
 
    DoCmd.GoToControl "QuelAdherent"
    Forms![0_FORMULAIRE_SUIVI_AG_ET_COTISATIONS_TOUS_ADHERENTS]!QuelAdherent = ""
 
 
End Sub

Cela ne marche pas parfaitement, il faut que je m'y reprenne à plusieurs fois pour sélectionner l'adhérent qui m'intéresse.

Je m'y perds dans la syntaxe entre le formulaire et le sous formulaire.
Je ne suis sans doute pas loin, mais malgré plusieurs essais je tourne en rond.

Merci de votre aide.

A+
C15

[HDU71000]

Bonjour,

N°Adhérent est-il de type numérique ou alpha ?

Tu peux essayer comme ceci :

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
Private Sub QuelAdherent_AfterUpdate()
' Rechercher l'enregistrement 
 
Dim rs As dao.Recordset
Set rs = Me.[F_Adherents_liste].Form.Recordset
rs.FindFirst "[N°Adherent] = " & Str(Me![QuelAdherent]) ' à modifier si c'est du texte
If Not rs.NoMatch Then
        Me.F_Adherents_liste.Form.Bookmark = rs.Bookmark
else
        msgbox "Pas trouvé..."
End If
 
set rs = Nothing
Me.quelAdherent=""
End Sub

A+

[C15nantes]

Bonjour
N°adherent est numérique.
Par ailleurs ta procédure marche impeccable, merci.
A+
C15