Discussion :

[Dutchou]

Bonjour à tous,

Cela fais quelques semaines que je me penche sur une question sans trouver de réponses ou de pistes.
Est-il possible de lier l'enregistrement courant d'un formulaire avec un des enregistrements d'un sous formulaire qui affiche tous les enregistrements d'une table?

Explication:
J'ai un formulaire qui affiche le détail des champs d'une table (RECEPTION pour l'exemple), en dessous j'ai un sous formulaire qui affiche la totalité des enregistrement de cet table RECEPTION .
J'aimerais, quand je clic sur un enregistrement du sous formulaire (exemple: le n°5), que ce soit cet enregistrement n°5 qui soit affiché dans le détail présent au dessus. L'enregistrement courant du formulaire principal doit donc correspondre à l'enregistrement sélectionné dans le sous formulaire afin de ne pas risquer de modifier un autre enregistrement.



Merci d'avance pour vos réponses attendues. Cordialement, Dutchou.

[nico84]

Bonsoir,

Depuis le sous-formulaire, il est possible d'appeler me.parent.xxx pour intervenir sur le formulaire principal. Toutefois la logique d'access est plutot inverse puisqu'une sélection dans le formulaire peut filtrer automatiquement le sous-formulaire !

[Dutchou]

Bonjour nico84, merci d'avoir répondu

Pour expliquer plus clairement, j'aimerais le même résultat qu'un "formulaire double affichage" [AC-2007+] mais avec la contrainte du 2003.

[nico84]

Désolé je n'utilise pas ce type d'ergonomie, je trouve plus pratique de modifier directement dans la table à laquelle j'ajoute un module de filtre et des controles. Mais il est vrai que ça demande pas mal de code...

[Dutchou]

Avec du courage, une feuille, un stylo et une prière envers le dieu de l'algorithme je suis arrivé un résultat plutôt satisfaisant.

Système utilisé via un bouton pour facilité le tout.

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
Public Sub bt_search_Click()
On Error GoTo err
 
    Dim cle As String
    Dim search As String
 
    'Récuperation du code de réception de l'enregistrement affiché
    cle = Me.code_reception
    'Récupération du code de récéption de l'enregistrement sélectionné dans le sous formulaire
    search = Forms!Frm_Reception!sf_reception!code_reception.Value
 
    'Positionnement sur le 1er enregistrement
    DoCmd.GoToRecord , , acFirst
 
    'Boucle de test
    Do While Not IsNull(cle)
        cle = Me.code_reception
        If (search <> cle) Then
            'Enregistrement suivant
            DoCmd.GoToRecord , , acNext
        Else
            'Enregistrement trouvé, fin.
            Exit Sub
        End If
    Loop
    'Erreur survenue dans la boucle par rapport à la comparaison des 2 valeurs
    MsgBox ("Erreur")
 
err:
    Exit Sub
End Sub

[nico84]

Il me semble que l'instruction findfirst sert à ça :

Code :

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

Recordset.FindFirst "code_reception='" & cle & "'"