Discussion :

[gilome]

Bonjour,

Je suis entrain de créer une base de données pour gerer les immobilisation dans ma société
j'aimerais donc avoir un numéro d'immobilisation pour chaque nouvelle entrée il devra être dans ce genre BIO10001 ou BIO le département sera renseigné dans une liste déroulante, 10 l'année en cours et 001 numéro incrémenté
Par contre il faut que l'incrémentation tienne compte du département et de l'année il doit y avoir BIO10001 et ROB10001 ou encore BIO11001

Est ce possible?

merci d'avance

[rjamin]

Bonjour,

Dans un premier temps un lien qui peut vous ouvrir la voie à suivre.

http://access.developpez.com/faq/?pa...reerSonNumAuto

[hajeahmad]

bonjour
Une piste a adapter

Code :
Dep="BIO" ou autre valeur
*
Control_ini = "002"
Control_new = Dep & Year(Date) & Format([Control_ini] + 1, "000")
*
*
Control_new = BIO10003

ahmad

[ClaudeLELOUP]

Bonjour rjamin,

J'ai essayé de suivre ton lien. Sans succès.

Bonjour gilome,

Je ferais comme ceci

- dans la table des immobilisations un champ autoNum ----> parmi tous les enregistrements BIOyy , le dernier ajouté est celui qui a le plus grand autonum parmi ses paires.
- dans ton formulaire d’encodage d’un nouveau poste :
** construire une chaîne BIOyy
** rechercher le plus récent dont le matricule est comme BIOyy & "*"
si pas trouvé ---> matricule = BIOyy001
si trouvé ---> ajouter 1 au dernier matricule

Code :

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

Matricule = left(Matricule,5) &  format( Right(Matricule,3)+1,"#,#000")

[gilome]

Merci pour vos réponse

mais le problème c'est que j'ai plusieurs département et que pour chaque département ma numérotation doit repartir de 001

[ClaudeLELOUP]

Où est le problème ? "BIO" ce n'est pas le département ?

donne un exemple concret pour le 33ème de cette année.
Qu'y a t-il dans la table pour le 32ème ?

[gilome]

Le problème c'est que BIO n'est pas le seul département il y en a 4 autre

Au niveau des exemples c'est pas évident mais le 32eme dans la table peut s'appeler ROB10005 ou encore GA10008 ca dépend du nombre d'élément enregistrer dans chaque départements

c'est pour ca que j'ai un peu de mal car le numéro d'immobilisation doit tenir compte du département de l'année et du nombre d'élément qu'il y a au sein de ce département

[ClaudeLELOUP]

OK, j’adapte mon 1er texte
Je ferais comme ceci

- dans la table des immobilisations un champ autoNum ----> parmi tous les enregistrements DEPARTEMENTyy , le dernier ajouté est celui qui a le plus grand autonum parmi ses paires.
- dans ton formulaire d’encodage d’un nouveau poste :
** construire une chaîne DEPARTEMENTyy
** rechercher le plus récent dont le matricule est comme DEPARTEMENTyy & "*"
si pas trouvé ---> matricule = DEPARTEMENTyy001
si trouvé ---> ajouter 1 au dernier matricule

Où département = soit BIO, soit ROB ….

le 32 ème ROB de cette année s’appelle ROB10032 ok ?
Si je comprends ton exemple le département ce n’est pas toujours 3 caractères ? (ex GA)

[gilome]

Je pense qu'en theorie ca devrait marcher
Par contre sans vouloir abuser est que vous pouvez m'abuser pour le code

[gilome]

autant pour moi m'aider pour le code et la marche a suivre

[ClaudeLELOUP]

J'ai besoin de plus de détail.
Peux-tu poster une DB compatible Access2000 ?
et me dire le nom du formulaire et celui de la table ?

[gilome]

Malheureusement access ne veut pas l'enregistrer sous un format compatible access 2000

sinon la table se nomme IMMO et le formulaire Details Immo

si vous ne pouvez pas sans la DB c'est pas grave j'y arriverai bien un jour ou l'autre

[ClaudeLELOUP]

poste l'image du formulaire ouvert

poste l'image de la définition de la table.

Je reviens après 19:30

[gilome]

Voila les images de ma base

Merci d'avance

[ClaudeLELOUP]

Je ne connais pas les écrans de Access2007

Question 1
Sur Base Immo.jpg les noms que je lis au-dessus des colonnes : N_immo, Département …. sont-ils les noms des contrôles dans le formulaire ?

Question 2
Comment déclenches-tu la mise à jour de la table (clic sur un bouton ?, lequel ?)


IMMO creation.jpg le nom de la table est "‘IMMO" OK ?

[gilome]

Question 1
oui

Question 2
Pour entrer une nouvelle Immo je clique sur enregistrer et nouveau dans le fomulaire

et le nom de la table est bien IMMO

[ClaudeLELOUP]

Je te propose ceci :

1° tu crées une requête appelée : "rIMMO" dont voici le sql

Code sql :

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

1
2
3
4
SELECT TOP 1 IMMO.Enregistrement, IMMO.N_IMMO
FROM IMMO
WHERE (((IMMO.N_IMMO) Like "*" & [Formulaires]![IMMO]![Département] & Format(Date(),"yy") & "*"))
ORDER BY IMMO.Enregistrement DESC;

Lorsque le formulaire IMMO est ouvert et que le champ Département est complété, la requête donne le matricule précédent pour ce département ou null si c’est le 1er investissement de cette année pour ce département.
Vérifie que cette requête fonctionne chez toi.


2° Dans ton formulaire, crée un bouton de commande appelé "btnMettreAJour" , auquel tu associes le code suivant pour l’événement "sur clic"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub btnMettreAJour_Click()
Dim Matricule As String
'si N_Immo est null, c'est qu'il s'agit d'un nouvel enregistrement  --> calculer le matricule
If IsNull(Me.N_Immo) Then
   Matricule = Nz(DLookup("N_immo", "rImmo"), "") 'vide si pas dans la table
     If Matricule = "" Then 'si vide --> 1er de cette année
          Me.N_Immo = Me.Département & Format(Date, "YY") & "001"
     Else                   'si précédent existe --> +1
          Me.N_Immo = Left(Matricule, Len(Matricule) - 3) & Format(Right(Matricule, 3) + 1, "#,000")
     End If
End If
End Sub

pour tester :

ouvre ton formulaire
affiche un existant
clic sur le bouton ----> rien ne se passe

Crée un nouveau pour un département qui a déjà investi cette année --->
on ajoute 1

Crée un nouveau pour un département qui n'a pas encore investi cette année ---> département001.

Préviens quand OK.

[gilome]

Alors la requête fonctionne

Mais quand je clic sur le bouton associe au code que tu as fait rien ne se passe quand le champ N_Immo est vide

Autant pour moi les macro VBA était désactive mais il reste quand même un problème access me dit qu'il ne trouve pas le champs Me.departement

Problème du champ département réglé en fait il faut ecrire Me!département
Par contre il me dit qu'il y a un probleme aau niveau
Matricule = Nz(DLookup("[N_Immo]", "rIMMO"), "") 'vide si pas dans la table

Dernier EDIT : problème résolu c'était un problème dans le code SQL de la requête

Donc ca marche Merci Beaucoup