Discussion :

[squadracorsa]

Bonjour à tous,
J'ai un formulaire "Fiche contact" basé sur une table "contacts" avec comme clef principale un champ "ID contact".
Je souhaite mettre un bouton sur le formulaire "Fiche contact" qui va ouvrir un autre formulaire "Dossiers".
Ce formulaire dossier est basé sur une requête appelée "dossiers rq".
Sur ce formulaire, on y trouve 2 champs "ID contact" : l'un provenant de la base "contacts" et un autre "ID contact" provenant d'une table "contacts 2" qui est une table mirroir de la table "contact".

Quand on clique le bouton ouvrir formulaire, j'aimerais qu'il s'ouvre sur le bon enregistrement en allant chercher dans le formulaire dossier sur les 2 "ID contact" (en fonction de l'"ID contact" présent sur le formulaire "Fiche contact".

J'espère que ma question est claire et bien expliquée.
J'ai cherché différentes solutions mais aucune ne fonctionnent.

Merci à vous pour votre aide.

Bonne journée à toutes et tous.

[hyperion13]

Salut
Un truc comme ça

Code :

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

DoCmd.OpenForm "FormDistant" , , , "ID_contact = " & Me!ID_contact

[squadracorsa]

Merci de m'avoir répondu.
Non. Cela ne fonctionne pas. Mais il s'agit d'aller chercher le champ ID contact dans 2 tables (cf mon messages d'origine).
Ci-joint la carcasse de ma base pour que tu puisses mieux comprendre comment sont faits les formulaires

[EricDgn]

Bonjour,

Une solution est d'ouvrir le formulaire Dossiers depuis le formulaire Contact avec en argument l'identifiant de ce contact:

Code :

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

1
2
3
Private Sub btnDossiers_Click()
    DoCmd.OpenForm "Dossiers", , , , , , Me.ID_contact
End Sub

et utiliser cet argument à l'ouverture du formulaire Dossiers pour filtrer les dossiers affichés:

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Open(Cancel As Integer)
    If OpenArgs <> "" Then
        '--- appelé par fiche contact
        Me.Filter = "[Investisseur 1]=" & OpenArgs & " OR [Investisseur 2]=" & OpenArgs
        Me.FilterOn = True
    End If
End Sub

A noter qu'il faut vraiment éviter de dédoubler des tables.

Bonne continuation.