Enregistrer les valeurs d'un sous formulaire

**ez29kiel** · 30/06/2009, 14h58

Bonjour, je me permet de faire appel à la communauté du forum car je suis complètement perdu face à mon problème.
Je possède un formulaire principale, et deux sous formulaire sur celui-ci.
Son rôle est de permettre d'éditer, et de sauvegarder des rapports de tests.
Le formulaire principale comprend les infos générales du rapport (n° de rapport, conclusion, date,...)
Les sous formulaires, ce sont des formualires en mode continu, ils listent les résultats que les deux matières que l'on veut comparer ont eu aux tests.
Donc je voudrais que une fois que l'utilisateur a choisit les deux matières à tester, et remplis les différentes informations, il puisse tout enregistrer avec un bouton, voila le code que j'ai:

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
34
35
36
 
Private Sub Commande81_Click()
Dim x As Integer
Dim i As Integer
 
x = Me.R_résultat_de_la_mat_1.Form.Recordset.RecordCount
 
For i = 1 To x
 
Me!R_résultat_de_la_mat_1.SetFocus
DoCmd.GoToRecord , , acGoTo, i
Me.tboresult.Value = Me.R_résultat_de_la_mat_1.Form.IdResultat.Value
 
Me.SetFocus
 
DoCmd.GoToRecord , , acNewRec
 
 
Me.ResultatId.Value = Me.tboresult.Value
 
'Données ne changeant pas
 
Me.ReportNumber.Value = Me.tboreportnumber.Value
Me.Projects.Value = Me.tboproject.Value
Me.Category.Value = Me.tbocategory.Value
Me.Purpose.Value = Me.tbopurpose.Value
Me.DateRapport.Value = Me.tbodate.Value
Me.Action.Value = Me.tboaction.Value
Me.ConclusionGenerale.Value = Me.tbogconclu.Value
Me.Conclusion.Value = Me.tboconclu.Value
 
DoCmd.GoToRecord , , acNewRec
 
Next
 
End Sub

Je n'ai réalisé le code que pour le premier sous formulaire, et il ne fonctionne pas, je n'ai aucun message d'erreur, mais je n'ai aucun enregistrement qui se créé.
Je ne sais pas si ma solution est la bonne, mais je code en VBA que depuis 15jours, alors je suis preneur de toutes vos idées.

Merci,

**helas** · 30/06/2009, 18h13

Je pense que la méthode n'est pas appropriée.
Pourquoi passer par un bouton alors que les données peuvent être saisies directement dans le sous-formulaire ?
Le formulaire principal et les sous-formulaires ont une table comme source.
Ces tables doivent contenir un champ commun, celui-ci permettra la liaison du formulaire principal avec les sous-formulaires.
voir http://access.developpez.com/faq/?pa...rm#PosPereFils

**ez29kiel** · 01/07/2009, 16h09

Merci, pour ta réponse.
Je vais essayer ta méthode pour, car elle me semble avoir une approche plus rigoureuse du problème. Je vais bien voir si j'arrive à m'en sortir par ce biai

**ez29kiel** · 01/07/2009, 16h12

En fait à la base je venais pour poster ma solution à mon problème, après plusieurs test, j'ai remarqué qu'il fallait que je me repositionne sur le bon formulaire, pour ceux que ça intéresse:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
 
Private Sub Commande81_Click()
Dim x As Integer
Dim i As Integer
Dim n As Integer
 
n = 0
 
If Me.R_résultat_de_la_mat_1.Visible = True Then
        x = Me.R_résultat_de_la_mat_1.Form.Recordset.RecordCount
 
        For i = 1 To x
 
        Me!R_résultat_de_la_mat_1.SetFocus
        DoCmd.GoToRecord , , acGoTo, i
        Me.tboresult.Value = Me.R_résultat_de_la_mat_1.Form.IdResultat.Value
 
        Me.Controls("ResultatId").SetFocus
 
        DoCmd.GoToRecord , , acNewRec
 
 
        Me.ResultatId.Value = Me.tboresult.Value
 
        'Données ne changeant pas
 
        Me.ReportNumber.Value = Me.tboreportnumber.Value
        Me.Projects.Value = Me.tboproject.Value
        Me.Category.Value = Me.tbocategory.Value
        Me.Purpose.Value = Me.tbopurpose.Value
        Me.DateRapport.Value = Me.tbodate.Value
        Me.Action.Value = Me.tboaction.Value
        Me.ConclusionGenerale.Value = Me.tbogconclu.Value
        Me.Conclusion.Value = Me.tboconclu.Value
 
        DoCmd.GoToRecord , , acNewRec
 
        Next
        n = n + 1
End If
 
If Me.R_résultats_de_la_matière_de_référence.Visible = True Then
        x = Me.R_résultats_de_la_matière_de_référence.Form.Recordset.RecordCount
 
        For i = 1 To x
 
        Me!R_résultats_de_la_matière_de_référence.SetFocus
        DoCmd.GoToRecord , , acGoTo, i
        Me.tboresult.Value = Me.R_résultats_de_la_matière_de_référence.Form.IdResultat.Value
 
        'ligne que j'ai rajoutée, pour me repositionner dans le bon formulaire
 
        Me.Controls("ResultatId").SetFocus
 
        DoCmd.GoToRecord , , acNewRec
 
 
        Me.ResultatId.Value = Me.tboresult.Value
 
        'Données ne changeant pas
 
        Me.ReportNumber.Value = Me.tboreportnumber.Value
        Me.Projects.Value = Me.tboproject.Value
        Me.Category.Value = Me.tbocategory.Value
        Me.Purpose.Value = Me.tbopurpose.Value
        Me.DateRapport.Value = Me.tbodate.Value
        Me.Action.Value = Me.tboaction.Value
        Me.ConclusionGenerale.Value = Me.tbogconclu.Value
        Me.Conclusion.Value = Me.tboconclu.Value
 
        DoCmd.GoToRecord , , acNewRec
 
        Next
        n = n + 1
End If
 
If Me.R_resultats_mat2.Visible = True Then
        x = Me.R_resultats_mat2.Form.Recordset.RecordCount
 
        For i = 1 To x
 
        Me!R_resultats_mat2.SetFocus
        DoCmd.GoToRecord , , acGoTo, i
        Me.tboresult.Value = Me.R_resultats_mat2.Form.IdResultat.Value
 
        Me.Controls("ResultatId").SetFocus
 
        DoCmd.GoToRecord , , acNewRec
 
 
        Me.ResultatId.Value = Me.tboresult.Value
 
        'Données ne changeant pas
 
        Me.ReportNumber.Value = Me.tboreportnumber.Value
        Me.Projects.Value = Me.tboproject.Value
        Me.Category.Value = Me.tbocategory.Value
        Me.Purpose.Value = Me.tbopurpose.Value
        Me.DateRapport.Value = Me.tbodate.Value
        Me.Action.Value = Me.tboaction.Value
        Me.ConclusionGenerale.Value = Me.tbogconclu.Value
        Me.Conclusion.Value = Me.tboconclu.Value
 
        DoCmd.GoToRecord , , acNewRec
 
        Next
        n = n + 1
End If
 
If Me.R_result_mat3.Visible = True Then
        x = Me.R_result_mat3.Form.Recordset.RecordCount
 
        For i = 1 To x
 
        Me!R_result_mat3.SetFocus
        DoCmd.GoToRecord , , acGoTo, i
        Me.tboresult.Value = Me.R_result_mat3.Form.IdResultat.Value
 
        Me.Controls("ResultatId").SetFocus
 
        DoCmd.GoToRecord , , acNewRec
 
 
        Me.ResultatId.Value = Me.tboresult.Value
 
        'Données ne changeant pas
 
        Me.ReportNumber.Value = Me.tboreportnumber.Value
        Me.Projects.Value = Me.tboproject.Value
        Me.Category.Value = Me.tbocategory.Value
        Me.Purpose.Value = Me.tbopurpose.Value
        Me.DateRapport.Value = Me.tbodate.Value
        Me.Action.Value = Me.tboaction.Value
        Me.ConclusionGenerale.Value = Me.tbogconclu.Value
        Me.Conclusion.Value = Me.tboconclu.Value
 
        DoCmd.GoToRecord , , acNewRec
 
        Next
        n = n + 1
End If
 
MsgBox ("Nombre de matières dans ce rapport: " & n)
Me.lsrapport.Requery
Me.Requery
 
End Sub

Enregistrer les valeurs d'un sous formulaire [AC-2003]

VBA Access

Discussions similaires

Partager

Partager