Discussion :

[guenfood]

Bonjour,

Je cherche à créer pour une base access un numéro de dossier.
Jusque là me direz-vous, pas de problèmes.
Sauf que ce numéro de dossier doit se décomposer de la manière suivante :
RL+Date du jour en 6 chiffres+numéro qui s'incrémente en 3 chiffres.

Exemple : RL201107001

De plus, lorsque nous sommes une nouvelle journée, les numéros qui s'incrémentent doivent de nouveau revenir à 001.

Dernière contrainte, les 2 premières lettres sont différentes en fonction d'une variable qui sera dans un champ (exemple : Si champ X contient A ou B ou C alors les 2 premières lettres sont RC sinon les 2 premières lettres sont RL)

J'espère avoir été assez clair dans mes explications

Merci par avance pour votre aide.

[le_niak]

Bonjour,

Quel est ton probleme?


pour obtenir le mois, l'année ou le jour en fonction de la date d'aujourd'hui

Code :

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

1
2
3
4
5
6
7
8
9
 
moisAuj = Month(Date)
anneeAuj = Year(Date)
 
If (Day(DateAuj) < 10) Then
jourAuj = CStr("0" & Day(DateAuj))
Else
jourAuj = Day(DateAuj)
End If

[guenfood]

Ben.... mon problème est de créer un numéro de dossier automatiquement avec les contraintes citées. Je n'ai pas dû être très clair

[FreeAccess]

Bonjour,

....Je n'ai pas dû être très clair

Si tu as été (assez) clair....

Mais il manque quelques éléments:

......les 2 premières lettres sont différentes en fonction d'une variable qui sera dans un champ

....ici, si ton champ n'est pas encore remplie, ton numéro automatique sera uniquement créé en fin de validation de ta saisie.

Maintenant, pour démarrer, tu peux déjà gérer cette contrainte comme cela:
(en pseudo code......je n'ai pas vérifié....)

Code :

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

1
2
3
4
5
6
7
'Ici "ValeurChamp" égale la valeur du champ X
Select Case ValeurChamp
        Case A,B,C
           NumDossier= "RC" & Year(Date) & DMax(NomDuChamp; NomTable)+1
        Case Else
           NumDossier ="RL" & Year(Date) & DMax(NomDuChamp; NomTable)+1
End Select

....voilà pour commencer......

[guenfood]

Effectivement, j'ai omis de spécifier que le numéro de dossier sera attribué en fin de saisie de mon dossier (à la validation).
Comme le formulaire pourra être rempli par plusieurs personnes en même temps, une vérification se fait à la validation de la saisie sur le numéro de dossier (si celui-ci existe dans la table, il prendra la valeur du dernier dossier rentré +1).

[FreeAccess]

si celui-ci existe dans la table, il prendra la valeur du dernier dossier rentré +1

Correct.....c'était l'objet de mon pseudo-code...(rechercher la valeur maximale d'un champ..)

Code :

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

DMax(NomDuChamp; NomTable)+1

...bien sur, ici il faut inclure l'ensemble du numéro de dossier....

..Commence à faire un petit quelque chose et reviens nous voir si problème..

[Milyshyn76]

Correct.....c'était l'objet de mon pseudo-code...(rechercher la valeur maximale d'un champ..)

Code :

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

DMax(NomDuChamp; NomTable)+1

...bien sur, ici il faut inclure l'ensemble du numéro de dossier....

..Commence à faire un petit quelque chose et reviens nous voir si problème..

Ou faut-il mettre cette requete SQL ??? dans une procédure ???

[Milyshyn76]

Ou faut-il mettre cette requete SQL ??? dans une procédure ???

J'ai essaié ta syntaxe sql sur une requete, elle ne marche pas!!!!

[Invité]

Bonjour

Peux-tu nous remettre le code que tu as fais en suivant les indications de FreeAccess, peut-être que tu ne la pas mis au bon endroit.

[Milyshyn76]

Bonjour

Peux-tu nous remettre le code que tu as fais en suivant les indications de FreeAccess, peut-être que tu ne la pas mis au bon endroit.

moi c'est plus pour une zone de texte, je voudrai inserer un numero automatique dans une zone de texte, donc j'utilise la propriété(je crois qu'on dis comme ça)avant_maj