Discussion :

[joseedaccess]

Bonjour,

Dans ma base de donnée de facturation je ne veux pas utiliser pour le numéro de facture le type de donnée numéroAuto parceque je veux avoir des numéros de facture qui se suivent sans trous dans la séquence. Pour avoir un numéro de facture qui s'incrémente j'ai fait une fonction qui va voir le numéro de facture au dernier enregistrement de la table facture et j'incrémente de 1 le numéro et je retourne cette valeur par cette fonction. Est-ce une bonne façon. Est-ce sécuritaire ..... MERCI

[stigma]

C'est ainsi que je procède et je n'ai jamais eu de problème.

[Marcello5255]

Bonjour Joseedaccess,

Je comprends parfaitement ton souhait.
J'ai récemment ouvert une discussion sous le titre:
Récupérer la valeur d'un champ.

Va peut-être voir la discussion, LedZepp m'avait donné un code et des explications très intéressantes avec la fonction Dmax.
J'utilise ça et c'est impeccable.

Pour mon information, j'aimerais aussi voir la fonction que toi tu as écrite.

Merci

Marcel

[joseedaccess]

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
Private Sub CtrlListeClient_AfterUpdate()
Dim rep As integer
 
,,,,,,,,
 
rep = ChercherLeNumFactureIncrementer
 
Me.[#FACTURE] = rep
 
End Sub
 
 
 
 
Public Function ChercherLeNumFactureIncrementer() As Integer
 
Dim dbsDardo As DAO.Database
Dim rstFacture As DAO.Recordset
 
 
Dim rep As Integer
 
 
 Set dbsDardo = CurrentDb
 Set rstFacture = dbsDardo.OpenRecordset("TFACTURE", dbOpenDynaset)
 
 
If (rstFacture.EOF = True And rstFacture.BOF = True) Then
    rstFacture.AddNew
    rep = rstFacture![#FACTURE]
    ChercherLeNumFactureIncrementer = rep + 1
 Else
 rstFacture.MoveLast
 rep = rstFacture![#FACTURE]
 ChercherLeNumFactureIncrementer = rep + 1
 
   End If
   rstFacture.Close
   dbsDardo.Close
 
 
    Set rstFacture = Nothing
   Set dbsDardo = Nothing
 
 
End Function

[Marcello5255]

Merci pour la fonction Josee,

Bien à toi,

Marcel

[nico84]

Bonjour,

En environnement multi-utilisateur il faut très rapidement "bloquer" le n° sinon il peut y avoir des doublons

Pour cela j'ai une petite fonction GetNext(table,champ) que j'appelle directement dans mon INSERT

[loufab]

Bonjour,

Via une requête :

Code :

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

SELECT Max(numerofacture) FROM tfacture;

ou par une fonction qui fera le même appel dans la base :

Code :

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

dmax("numerofacture","tfacture")

Cordialement,