Discussion :

[dkcedric]

Bonjour,

Je fais appel à votre aide car je souhaite créer un numéro automatique pour mes devis et qui change automatiquement à chaque année sous cette forme année-0000.

Je suis tous nouveau sur access et ne connais pas encore très le fonctionnement.

Je sais que le 1er champ est la clé primaire et qu'on ne peut pas effectuer cette procédure.

Dans l'attente de vous lire.

[Ric500]

Bonjour,

J'ai créé un truc analogue pour mon appli, à la différence que j'y implémente également le mois, ce qui ré-initialise le compteur de devis (ou de factures, c'est une fonction équivalente) tous les mois.

Par exemple, et dans ton cas, imagine une fonction qui te renvoie le prochain numéro de devis comme çà:

pré-requis: table des devis= tblDevis, clé des devis= DEVUnik (long)., Date du devis= DEVDte (Date), N° du devis= DEVNo (String)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function NextDev()
   Dim X as long, crit as String, StrSQL As String
 
   X=Nz(DCount("DEVUnik", "tblDevis"),0)
   If X=0 then    'Ici je tiens compte du cas où la table est vide
      NextDev= Format(Now,"yyyy") & "-" & "0001"
      Else
      crit = "clng(right(year(DEVDte),2))=" & CLng(Right(Year(Now), 2))
      StrSQL = "SELECT CLng(Left([DEVNo],2)) AS lAn, CLng(Right([DEVNo],4)) AS Num FROM tblDevis WHERE " & crit & ";"
      Call CreeRequeteTempo(StrSQL)
      NextDEV = Right(Trim(str(Year(Now()))), 2) & "-" & Format(Nz(DCount("Num", "RequTempo"), 0) + 1, "0000")
    End If
End Function

Tu remarqueras que j'utilise aussi 2 procédures pour créer des requêtes temporaires et pour les supprimer: "CreeRequeteTempo" & "TueRequete".

Code :

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

1
2
3
4
5
6
7
Sub CreeRequeteTempo(StrSQL)
    Dim mabd As Database, Requ As QueryDef, NomBD As String
    Call TueRequete("RequTempo")
    Set mabd = CurrentDb()
    Set Requ = mabd.CreateQueryDef("RequTempo", StrSQL)
    Set mabd = Nothing
End Sub

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
Sub TueRequete(NomRequete)
          On Error GoTo ErrMan
          Dim qdfloop As QueryDef
          Dim mabd As Database
          Dim X As Integer
          Set mabd = CurrentDb()
              With mabd
                  For Each qdfloop In .QueryDefs
                      If qdfloop.Name = NomRequete Then
                          mabd.QueryDefs.Delete NomRequete
                      End If
                  Next qdfloop
              End With
          Set mabd = Nothing
Fin:
          Exit Sub
ErrMan:
          Resume Fin
End Sub

Tout çà à mettre dans un module général.

Note: je pense que tu es conscient que dans ton raisonnement tu limites la puissance lexicographique de ta fonction à la création de 9999 devis/an.

[dkcedric]

Houla trop compliqué, il n'y a pas une formule plus simple ?

[Ric500]

Heuu... Shazam ? Abracadabra ?

Sérieusement, c'est très simple: tu copies ces fonctions dans un module général et tu n'as plus qu'à l'appeler dans un code vba, une requête ou un contrôle en propriété source.