[AC-2003] Numérotation automatique d'un champ selon un autre champ [Résolu]

[moht66]

Bonjour à tous!

Je suis occupé au créer un formulaire dans Access 2003 pour pouvoir encodé toutes mes données de terrain par la suite.
Le problème est le suivant :
j'aimerais avoir une numérotation automatique de mes arbres (champ NUM_ARBRE) qui recommence à 1 à chaque nouvelle placette (champ ID_UE).
On m'a passé un code qui est censé fonctionné mais...la numérotation passe de 1 à 2 puis reste sur le deux....
Si jamais quelqu'un voyait où ça bug...

Merci d'avance!!

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
Option Compare Database
 
 
Function TableExistante(nom_table As String) As Integer
    Dim db As Database
    Dim i As Integer
    Dim trouve As Integer
 
    Set db = CurrentDb()
    trouve = False
    For i = 0 To db.TableDefs.Count - 1
        If db.TableDefs(i).Name = nom_table Then
            trouve = True
            Exit For
        End If
    Next i
    db.Close
    TableExistante = trouve
End Function
 
Private Sub NUM_ARBRE_Click()
 
Dim query As String
 
If IsNull(NUM_ARBRE) = True Then
    If TableExistante("prov1") Then CurrentDb.Execute "drop table prov1"
     query = "select num_arbre as maxnum, id_ue into prov1 from arbre where (id_ue = " & Form_essaie_UE.ID_UE & " ) ;"
 
     Debug.Print query
     CurrentDb.Execute query
 
        If IsNull(DLookup("maxnum", "prov1", "prov1.id_ue = " & Form_essaie_UE.ID_UE & " ")) Then
        NUM_ARBRE = 1
 
        Else: NUM_ARBRE = DLookup("maxnum", "prov1", "prov1.id_ue = " & Form_essaie_UE.ID_UE & " ") + 1
 
        End If
 
            If TableExistante("prov1") Then CurrentDb.Execute "drop table prov1;"
 
End If
 
 
End Sub

[Godzestla]

Bonjour,

après ceci

Code :

      Else: NUM_ARBRE = DLookup("maxnum", "prov1", "prov1.id_ue = " & Form_essaie_UE.ID_UE & " ") + 1

Il manque du code pour stocker cette nouvelle valeur dans la table.

[moht66]

Ok, on m'a modifié le code de façon à tenir compte de l'évolution de la numérotation :
query = "select max(num_arbre) as maxnum, id_ue into prov1 from arbre where (id_ue = " & Form_essaie_UE.ID_UE & " ) group by id_ue;"

Merci pour l'aide!!