Discussion :

[Astragale]

Bonjour,

Je ne suis vraiment pas familier en VB alors je me dois de me trouner vers vous.

J'utilise VB6. Dans mon projet j'ai une table 'INFO' qui contient les champs
ex: NoClient, NomClient, Produit.

Le but est que je dois appliquer un calcul si l'enregistrement précédent sur le NoClient est égale à l'enregistrement en cours. Et ce jusqu'à la fin de mon fichier.

enreg(1) =NoClient = 12345
enreg(2) =NoClient = 12345
j'applisque ma formule


enreg(1) =NoClient = 99999
enreg(2) =NoClient = 12345
je ne fais rien


merci beaucoup de m'aider

[nico9360]

bonjour

c'est pas trés clair,
if.........then

[iclic]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
dim i as integer
dim findetable as integer
 
for i= 1 to findetable
 
    if enreg( i +1 ) =enreg( i ) then
               "j'applique la formule"
                elseif i = findetable then
                exit for
    end if
next

A+

[ProgElecT]

Salut

Code :

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

for i= 1 to findetable

provoquera une erreur (Erreur d'éxécution N°9, Indice en dehors de la plage), à cause de

Code :

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

enreg( i +1 )

car cette condition étant évalué avant le ElseIf qui suit.

solution pour ne pas déclancher l'erreur tout en supprimant la condition ElseIf

Code :

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

for i= 1 to findetable-1

je dois appliquer un calcul si l'enregistrement précédent sur le NoClient est égale à l'enregistrement en cours. Et ce jusqu'à la fin de mon fichier.

Astragale peux-tu nous préciser, ton traitement porte sur une Table et/ou un fichier ?
La strtégie pouvant différer (pensant a la possibilité de Order By sur le champs NoClient (s'il est bien un numérique).

[iclic]

Bonjour,

provoquera une erreur (Erreur d'éxécution N°9, Indice en dehors de la plage)

Exact Progelect !
Et en plus solution encore plus simple.

A+

[Astragale]

Désolée pour mon manque de clarté.

Ma table est une table access nommée Commande, contenant des enregistrements et comme champs:
NoClient, NomClient, NoCommande, Prix.
Donc je peux retrouver plusieurs no de commande pour le même client et en plus, le no de commande peux se répéter deux fois s'il y a lieu.
Par contre, si le no de commande se répète, sur le deuxième enregistrement du non de commande, je dois mettre le prix à zéro.

Ex:


NoClient NomClient NoCommande Prix

9999 yyyyy bbbb 25.00 $
8888 ccccc uuuu 35.00 $
1234 xxxxx abcd 10.00 $
1234 xxxxx abcd 0.00 $
7777 kkkkk vvvv 45.00 $
Donc comme le NoCommande abcd se répète pour le même client,
je mets 0 sur la deuxième ligne de ce numéro de commande.


merci

[ProgElecT]

Salut
Dans l’exemple
ConnDataBase est une variable de type ADODB.Connection
MeRecordset1 et MeRecordset2 sont des variables de type ADODB.Recordset
ConnDataBase est initialisé, en dehors du code proposé
NoClient est considéré comme champs numérique
NoCommande est considéré comme champs String

Je n’ai pas peu vérifier/débuguer le code, il m’aurait fallut créer une BD spécial, par contre les lignes proposées sont un copier/coller adaptées avec tes informations, il ne devrait pas y avoir trop de faute de fonctionnement, l’intérêt étant surtout d’avoir un principe de solution de ton problème.

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
Dim Sql As String
'Pour n'obtenir que les enregistrements qui ont pour NoClient et NoCommande différents, sans doublon
'ce qui limitera le bouclage
Sql = "Select DISTINCT NoClient, NoCommande from Commande Order By NoClient, NoCommande"
'ouverture du 1° recordset qui ne servira qu'à la lecture
MeRecordset1.Open Sql, ConnDataBase, adOpenStatic, adLockPessimistic
If Not MeRecordset1.EOF Then
 Do While Not MeRecordset1.EOF
    'pour obtenir le/les enregistrements correspondant au NoClient et NoCommande, avec doublons éventuels
    Sql = "Commande werhe NoClient = " & MeRecordset1.Fields("NoClient") & _
        " And NoCommande = '" & MeRecordset1.Fields("NoCommande") & _
        "' Order By NoClient, NoCommande, Prix"
    'ouverture du 2° recordset
    MeRecordset2.Open Sql, ConnDataBase, adOpenStatic, adLockPessimistic
    'MeRecordset2 ne peut être que Not MeRecordset2.EOF puisque il existe dans MeRecordset1
    If MeRecordset2.RecordCount >= 2 Then
        'la condition étant vraie ......
        MeRecordset2.MoveNext 'ce place sur le 2° enregistrement
        'ou si il peut y avoir plus de 2 enregistrements et que c'est le dernier qui doit prendre pour valeur 0
        'MeRecordset2.MoveLast 'ce place sur le dernier enregistrement
        If MeRecordset2.Fields("Prix") <> 0 Then
            MeRecordset2.Fields("Prix") = 0 'modification/actualisation
            MeRecordset2.Update 'enregistrement de la modification
        End If
    End If
    MeRecordset2.Close
   'passe a l'enregistrement suivant, qui ne peut être de même NoClient et NoCommande
   'car ce recordset a été ouvert avec la clause DISTINCT
   MeRecordset1.MoveNext
   DoEvents
 Loop
 MeRecordset1.Close
End If

[Astragale]

Sincères remerciements pour ces explications qui ont contribué à mon apprentissage et surtout à faire en sorte que cela fonctionne.
Merci au forum et à tous ceux qui contribuent à améliorer notre savoir

Cordialement
Astragale