{Access} lien entre 2 tables

Bonjour iroko45,

Voici la syntaxe requise pour accéder au bon enregistrement dans le 2 ème formulaire.
Attention ! l'appel de recherche sur le nom des étudiants est déconseillé. Des homonymes sont toujours possibles.

Dim DocName As String
Dim LinkCriteriA As String

DocName = "<Nom du formulaire à ouvrir"
LinkCriteriA = "[RéfTable_1]=" & Me![RéfTable_2]

DoCmd.OpenForm DocName, , , LinkCriteriA

Cordialement
--
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.

Bonjour JJ,
Merci pour ta réponse. En clickant sur Creer un code evenementiel, Voici ce que j'ai saisir

Private Sub quesetu_2_Click()
Dim DocName As String
Dim LinkCriteriA As String

DocName = "quesetu 2"
LinkCriteriA = "[Reffiche]=" & Me![RéfTable_2]

DoCmd.OpenForm DocName, , , LinkCriteriA

End Sub

Je constate que je n'arrive plus a ouvrir le second formulaire avec le bouton qui me permettait d'y accéder. Avant la syntaxe, j'avais la macro incorporée ouvrirformulaire.
Merci de m'aider

Re

J'ai la table QUESETU123 qui a pour formulaire quesetu1, la table QUESETU4 avec formulaire quesetu2. QUESETU4 est relie a QESETU123 par le champ reffiche.
Voici la syntaxe

Private Sub quesetu_2_Click()
Dim DocName As String
Dim LinkCriteriA As String

DocName = "quesetu 2"
LinkCriteriA = "[Reffiche]=" & Me![QUESETU4]

DoCmd.OpenForm DocName, , , LinkCriteriA

End Sub
Je n'arrive pas encore a acceder au formulaire 2.
Merci de m'aider

Re, Re,

a) Si j'ai bien compris, j'en conclus que :
LinkCriteriA = "[Reffiche]=" & Me![Reffiche]
A tester donc ...

b) Pour des raisons d'organisation (tri) et de standardisation, je suggère de renommer les fichiers comme suit :

T_Quesetu_123
F_Quesetu_123

T_Quesetu_4
F_Quesetu_4

Nota: Pour des raisons techniques, les noms discontinus sont à proscrire pour les tables/Formularies. C.à.d. qu'aucun espace n'est souhaitable dans la suite de caractères.

A+

Merci jj pour tout.

voici avec la nouvelle syntaxe
Private Sub quesetu_2_Click()
Dim DocName As String
Dim LinkCriteriA As String

DocName = "quesetu 2"
LinkCriteriA = "[Reffiche] =" & Me![Reffiche]

DoCmd.OpenForm DocName, , , LinkCriteriA

End Sub

Je n'ai pas encore reussi.
Merci de m'aider

Ce sera difficile de pouvoir envoyer le fichier. Il dépasse largement les 8 MO.
Si tu as d'autres recommandations ou conseils, je serais heureux de les recevoir. Je vais me débrouiller pour bricoler quelque chose.
Je te remercie pour tout.
A +