Discussion :

[polo42]

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]

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

[polo42]

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]

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]

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]

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