Discussion :

[santacrus]

Bonjour a tous

Un de mes formulaire contient un bouton qui me permet de generer automatiquement des factures pour une période definie.

Code :

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

1
2
3
4
For i = 1 To intL
bla bla
next i
msgbox intL & " " & "échéance(s) ont été crées."

Ca fonctionne tres bien mais rien ne m'enpechait de generer plusieurs fois les memes factures.J'ai donc modifié de la sorte:

Code :

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

1
2
3
4
5
6
7
For i = 1 To intL
if facture existe  then ne rien faire
sinon ---> generer facture
bla bla
end if
next i
msgbox intL & " " & "échéance(s) ont été crées."

Le probleme est que meme si aucune facture n'a été generée, msgbox me renvoie le nbre de fois que la boucle a été parcourue.
Comment connaitre le nbre d'enregistrements réellement éffectués?

Merci de votre aide.

[Kalion]

Ben comme ça !!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
int j = 0
For i = 1 To intL
if facture existe  then ne rien faire
sinon 
---> generer facture
et j = j + 1
bla bla
end if
next i
msgbox j & " " & "échéance(s) ont été crées."

[Tonioyo]

Bonjour,

Il faut mettre un compteur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim MonCpt as integer
 
MonCpt = 0
 
For i = 1 To intL
if facture existe  then ne rien faire
sinon ---> generer facture
MonCpt = MonCpt + 1
bla bla
end if
next i
msgbox MonCpt & " " & "échéance(s) ont été crées."

[santacrus]

Merci les gars j'essaie ca de suite

[santacrus]

Ca roule

Merci bcp

[Kalion]

oups déoslé y avait des restes du "C" !!!