Discussion :

[FFF2008]

Bonsoir,

J'ai créer 2 formulaires (avec leurs propre Sousformulaires) et je voudrais les lier (même ID ).
Comment faire ?
Merci

[timoth]

Bonjour,

Dans l'évènement On_Current de tes formulaires, il faut que tu ailles dire à l'autre de se caler sur le même enregistrement. Pour ça, j'utilise le code suivant:
Imaginons Formulaire_A et Formulaire_B à lier. Sur l'évènement On_Current de Formulaire_A

Code :

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

1
2
3
4
5
6
Private Sub Form_Current()
Dim rec As DAO.Recordset
Set rec = Forms("Formulaire_B").Form.Recordset
On Error Resume Next
rec.FindFirst "ID=CInt('" & Me.ID & "')"
End Sub

A condition de bien avoir un champ ID dans ta table et une textbox ID dans ton formulaire_A.

Faire la même chose avec formulaire_B

[FFF2008]

Merci de ton aide !!