problème incrémentation en fonction d'une variable

Version imprimable

07/08/2007, 12h11
polo42

problème incrémentation en fonction d'une variable

Bonjour,

Je débute en VBA pour ACCESS et je n'arrive pas à faire un algo.
J'aimerais incrémenter une valeur dans un champ mais l'incrément repart de 0 à chaque fois que le nom d'une valeur située dans un autre champ change.

Voila, si quelqu'un a des idées.
Merci d'avance
07/08/2007, 12h19
Demco

Je n'ai pas trop compris.
Aurais-tu un morceau de code qui accompagne ton explication ?

je n'ai pas vraiment de code

j'ai juste ça
Code:

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 Function incre_lac(monchamp As Integer) Dim mavariable As String Select Case monchamp Case "Aydat" mavariable = "1" Case "Bordes" mavariable = "2" Case "Bouchet" mavariable = "3" Case "Bourdouze" mavariable = "4" Case "Cassière" mavariable = "5" Case "Chambon" mavariable = "6" Case "Issarlès" mavariable = "7" Case "Montcineyre" mavariable = "11" Case "Pavin" mavariable = "12" incre_lac = mavariable & "_"& "numéro de filet" End Function
en fait chaque lac sont associés à des noms de filet.
donc il faut que je donne un numéro de 1 à x pour chaque filet. Cette incrémentation doit être faite pour chaque lac.
Le but final de la manip est de concaténer mavariable avec l'increment filet et obtenir une clé unique.

Merci

Mon code a évolué et j'en suis là

Code:

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
Function incre_lac(monchamp As Integer)
 
Dim mavariable As String
Dim a, b, c, d, e, f, g, h As Integer
 
Select Case monchamp
Case "Aydat"
    mavariable = "1"
    a = a + 1
    incre_lac = mavariable & "_" & Str(a)
Case "Bordes"
    mavariable = "2"
    b = b + 1
    incre_lac = mavariable & "_" & Str(b)
Case "Bouchet"
    mavariable = "3"
    c = c + 1
    incre_lac = mavariable & "_" & Str(c)
Case "Bourdouze"
    mavariable = "4"
    d = d + 1
    incre_lac = mavariable & "_" & Str(d)
Case "Cassière"
    mavariable = "5"
    e = e + 1
    incre_lac = mavariable & "_" & Str(e)
Case "Chambon"
    mavariable = "6"
    f = f + 1
    incre_lac = mavariable & "_" & Str(f)
Case "Issarlès"
    mavariable = "7"
    g = g + 1
    incre_lac = mavariable & "_" & Str(g)
Case "Montcineyre"
    mavariable = "11"
    h = h + 1
    incre_lac = mavariable & "_" & Str(h)
Case "Pavin"
    mavariable = "12"
    i = i + 1
    incre_lac = mavariable & "_" & Str(i)
End select
 
End Function

j'ai des erreurs dans toutes les cases de mon tableau #erreur
je ne sais pas d'ou cela peut venir

si quelqu'un a des idées
merci d'avance

07/08/2007, 14h20
Jeannot45

Bonjour,

tu déclares :

Code:

Function incre_lac(monchamp As Integer)

puis dans ton Select tu compares monchamp à un nom de lac ????

Access te dit Erreur et c'est normal

Tu devrais déclarer :

Code:

Function incre_lac(monchamp As String)

Bonne continuation

Jeannot
07/08/2007, 14h39
polo42

Merci beaucoup je n'avais pas vu cette erreur bête.
Autre question qui n'a rien à voir, comment executer plusieurs fonctions les unes à la suite des autres sans qu'elles ne s'enclenchent en même temps?

merci
07/08/2007, 14h43
Jeannot45

Je ne comprends pas trop ce que tu veux dire mais en mettant le nom des fonctions les uns après les autres, ils s'exécuteront en cascade.

Pour que deux fonctions s'exécutent "en même temps", il faudrait qu'elles soient imbriquées

Jeannot

en fait mon problème est que je doit mettre en place un incrément cappable d'ajouter une itération quand il détecte la présence d'une chaine de caractère dans un enregistrement.

Code:

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
Option Compare Database
 
Function incre_lac(monchamp As String)
 
Dim mavariable As String
Dim a As Integer
Dim b, c, d, e, f, g, h As Integer
Dim num_enregi As Integer
 
Select Case monchamp
Case "Aydat"
    mavariable = "1"
    a = a + 1
    num_enregi = a
Case "Bordes"
    mavariable = "2"
    b = b + 1
    num_enregi = b
Case "Bouchet"
    mavariable = "3"
    c = c + 1
    num_enregi = c
Case "Bourdouze"
    mavariable = "4"
    d = d + 1
    num_enregi = d
Case "Cassière"
    mavariable = "5"
    e = e + 1
    num_enregi = e
Case "Chambon"
    mavariable = "6"
    f = f + 1
    num_enregi = f
Case "Issarlès"
    mavariable = "7"
    g = g + 1
    num_enregi = g
Case "Montcineyre"
    mavariable = "11"
    h = h + 1
    num_enregi = h
Case "Pavin"
    mavariable = "12"
    i = i + 1
    num_enregi = i
End Select
 
incre_lac = mavariable & "_" & Str(num_enregi)
End Function

j'ai fait ce code et je pensais que l'incrémentation intégrée dans la select case
marcherait. Mais là encore la variable num_enregi a toujours la valeur 1

07/08/2007, 15h20
Jeannot45

C'est normal puisque les variables a,b,c ... sont intitialisées à chaque fois que tu relances la fonction. (donc remise à 0)

Jeannot
07/08/2007, 15h25
polo42

Je vois.
1- il faut que mes variables puissent persister.
2- il faut qu'elles ne se réinitialisent qu'a chaque changement de nom de lac.

En fait je pense savoir ce qu'il faut faire. il faudrait récupérer la valeur de la cellule précédente et baser l'incrément sur la valeur de cette cellule.
07/08/2007, 16h13
polo42

j'ai beau cherché, je ne trouve pas de réponse.
Quelqu'un aurait une idée pour me faire avancer un peu?

Merci d'avance