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