Bonjour à tous , j'aie besoin d'un petit coup de main pour faire un
cumul dans le champ d'une requete .
Pour l'instant je n'arrive pas à lire correctement les cellules d'un champ
et je ne parviens pas non plus à les enregistrer .
Voici 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33 Private Sub cumul1() Dim mabase As DAO.Database Dim monrstreq As DAO.Recordset Dim matable As DAO.TableDef Dim marequete As DAO.QueryDef Dim monchamp As DAO.Field Set mabase = CurrentDb Set matable = mabase.TableDefs("Achat") Set monchamp = matable.Fields("Quantité") Set monrst = mabase.OpenRecordset("Achat", dbOpenTable) Set monrstreq = mabase.OpenRecordset("ACHAT", dbOpenDynaset) monrstreq.MoveFirst Do While Not monrstreq.EOF Debug.Print monrstreq.Fields(7).Value ici la fenetre affiche des valeurs null au fur et à mesure que je boucle alors que le champ de la requete contient des chiffres .En revanche le 1 er enregistrement affiche correctement la valeur .Si je prend fields(6) à la place de fields(7) Les valeurs sont affichées correctement .En revanche je ne parviens pas à les enregistrer dans le champ 8 avec update monrstreq.MoveNext With monrstreq .AddNew .Fields(8).Value = monrstreq.Fields(7).Value .Update 'ici erreur d'execution 3314 End With Loop monrstreq.Close Set monrstreq = Nothing End Sub
Partager