Discussion :

[jimy]

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

[Sonic]

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 :

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

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

[helas]

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

[jimy]

merci beaucoup pour votre aide

[jimy]

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 :

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

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

[Sonic]

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 :

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

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

sinon tu peux utiliser une querydef

Code :

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

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