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

**polo42** · 07/08/2007, 12h11

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

**Demco** · 07/08/2007, 12h19

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

**polo42** · 07/08/2007, 12h28

je n'ai pas vraiment de code

j'ai juste ça

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
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

**polo42** · 07/08/2007, 13h10

Mon code a évolué et j'en suis 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
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

**Jeannot45** · 07/08/2007, 14h20

Bonjour,

tu déclares :

Code :

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

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 :

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

Function incre_lac(monchamp As String)

Bonne continuation

Jeannot

**polo42** · 07/08/2007, 14h39

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

**Jeannot45** · 07/08/2007, 14h43

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

**polo42** · 07/08/2007, 15h07

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 :

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
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

**Jeannot45** · 07/08/2007, 15h20

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

Jeannot

**polo42** · 07/08/2007, 15h25

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.

**polo42** · 07/08/2007, 16h13

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

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

VBA Access

Discussions similaires

Partager

Partager