Discussion :

[ancel17]

Bonjour !

Mon souci est le suivant :

Pour chaque enregistrement d'une table T_Questionnaire,
Si le champ Colsivom = Oui Alors
j'insère les valeurs qui vont bien

J'imagine qu'il faut utiliser For Each ... Next et If ... Then ... Else, mais je ne sais pas comment traduire "enregistrement de la table"

Quelqu'un peut-il m'aider ?

[ancel17]

Petite précision, j'insère les valeurs dans une autre table T_Synthèse

[Invité]

Bonjour

Pour parcourir les enregistrements de ta table, va voir ce tuto sur DAO.

Starec

[Heureux-oli]

J'utiliserais un While Not Recordset.EOF

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim rs as DAO.Recorset
Dim db as DAO.Database
 
set db = CurrentDB
set rs = db.openrecordset("matable", dbopentable)
 
while not rs.EOF
    If ......
Wend

[ancel17]

voici le code utilisé :

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
 
Dim rst As Recordset
Dim rst2 As Recordset
Dim strsql As String
 
 
'efface la table T_synthèse
DoCmd.SetWarnings False
strsql = "delete T_synthèse.*"
strsql = strsql + " from T_synthèse;"
DoCmd.RunSQL strsql
 
'rempli la table T_synthèse
Set rst = CurrentDb.OpenRecordset("T_synthèse")
Set rst2 = CurrentDb.OpenRecordset("T_questionnaire")
 
While Not rst2.EOF
    If rst2.Fields(44) = -1 Then
 
rst.AddNew
rst.Fields(0) = Me.n°SIRET
rst.Fields(1) = Me.nom_entr
rst.Fields(2) = Me.annee
 
rst.Fields(3) = Me.Nb_cont_papiers_80
rst.Fields(4) = Me.nb_cont_papiers_120
rst.Fields(5) = Me.nb_cont_papiers_180
rst.Fields(6) = Me.nb_cont_papiers_240
rst.Fields(7) = Me.nb_cont_papiers_340
 
rst.Update
 
    End If
Wend
 
rst.Close
rst2.Close
Set rst = Nothing
Set rst2 = Nothing
DoCmd.SetWarnings True

T_Synthèse est bien effacée, mais je me retrouve avec une boucle infinie qui m'insère les valeurs correspondant au premier enregistrement de T_Questionnaire : j'en étais à 8786 fois le même enregistrement qd j'ai arrêter la procédure !

[Invité]

Re

Il faut que tu mettes un

Code :

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

rst2.MoveNext

avant ton Wend, sinon tu resteras toujours sur le même enregistrement.

Starec

[Oleff]

Bonjour,
Tu as oublié de donner l'ordre d'avancer dans le recordset.

Code :

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

rs.MoveNext

[Heureux-oli]

C'est normal, tu ouvreun recordset et tu parcoures toujours le même enregistrement.

Il faut que tu mettes un rs.movenext.

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
 
Dim rst As Recordset
Dim rst2 As Recordset
Dim strsql As String
 
 
'efface la table T_synthèse
DoCmd.SetWarnings False
strsql = "delete T_synthèse.*"
strsql = strsql + " from T_synthèse;"
DoCmd.RunSQL strsql
 
'rempli la table T_synthèse
Set rst = CurrentDb.OpenRecordset("T_synthèse")
Set rst2 = CurrentDb.OpenRecordset("T_questionnaire")
 
While Not rst2.EOF
    If rst2.Fields(44) = -1 Then
 
rst.AddNew
rst.Fields(0) = Me.n°SIRET
rst.Fields(1) = Me.nom_entr
rst.Fields(2) = Me.annee
 
rst.Fields(3) = Me.Nb_cont_papiers_80
rst.Fields(4) = Me.nb_cont_papiers_120
rst.Fields(5) = Me.nb_cont_papiers_180
rst.Fields(6) = Me.nb_cont_papiers_240
rst.Fields(7) = Me.nb_cont_papiers_340
 
rst.Update
 
    End If
rst2.movenext
Wend
 
rst.Close
rst2.Close
Set rst = Nothing
Set rst2 = Nothing
DoCmd.SetWarnings True

[ancel17]

Merci à tous !

[Herman]

ahah, 4 réponses à la même minutes.

Perso, je pense que tu devrais mettre un rs.MoveNext

[Faw]

Herman, tu sors!!!!!