Je désire mettre en place sous access un "chrono-secrétariat" :
A la demande de l'utilisateur la base de données donne un numero chronologique
de la forme AA/cccc
avec AA : 2 LSB de l'année (eg : 03)
et cccc : N° chronologique entre 0001 pour le premier n° chrono
de l'année avec incrémentation au fur et à mesure des besoins.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond
Bonjour.
tu peux utiliser ce genre de fonction, numero étant le champ de la table , matable la table
Dim x As String Dim ProchainNumero As String x = DMax("numero", "matable", "[numero] like '" & Format(Date, "yy") & "*'") If x = "" Then ProchainNumero = Format(Date, "yy") & "/001" Else ProchainNumero = Left(x, 3) & Mid(x, 4) + 1 End If
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"JP Bataille" a écrit dans le message de news:
Bjr à tous,
Je désire mettre en place sous access un "chrono-secrétariat" :
A la demande de l'utilisateur la base de données donne un numero chronologique
de la forme AA/cccc avec AA : 2 LSB de l'année (eg : 03) et cccc : N° chronologique entre 0001 pour le premier n° chrono
de l'année avec incrémentation au fur et à mesure des besoins.
Avec mes remerciements anticipés,
JPB
Bonjour.
tu peux utiliser ce genre de fonction, numero étant le champ de la table ,
matable la table
Dim x As String
Dim ProchainNumero As String
x = DMax("numero", "matable", "[numero] like '" & Format(Date, "yy") &
"*'")
If x = "" Then
ProchainNumero = Format(Date, "yy") & "/001"
Else
ProchainNumero = Left(x, 3) & Mid(x, 4) + 1
End If
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"JP Bataille" <jpbataille@telecom-dev.fr> a écrit dans le message de
news:4a95aad.0307170512.56001dbb@posting.google.com...
Bjr à tous,
Je désire mettre en place sous access un "chrono-secrétariat" :
A la demande de l'utilisateur la base de données donne un numero
chronologique
de la forme AA/cccc
avec AA : 2 LSB de l'année (eg : 03)
et cccc : N° chronologique entre 0001 pour le premier n°
chrono
de l'année avec incrémentation au fur et à mesure des
besoins.
tu peux utiliser ce genre de fonction, numero étant le champ de la table , matable la table
Dim x As String Dim ProchainNumero As String x = DMax("numero", "matable", "[numero] like '" & Format(Date, "yy") & "*'") If x = "" Then ProchainNumero = Format(Date, "yy") & "/001" Else ProchainNumero = Left(x, 3) & Mid(x, 4) + 1 End If
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"JP Bataille" a écrit dans le message de news:
Bjr à tous,
Je désire mettre en place sous access un "chrono-secrétariat" :
A la demande de l'utilisateur la base de données donne un numero chronologique
de la forme AA/cccc avec AA : 2 LSB de l'année (eg : 03) et cccc : N° chronologique entre 0001 pour le premier n° chrono
de l'année avec incrémentation au fur et à mesure des besoins.
