Bonjour =E0 tous,=20
Je dispose de 2 tables : table_dossiers et=20
table_sous_dossiers.
Le num=E9ro de dossier est d=E9fini automatiquemment :
D1001, D1002 ....
Je souhaite que mes sous dossiers soient num=E9rot=E9s de 1 =E0=20
x de mani=E8re =E0 obtenir des num=E9ros de sous_dossier :=20
D1001-01, D1001-02 ...D1002-01, D1002-02... D1003-01,=20
D1003-02 ...
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
André AVONS
Salut si il y a que toujours 2 à la fin du dossier Sub essai() Dim Dossier As String, Sdossier As String, NewSdossier As String Dossier = "D1001" Sdossier = "D1001-08" NewSdossier = Format(Val(Right(Sdossier, 2)) + 1, "00") Sdossier = Dossier & "-" & NewSdossier Debug.Print Sdossier End Sub
-- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ http://www.anor.fr.st "Emeric FERRAND" a écrit dans le message de news:657301c35805$ed12aa10$ Bonjour à tous, Je dispose de 2 tables : table_dossiers et table_sous_dossiers.
Le numéro de dossier est défini automatiquemment : D1001, D1002 ....
Je souhaite que mes sous dossiers soient numérotés de 1 à x de manière à obtenir des numéros de sous_dossier : D1001-01, D1001-02 ...D1002-01, D1002-02... D1003-01, D1003-02 ...
Merci par avance de toute aide ou indice.
Emeric
Salut
si il y a que toujours 2 à la fin du dossier
Sub essai()
Dim Dossier As String, Sdossier As String, NewSdossier As String
Dossier = "D1001"
Sdossier = "D1001-08"
NewSdossier = Format(Val(Right(Sdossier, 2)) + 1, "00")
Sdossier = Dossier & "-" & NewSdossier
Debug.Print Sdossier
End Sub
--
@+
André
Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Emeric FERRAND" <emeric.ferrand@missiles.aeromatra.com> a écrit dans le
message de news:657301c35805$ed12aa10$a001280a@phx.gbl...
Bonjour à tous,
Je dispose de 2 tables : table_dossiers et
table_sous_dossiers.
Le numéro de dossier est défini automatiquemment :
D1001, D1002 ....
Je souhaite que mes sous dossiers soient numérotés de 1 à
x de manière à obtenir des numéros de sous_dossier :
D1001-01, D1001-02 ...D1002-01, D1002-02... D1003-01,
D1003-02 ...
Salut si il y a que toujours 2 à la fin du dossier Sub essai() Dim Dossier As String, Sdossier As String, NewSdossier As String Dossier = "D1001" Sdossier = "D1001-08" NewSdossier = Format(Val(Right(Sdossier, 2)) + 1, "00") Sdossier = Dossier & "-" & NewSdossier Debug.Print Sdossier End Sub
-- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ http://www.anor.fr.st "Emeric FERRAND" a écrit dans le message de news:657301c35805$ed12aa10$ Bonjour à tous, Je dispose de 2 tables : table_dossiers et table_sous_dossiers.
Le numéro de dossier est défini automatiquemment : D1001, D1002 ....
Je souhaite que mes sous dossiers soient numérotés de 1 à x de manière à obtenir des numéros de sous_dossier : D1001-01, D1001-02 ...D1002-01, D1002-02... D1003-01, D1003-02 ...
