Discussion :

[mrbacardi]

Bonjour,

J'ai eu l'heureuse initiative de proposer mes services pour la création d'une mini base de données de gestion de projet en Access.

J'ai une table "Projet" qui contient entre autres, un nom, le nom du portefeuille (menu déroulant) et une référence (clef primaire). J'ai également une table "Portefeuille" qui contient le Nom, un code (3 lettres) et NbProjet (entier).

J'aimerais lorsque j'encode un projet depuis un formulaire, il me calcule une référence de projet et de passer à l'enregistrement suivant).

La référence est composé du Code portefeuille "-" année en cours "-" NbrProjet (Expl: NUM-2018-001)

J'ai créé un bouton avec le contenu suivant:

Code :

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

1
2
3
4
Private Sub AjoutEnregistrement_Click()
NbrProjet = NbrProjet + 1
Me.Référence = Me.Code & "-" & Year(Date) & "-" & Format(NbrProjet, "000")
End Sub

A priori, ca marche, mais comment je fais pour passer à l'enregistrement suivant ?

D'avance merci !

[bertiny]

Bonjour

Code :

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

1
2
3
4
5
Private Sub AjoutEnregistrement_Click()
NbrProjet = NbrProjet + 1
Me.Référence = Me.Code & "-" & Year(Date) & "-" & Format(NbrProjet, "000")
DoCmd.GoToRecord , , acNext
End Sub

[Invité]

Bonjour,

Dans le cadre de mon travail j'ai rencontré ce genre de problème pour incrémentation de version de projets.

J'utilise une table que j'ai bizarrement appelé T_AutoIncrement.

Elle contient les champs Quoi et Increment.

Je l'utilise à partir d'une fonction.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function AutoIncrement(Quoi as string) As string
Dim rs as object
Set rs=Currentdb.openrecordset("Select * from T_AutoIncrement where Quoi='" & Quoi & "'")     
If RS.EOF THEN
RS.Addnew
Else
Rs.edit
End if
Rs.Quoi=Quoi
Rs.Increment=Rs.Increment +1
Rs.update
Increment=format(Rs.Increment ,"000")
Rs.close
End function