Probleme dans une boucle

**Baya44** · 12/03/2007, 13h14

donc voila mon probleme j'effectue des calculs dsur des recordset et j'y ai mis une boucle ki va jusqu'a la fin de celui ci ou je compare la ligne precedente et si elle est differente alors l'incrementation dans la tables se fait mais le probleme c'est que le dernier calcul ne rentre pas en compte étant donné que la boucle vois qu'elle est a la fin du fichier et que je ne peux pas la comparé avec le fichier d'apres (vu qu'il n' en a pas ^^)

voici un extrait de 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
 
While Not rst1.EOF
                If source <> rst1.Fields("IDENTIFIANT INSTALLATION") Then
                    rst4.MoveFirst
                    Do      'ajout dans la table détailler
                        If Not IsNull(rst4.Fields("prestbase")) Then
                            If CDbl(Val(rst4.Fields("prestbase"))) = rst1.Fields("IDENTIFIANT INSTALLATION") Then
                                MsgBox ("ajout ds détailler")
                                rst3.AddNew
                                rst3.Fields("prestation_id") = rst4.Fields("prestation_id")
                                rst3.Fields("consoligne") = TOTconsoligne
                                rst3.Fields("N__Facture") = rst5("NUMERO FACTURE")
                                rst3.Fields("N__Compte_Opera") = rst5("COMPTE DE FACTURATION")
                                rst3.Update
                                TOTabtprest = 0
                                TOTconsoligne = 0
                                TOTaccesPrest = 0
                                TOTdiversPrest = 0
                                TOTremisePrest = 0
                                Exit Do
                            Else: rst4.MoveNext
                            End If
                        Else: rst4.MoveNext
                        End If
                    Loop While Not rst4.EOF
                Else:
                        TOTconsoligne = rst1.Fields("montant appel") + TOTconsoligne                
                End If
            MsgBox (rst1.Fields("IDENTIFIANT INSTALLATION"))
            source = rst1.Fields("IDENTIFIANT INSTALLATION")
            rst1.MoveNext
            Wend

**DMboup** · 12/03/2007, 13h21

C'est pas très clair tout ca

Envoyé par Baya44

donc voila mon probleme j'effectue des calculs dsur des recordset et j'y ai mis une boucle ki va jusqu'a la fin de celui ci ou je compare la ligne precedente

Tu compares la ligne précédente à quoi?

et si elle est differente alors l'incrementation dans la tables se fait

??

**Baya44** · 12/03/2007, 13h27

A la fin de la boucle je mémo la valeur souhaite puis je la compare dans le tour suivant avec la nouvelle valeur, si elle sont differente alors les donnée sont balancé dans la table, sinon la boucle continu et ainsi de suite

**Maxence HUBICHE** · 12/03/2007, 13h59

Déjà, vires donc les : derrière ELSE, et fais des renvois à la ligne.
Ils ne servent à rien d'autre qu'à semer le trouble dans ton code.

Ensuite, ton code parait bien compliqué.
Si je ne m'abuse, il sert à consolider des données (synthèse de plusieurs lignes) en fonction d'Identifiants.

Une requête ne suffirait-elle pas ?

**Baya44** · 12/03/2007, 14h04

Envoyé par Maxence HUBICHE

Déjà, vires donc les : derrière ELSE, et fais des renvois à la ligne.
Ils ne servent à rien d'autre qu'à semer le trouble dans ton code.

Ensuite, ton code parait bien compliqué.
Si je ne m'abuse, il sert à consolider des données (synthèse de plusieurs lignes) en fonction d'Identifiants.

Une requête ne suffirait-elle pas ?

Heu oui c'est bien une synthese de plusieurs lignes. et pour la requete elle serait trop compliké pour moi... et je precise que les clés ne sont pas du meme type... et certains tuples ne sont que du txt

**DMboup** · 12/03/2007, 14h13

Dans ce cas je ne vois pas le problème

...
If source <> rst1.Fields("IDENTIFIANT INSTALLATION") Then
...

ici source quotient bien la valeur de la ligne précédante et rst1.Fields("IDENTIFIANT INSTALLATION") contient la valeur de la ligne en cours. A la fin du fichier rst1.Fields("IDENTIFIANT INSTALLATION") et le dernier et est bel et bien comparer à la ligne précédente contenue dans Source !

En plus avec ca

...
Loop While Not rst4.EOF

tu risque de ne jamais sortir de ta boucle.

Je me perds dans tes recordset rst1, rst3, rst4 et rst5. Je trouves tout ca bien compliqué.

**Baya44** · 12/03/2007, 14h17

Envoyé par DMboup

tu risque de ne jamais sortir de ta boucle.

Je me perds dans tes recordset rst1, rst3, rst4 et rst5. Je trouves tout ca bien compliqué.

sisi je sort bien de ma boucle mais les dernier champs n'est pas inseré, et pour les recordset dsl c'est temporaire, une fois que ca tourne je change, promi ^^

**rafuoner** · 12/03/2007, 14h23

ben à la sortie de ta boucle tu vérifie si TOTconsoligne<>0

Si oui alors ca veut dire qu'il y en a une que tu n'as pas pris en compte et donc il faut le rajouter sur le dernier record avant le EOF que tu sauves dans la variable "source"

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
 
While Not rst1.EOF
	If source <> rst1.Fields("IDENTIFIANT INSTALLATION") Then
		rst4.MoveFirst
                Do      'ajout dans la table détailler
                	If Not IsNull(rst4.Fields("prestbase")) Then
                        	If CDbl(Val(rst4.Fields("prestbase"))) = rst1.Fields("IDENTIFIANT INSTALLATION") Then
                                	MsgBox ("ajout ds détailler")
                                	rst3.AddNew
                                	rst3.Fields("prestation_id") = rst4.Fields("prestation_id")
                                	rst3.Fields("consoligne") = TOTconsoligne
                                	rst3.Fields("N__Facture") = rst5("NUMERO FACTURE")
                                	rst3.Fields("N__Compte_Opera") = rst5("COMPTE DE FACTURATION")
                                	rst3.Update
                                	TOTabtprest = 0
                                	TOTconsoligne = 0
                                	TOTaccesPrest = 0
                                	TOTdiversPrest = 0
                                	TOTremisePrest = 0
                                	Exit Do
                            	End If
                        End If
			rst4.MoveNext
                Loop While Not rst4.EOF
	Else
        	TOTconsoligne = rst1.Fields("montant appel") + TOTconsoligne                
       End If
       MsgBox (rst1.Fields("IDENTIFIANT INSTALLATION"))
       source = rst1.Fields("IDENTIFIANT INSTALLATION")
       rst1.MoveNext
Wend
if TOTconsoligne<>0 then
	rst4.MoveFirst
	Do      'ajout dans la table détailler
		If Not IsNull(rst4.Fields("prestbase")) Then
                	If CDbl(Val(rst4.Fields("prestbase"))) = source Then
                        	MsgBox ("ajout ds détailler")
                                rst3.AddNew
                                rst3.Fields("prestation_id") = rst4.Fields("prestation_id")
                                rst3.Fields("consoligne") = TOTconsoligne
                                rst3.Fields("N__Facture") = rst5("NUMERO FACTURE")
                                rst3.Fields("N__Compte_Opera") = rst5("COMPTE DE FACTURATION")
                                rst3.Update
                                TOTabtprest = 0
                                TOTconsoligne = 0
                                TOTaccesPrest = 0
                                TOTdiversPrest = 0
                                TOTremisePrest = 0
                                Exit Do
			End If
                End If
		rst4.MoveNext
	Loop While Not rst4.EOF
end if

ou un truc du genre

@+
rafu0n3r

**Baya44** · 12/03/2007, 14h26

c pas bete comme idée je vais verifié ca
je vous tien au courant

**Baya44** · 12/03/2007, 14h31

bon a priori ca l'ajoute, j'ai juste un pti pb de doublon mais ca devrai pas etre trop dur a trouvé
encore merci a vous tous et vos contribution

**Baya44** · 12/03/2007, 15h58

Envoyé par Maxence HUBICHE

Déjà, vires donc les : derrière ELSE, et fais des renvois à la ligne.
Ils ne servent à rien d'autre qu'à semer le trouble dans ton code.

Ensuite, ton code parait bien compliqué.
Si je ne m'abuse, il sert à consolider des données (synthèse de plusieurs lignes) en fonction d'Identifiants.

Une requête ne suffirait-elle pas ?

Bon je croi que tu a raison au final je me prend la tete pour rien surtout que les données étant mélangé...

donc ma requete sql:

Code :

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

1
2
3
4
 
SELECT Cegetel.[IDENTIFIANT INSTALLATION], Sum(Cegetel.[MONTANT APPEL]) AS [SommeDeMONTANT APPEL]
FROM Cegetel
GROUP BY Cegetel.[IDENTIFIANT INSTALLATION];

mais je n'arrive pas a la faire fonctionné sous vba, est il possible d'utilisé une requete créer sous access ou faut il que je passe sous vba et meme avec les FAQ j'ai pas réussi a la faire fonctionner

**DMboup** · 12/03/2007, 16h04

Et si tu commencait par nous ce que tu veux faire (résultat) et avec quoi (table, requete, code vba)?

**DMboup** · 12/03/2007, 16h05

Je crois que le plus simple c'est de nous dire ce que tu veux comme résultat et quel source tu veux utliser pour y arriver.

Ensuite tu peux montrer ce que tu as déjà commencer. Et on verra bien.

**Baya44** · 12/03/2007, 16h15

j'ai une table cegetel(avec le num de tel et le montant par num pour chaque appel) que je veux mettre dans une table détailler qui est lier a une table prestation ou l'on trouve le fameux num de tel(type txt car pas que des num)
donc je veux "juste" avoir le total par numéro et les mettre dans ma table détailler, le tout via vba...

Si besoin d'info sup demandé moi

**DMboup** · 12/03/2007, 16h30

Par VBA tu peux soit utiliser un recordset soit une seule requête INSERT INTO.

Le recordset étant plus rapide voila un modél.

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
 
Dim mbd As Database, TableDestination As RecordSet, DOrigine As Recordset
 
Set mbd=currentdb()
set TableDestination=mbd.OpenRecordSet("Ta Table de destination")
 
set DOrigine=mbd.OpenRecordSet("SELECT [IDENTIFIANT INSTALLATION], Sum(Cegetel.[MONTANT APPEL]) AS [SommeDeMONTANT APPEL] FROM Cegetel GROUP BY Cegetel.[IDENTIFIANT INSTALLATION];")
 
Do Until DOrigine.EOF
     TableDestination.AddNew
     TableDestination("Champ1")=DOrigine("[IDENTIFIANT INSTALLATION]")
     TableDestination("Champ2")=DOrigine("[SommeDeMONTANT APPEL]")
     TableDestination.Update
 
DOrigine.MoveNext
Loop
TableDestination.Close
DOrigine.Close
Set mbd=nothing

**Baya44** · 12/03/2007, 16h53

J'ai une erreur d'execution n°91:
variable objet ou de bloc with non defini sur la ligne ou se trouve l'instruction SQL...

**DMboup** · 12/03/2007, 16h57

J'ai moi saisi à la volet. Tu peux montrer ce que tu as?

**Baya44** · 13/03/2007, 09h09

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
 
Private Sub test()
 
Dim Dorigine As recordset
Dim mbd As dao.Database
Dim detailler As dao.recordset
 
 
Set Dorigine = mbd.OpenRecordset("SELECT cegetel.[IDENTIFIANT INSTALLATION], Sum(Cegetel.[MONTANT APPEL]) AS [SommeDeMONTANT APPEL] FROM Cegetel GROUP BY Cegetel.[IDENTIFIANT INSTALLATION];")
 
                Do Until Dorigine.EOF
                    detailler.AddNew
                    detailler("Prestation_ID") = Dorigine("[IDENTIFIANT INSTALLATION]")
                    detailler("Consoligne") = Dorigine("[SommeDeMONTANT APPEL]")
                    detailler.Update
 
                    Dorigine.MoveNext
                Loop
                detailler.Close
                Dorigine.Close
                Set mbd = Nothing
 
End Sub

voila mon code comme souhaité

**DMboup** · 13/03/2007, 10h59

Tu as oublié d'initialise mbd et detailler

Code :

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

1
2
3
 
set mbd=currentdb()
set detailler=mbd.OpenRecordset("Ta Table destination")

**Baya44** · 13/03/2007, 12h31

que c*n....

Merci je rajoute qq truc ca et la mais a priori ca devrai marché bcp mieu!

Probleme dans une boucle

VBA Access

Discussions similaires

Partager

Partager