Comment insérer les enregistrements de la table 1 dans la table 2

bonjour a tous et toute

j'ai deux table presque similaire a l'exeption de quelque champs

j'aimerais que lorsque des informations son entrée dans la table 1

les champs identiques de la table 2 soit mis a jour

merci de votre aide

Salut
Si tes tables sont stockées sur un SGBD (Oracle, MySQL, SQL Server, ...) regargent du côté des triggers ca t'aidera pas mal.
Sinon si tu es sous Access, la seule solution est de faire une requête qui s'exécutent sur l'évènement AfterUpdate de ton formulaire qui enregistre les infos dans table1

Code:

---

1 2 3

Private Sub Form_AfterUpdate() currentdb.Execute "UPDATE TAble2 SET Champ1=" & Me.Champ1 & ", Champ2=" & Me.Champ2 & " WHERE Identifiant=" & Me.Identifiant end sub

---

Bon courage

Pourquoi ne pas mettre tous les champs dans une même table ?

sinon créer une requête Mise à jour pour les enregistrements déjà existants suivi d'une requête Ajout pour les nouveaux enregistrements

merci beaucoup pour votre aide:D

bonjour a tous et toute

j'ai deux table presque similaire a l'exeption de quelque champs

j'aimerais que lorsque des informations son entrée dans la table 1

les champs identiques de la table 2 soit mis a jour

sonic ma donner ce code a entré dans l'évènement AfterUpdate de mon formulaire 1

Code:

---

1 2 3 4

Private Sub Form_AfterUpdate() currentdb.Execute "UPDATE TAble2 SET Champ1=" & Me.Champ1 & ", Champ2=" & Me.Champ2 & " WHERE Identifiant=" & Me.Identifiant end sub

---

mais je reçois ce message

erreur d'execution 3061

trop peux de paramètre. 1 attendu.

quelqu'un a t'il une idée

merci

Salut
Vérifies que les noms de tes champs et le nom de ta table.
Ensuite si tes champs sont des champs textes ils faut mettre des ''
Exemple, champ1 est un champ texte et champ2 de type numérique ca donne :

Code:

---

update table2 set Champ1='" & Me.Champ1 & "', champ2=" & Me.Champ2 WHERE Identifiant=" & Me.Identifiant

---

sinon tu peux utiliser une querydef

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Form_AfterUpdate() dim qdef as DAO.QueryDef set qdef=currentdb.createquerydef("","UPDATE TAble2 SET Champ1=[0], Champ2=[1] WHERE Identifiant=[2]") qdef.Parameters("0")=Me.Champ1 qdef.Parameters("1")=Me.Champ2 qdef.Parameters("2")=Me.Identifiant qdef.Execute qdef.close set qdef = nothing end sub

---