Discussion :

[Jos1968]

Bonjour,

Je cherche à alimenter une table (versus un formulaire) avec les informations d'une autre table...

Voici j'ai un formulaire qui me sert à faire de la saisie d'anomalie (F-Anomalies) relié à une table (T-Anomalies), voilà le hic...

J'ai une table lié (T-LIÉ-Globale) avec une vue dans une autre BD-Access, voici ce que j'essais de faire, à partir de mon formulaires anomalie c'est un « pull » de l'information.

J'ai donc créé un champ où j'entre le ID table lié (T-LIÉ-Globale), un bouton qui ouvre un formulaire qui contient les principaux éléments à tirer vers mon formulaire « F-Anomalie » de style pop-up (F-LIÉ-Globale) ça me permet de valider l'information. Dans ce formulaire « F-LIÉ-Globale », j'ai un bouton de synchro, qui devrait compléter les champs de mon formulaire « F-Anomalies ».

Mon problème est lorsque je synchronise, il fait la mise à jour du mauvais élément.

Exemple :
Dans ma T-LIÉ-Globale, j'ai les éléments 1, 2 et 3
Dans ma T-Anomalies, j'ai les éléments a, b et c

Je désire ajouter un nouvelle élément « d » donc, à partir de mon formulaire F-Anomalies, je saisie l'élément « 3 » dans le champ qui me permet de faire un « Pull » de la table T-LIÉ-Globale et je clique sur ouvrir.

J'ai le formulaire F-LIÉ-Globale avec les éléments « 3 » qui s’affiche, je valide et lorsque je veux synchroniser (ie : amener les infos de la table T-LIÉ-Globale « 3 » dans la table T-Anomalies « d », ça ne fonctionne pas, ce sont les informations de l'élément « a » qui sont mise à jour ou un nouveau élément est créé « e »...

Voici me code :
Private Sub Synchronisation_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("T-Anomalies")
rs.Edit
rs![ID_T-Anomalies] = Me.[ID_T-LIÉ-Globale]
rs![Titre_T-Anomalies] = Me.[Titre_T-LIÉ-Globale]
rs.Update
End Sub

[Robert1957]

Bonjour Jos1968,

Je crois que tu as un problème de compréhension. Le code que tu montres est pour modifier un enregistrement déjà existant:

Code :

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

rs.Edit

De plus tu ne choisis pas quel enregistrement tu veux modifier, donc par défaut tu te positionnes sur le premier enregistrement de la table. Pour ajouter un enregistrement c'est:

Code :

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

rs.AddNew

Lorsque tu es dans la fenêtre VBA en mode création tu peux te servir de en mettant le curseur sur le mot désiré, qui est l'aide d'Access et tu auras toutes les explications sur le fonctionnement d'un recordset. Tu as aussi de très bons exemples de ce qui est possible de faire.

Bonne chance

[Jos1968]

Merci pour la réponse rapide

mais la fonction « AddNew » ajoute un nouvel élément, moi ce que je veux faire c'est un pull vers mon formulaire en cours (F-Anomalie) afin que les champs se complètent à partir du formulaire (popup) « F-LIÉ-Globale »....

c'est difficile a expliqué...

[Robert1957]

Bonjour Jos1968,

Pour ce faire il faut que tu sélectionnes le bon enregistrement. Le code pour l'ouverture de l'enregistrement devrait ressembler à ceci:

Code :

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

1
2
3
4
5
Dim rs As Recordset
Dim strSQL as String
strSQL = "SELECT T-Anomalies.ID_T-Anomalies, T-Anomalies.Titre_T-Anomalies FROM T-Anomalies WHERE T-Anomalies.LeChampQuiFaitLeLien=LeCritère;"
Set rs = CurrentDb.OpenRecordset(strSQL)
'Le reste de ton code

Ainsi tu modifierais l'enregistrement désiré.

Bonne chance