Discussion :

[tomZH]

Bonjour,

J'ai un sous formulaire continu basé sur une requête qui affiche notamment les prix calculés de chaque articles. Une fois calculé et affiché j'aimerai tout de même pouvoir modifier ces prix et les stocker dans une table (même si il n'est pas conseillé de stocker des champs calculés..).
Dans mon sous formulaire continu, j'ai donc également un champ vide ayant pour source la colonne prix d'une table dans laquelle je souhaite stocké la valeur calculée.

Grâce à un peu de code vba, j'aimerai qu'en cliquant sur un bouton, le prix calculé soit copier/coller dans ce champ prix. Ainsi, je pourrai tout de même modifier le prix par la suite.

Prix calculé (impossible à modifier) ---> Prix copier/coller et stocker dans une table (modification possible)

Du fait qu'il s'agit d'un sous formulaire continu, je n'arrive pas à écrire les bonnes lignes de codes VBA.

Voila mon code:

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
Private Sub CmdePrix_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = Application.CurrentDb
Set rst = db.OpenRecordset("Devis++")
While rst.EOF = False
rst.Edit
rst("PT") = Me.PT1
rst.Update
rst.MoveNext
Wend
rst.Close
Set rst = Nothing
Set db = Nothing
End Sub

Le problème est que le Me.PT1 ne se déplace pas d'un enregistrement à un autre, et je me retrouve avec le même prix partout.

Finalement mon problème se résume à comment copier/coller un champ dans un formulaire continu, grâce a du vba

Merci pour votre aide.

[ilank]

Bonjour,
ton code ne doit pas marcher sur le contrôle du sous-formulaire mais sur le champ calculé de la requête; de plus il doit y avoir correspondance entre l'article dont le prix doit être stocké et l'article dont le prix calculé doit être récupéré.
Puisque ton sous-formulaire a une source, il doit également disposer d'un recordset dans le lequel se trouve les champs que tu souhaites pour chaque ligne.
Essaie un truc du genre :

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
19
Private Sub CmdePrix_Click()
Dim rst As DAO.Recordset
  Set rst = db.OpenRecordset("Devis++")
  While rst.EOF = False
     Form.RecordsetClone.MoveFirst
     'Rechercher dans le recordset du formulaire l'article correspondant
     'où xxx est le nom du champ article de la source du formulaire
     'et yyy le nom du champ article de la table Devis++
     Form.RecordsetClone.FindFirst ("xxx=" & rst(yyy))
     If Not Form.RecordsetClone.NoMatch Then 
       rst.Edit
       rst("PT") = Form.RecordsetClone("PT1")
       rst.Update
     Endif
     rst.MoveNext
  Wend
  rst.Close
  Set rst = Nothing
End Sub

Maintenant, pourquoi une fois la requête remplie ne transfers-tu pas ses données directement dans la table Devis++, de fait tu peut dès lors donner pour source du sous-formulaire la table Devis++, ce qui te permettras de modifier les prix des articles dans le sous-formulaire ?

[tomZH]

Merci beaucoup ilank !!!!!!! Tu me libère d'un gros poids !
Après quelques petits soucis d'écriture, ca marche !!!!

C'est a propos de ce recordset que j'avais du mal... Transfert de données, ok, avec INSERT INTO ? anyway ca marche comme ca.