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
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
Bon courage
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
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
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
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 :
sinon tu peux utiliser une querydef
Code : Sélectionner tout - Visualiser dans une fenêtre à part update table2 set Champ1='" & Me.Champ1 & "', champ2=" & Me.Champ2 WHERE Identifiant=" & Me.Identifiant
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager