{Access} lien entre 2 tables Fermé

Question

Bonjour, Le moteur de base de données Access ne peut pas trouver d'enregistrement dans la table << QUESTION1>> avec le champ << QUESTION2.fiche>> correspondant a la clé. Voici donc le message auquel je suis confronté. Plusieurs étudiants ont répondu a un questionnaire. A cause du grand nombre de questions, j'ai divisé le questionnaire en 2 tables liés par le champ fiche dans une relation de un a un. Pour saisir les données, j'ai créé 2 formulaires (un pour chaque table). Après le formulaire 1, je passe au 2. Alors, quand il s'agit d'enregistrer les données, le message ci-dessus apparait. Merci de bien vouloir m'aider

Jean_Jacques · Answer

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.

iroko45 · Answer

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

iroko45 · Answer

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

Jean_Jacques · Answer

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+

iroko45 · Answer

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

iroko45 · Answer

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 +

{Access} lien entre 2 tables

6 réponses

Discussions similaires