Discussion :

[BOTIGUA]

Bonjour,

Est-il possible d'envoyer la valeur d'un champ calculé d'un formulaire vers un champ d'une table, et que cette valeur reste stockée dans la table comme un enregistrement ?

ex: Formulaire: champA, champB, champC (=à A + B).
Table: champX, champY (ce champ doir se remplir à partir du champC du formulaire.

merci d'avance pour votre aide....

[Demco]

Pour enregistrer dans une table une valeur contenue dans un formulaire intéresses-toi aux RecordSet et également aux requêtes de type UPDATE.
Tu trouveras beaucoup d'informations sur ces éléments dans la FAQ.

http://access.developpez.com/faq/?page=SQL#qryActions
http://access.developpez.com/faq/?rechercher=recordset

En espérant t'aider.

[BOTIGUA]

merci pour la réponse .

J'ai parcouru la FAQ mais n'ai pas trouvé ce que je cherche. Le titre se rapprochant le + étant "Comment récuperer la valeur d'une cellule dans un formulaire tabulaire ", mais j'ai pas tout compris !

Je suis toujours à la recherche de ma solution.....

[charleshbo]

voici un exemple qui peut peut-etre t'aider...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim db As Database
Dim rst As RecordSet
 
db = CurrentDb 'va chercher ta bd dans laquelle tu es
rst = db.openRecordSet("TABLEA", dbOpenDynaset) 'ouverture de ta BD
 
If rst.RecordCount > 0 Then 'Vérifie qu'il y a des enregistrements
   rst.FindFirst "cleprimaireBD = " & Me.textbox1.Text 'pour trouver un enregistrement en particulier.
   With rst
   .Edit 'on se place en mode edit (sa pourrait etre .AddNew pour ajouter)
   !champBD1 = Me.textbox2.text 'la valeur des champs du formulaire sont rentrés dans la table
   !champBD2 = Me.textbox3.text
   .Update 'ils sont updatés.
   End With
End If
 
rst.Close 'important de fermer le recordset

dans ton openRecordSet, au lieu du nom de la table, tu peux toujours mettre une requete... genre SELECT * FROM TABLEA

en esperant t'avoir un peu eclairci...

[charleshbo]

un ajout : et si tu veux parcourir l'ensemble des enregistrement, tu ajoutes un WHILE NOT rst.EOF (EOF = End of File) tant que le recordset n'est pas a la fin des enregistrements... et avant la fin de ton while tu place un rst.MOVENEXT...

etudie tout ça et expérimente un peu...

[BOTIGUA]

Merci Charleshbo.

Ca n'écrit pas, je dois me débrouiller comme un manche, c'est pas possible !?!

Le champ "C" de mon formulaire "ALPHA" doit écrire dans le champ "Y" de ma table "BETA".
Peux-tu me dire à quoi correspondent les codes dans mon cas:
CurentDb = ?
TABLEA = "ALPHA" je suppose !
cleprimaireBD = ?
!champBD1 = ? (C ou Y)
!champBD2 = ? (C ou Y)

Je vais prendre une aspirine !

[charleshbo]

Je vais réadapter le code a ce que tu me dis :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim db As Database 
Dim rstALPHA As RecordSet 
Dim rstBETA As RecordSet
 
db = CurrentDb 'cette commande ne change jamais, cela ne fait qu'affecter ton fichier Access a ta variable db
rstALPHA = db.openRecordSet("ALPHA", dbOpenDynaset) 
rstBETA = db.openRecordSet("BETA", dbOpenDynaset)  
 
'Bon, si tu t'es déjà arrangé pour mettre A+B dans C alors voici comment poursuivre...
 
While Not rstBETA.EOF
   With rstBETA
       .AddNew 'si n'y a pas d'enregistrement dans la table BETA
       !champY = rstALPHA.Fields("champC")
       .Update
   End With
End While

Environ comme ça qu'on procède... si je me trompe quelqu'un corriger moi!

[BOTIGUA]

Ca ne fonctionne pas !

L'erreur s'arrête "db", puis "rst".

[charleshbo]

ce ne sont que des exemples... des variables que tu dois changer...

[BOTIGUA]

J'ai créé une table "BETA" avec 1 champ "X" et 1 champ "Y"
Puis 1 formulaire sur lequel j'ai posé un champ "A", 1 champ "B", 1 champ "C" (Propriété Données=A+B).
Dans les évènements du champ "C", j'ai copié ton code dans la ligne "fermeture"...rien à faire, ça n'écrit pas dans le champ "Y" de ma table "BETA" lorsque le formulaire ferme.

[charleshbo]

tu ne dois pas prendre mon code textuellement, il y a surement quelques petites modifs a apporter sur ton code selon tes tables et champs... et sur ce qui est de la ligne fermeture, tu veux dire l'évenement close???

[BOTIGUA]

Dans les propriétés du formulaire, j'ai posé une procédure évènementielle (ton code) à la ligne "sur fermeture" dans l'onglet "évènement".

Pour les paramétrage de ton code, je vais regarder ce que je peux essayer. Je n'ai plus d'erreur (avec la BD exemple que je me suis créé...table "BETA", formulaire "ALPHA"...etc, mais ça n'écrit pas !

Bon, je creuse......

Ceci étant, merci pour ta patience et surtout ton aide précieuse !

[Heureux-oli]

J'ai créé une table "BETA" avec 1 champ "X" et 1 champ "Y"
Puis 1 formulaire sur lequel j'ai posé un champ "A", 1 champ "B", 1 champ "C" (Propriété Données=A+B).
Dans les évènements du champ "C", j'ai copié ton code dans la ligne "fermeture"...rien à faire, ça n'écrit pas dans le champ "Y" de ma table "BETA" lorsque le formulaire ferme.

Essaie de le mettre dans valeur par défaut.
Ou ecris un code qui effectue l'opération chaque fois que tu mets à jour un contrôle du formulaire ou un bouton.