OVH Cloud OVH Cloud

FORMULAIRE MET A JOUR TABLE

2 réponses
Avatar
ATZEL.CH
Bonjour,
J'essaie de mettre à jour le champ d'une table à partir du champ
calculé d'un formulaire.
T_Rectangle : ma table
F_Rectangle : mon formulaire
S : champ calculé de F_Rectangle
S : champ à remplir dans T_Rectangle

J'ai essaillé plusieurs codes mais S ne bouge pas sur la table

'Private Sub Texte2_AfterUpdate()
'Me![S]=DLookup([S]","T_Rectangle","[N°]=& Me!N°)
'End Sub

Private Sub S_AfterUpdate()
Update T_Rectangle
Set S.F_Rectangle = Forms!F_Rectangle!S
WHERE N°.T_Rectangle = Forms!F_Recangle!N°
End Sub
J'ai mis ces codes dans une procédure évènementielle de propriété du
champ S du formulaire.
Merci pour votre aide
Christian ATZEL

2 réponses

Avatar
Mrs Pomemboo
Salut,

"Christan ATZEL" a écrit dans le message de news:

Bonjour,
J'essaie de mettre à jour le champ d'une table à partir du champ
calculé d'un formulaire.
T_Rectangle : ma table
F_Rectangle : mon formulaire
S : champ calculé de F_Rectangle
S : champ à remplir dans T_Rectangle

J'ai essaillé plusieurs codes mais S ne bouge pas sur la table

'Private Sub Texte2_AfterUpdate()
'Me![S]=DLookup([S]","T_Rectangle","[N°]=& Me!N°)
'End Sub


J'irais avec cette première tentative, dans le même événement mais avec la
syntaxe suivante, considérant que ton contrôle calculé porte le nom Texte2
c'est cette valeur que tu dois affecter à ton champ S.
Me![S] = Me.Texte2.Value


Private Sub S_AfterUpdate()
Update T_Rectangle
Set S.F_Rectangle = Forms!F_Rectangle!S
WHERE N°.T_Rectangle = Forms!F_Recangle!N°
End Sub
J'ai mis ces codes dans une procédure évènementielle de propriété du
champ S du formulaire.
Merci pour votre aide
Christian ATZEL


Avatar
hm15
Bonjour Christian,

la recopie d'un champ calculé est à la mode en ce moment (et va faire rugir
les puristes ;-)

Le contrôle calculé dans ton formulaire ne doit pas porter le même nom que
le champ dans lequel tu veux placer le résultat dans la table.
Autrement dit, dans F_Rectangle, nomme le contrôle calculé "S_calcul" par
exemple.
Pour copier le résultat de ce contrôle dans le champ "S" de T_Rectangle (pas
évident les noms que tu choisis !) :
sur la propriété "Avant MàJ" de ton formulaire "F_Rectangle", ajoute la
ligne
Me![S] = [S_calcul]
entre Private Sub et End Sub
Cordialement,
Annette
---------------------------------------------------------------------------
www.horizon-micro.com



"Christan ATZEL" a écrit dans le message de news:

Bonjour,
J'essaie de mettre à jour le champ d'une table à partir du champ
calculé d'un formulaire.
T_Rectangle : ma table
F_Rectangle : mon formulaire
S : champ calculé de F_Rectangle
S : champ à remplir dans T_Rectangle

J'ai essaillé plusieurs codes mais S ne bouge pas sur la table

'Private Sub Texte2_AfterUpdate()
'Me![S]=DLookup([S]","T_Rectangle","[N°]=& Me!N°)
'End Sub

Private Sub S_AfterUpdate()
Update T_Rectangle
Set S.F_Rectangle = Forms!F_Rectangle!S
WHERE N°.T_Rectangle = Forms!F_Recangle!N°
End Sub
J'ai mis ces codes dans une procédure évènementielle de propriété du
champ S du formulaire.
Merci pour votre aide
Christian ATZEL