Discussion :

[Cybercorp]

Bonjour
Je voudrai savoir s'il est possible, et comment incrémenter un champs d'une base de données automatiquement. Bien sur pour faire simple j'aurai pu me servir du numéro de ligne, mais voilà, le numéro dont j'ai besoin doit être incrementé en fonction de l'année.
Exemple:
En début d'année mon numéro serait 20070001 et en fin d'année 20071458 pour recommencer à 20080001.
Je voudrai que ce numéro soit incrémenté sans saisie de l'utilisateur.

Merci pour vos idées

[LaChips]

Bonjour,
Pour cela, je te conseil de faire une procédure stockée sur ton serveur SQL

[Cybercorp]

J'ai oublié de préciser que j'utilise une Base Access et VB 2005

[LaChips]

J'ai oublié de préciser que j'utilise une Base Access et VB 2005

Dans ce cas, essaye de coder une fonction qui permette de te retourner la valeur suivante...

[Pol63]

à priori ca doit pas trop être faisable coté access (enfin on sait jamais, si y a des champs calculés ...)

sinon tu peux te faire une fonction GetMachinId()
select max(champ) from table
if left(truc retourné,4) < year (now) alors
return year(now) & "000001"

return truc retourné + 1



sinon coté access, faudrait faire une colonne année, une colonne numéro et avoir une colonne qui renvoie colonne_année & colonne_numéro
et remettre incrémentation de numéro à 0 sur changement d'année, pas simple je pense...

[Cybercorp]

J'ai trouvé une solution qui marche avec le DataBinding.

Dans BindingNavigatorAddNewItem_MouseDown, je me place sur le dernier enregistrement (avec moveLast) et je récupère la valeur Numéro.

Code :

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

1
2
Me.T_MatableBindingSource.MoveLast()
        Dernier = NumTextEditor.Text

Dans l'évenement BindingNavigatorAddNewItem_MouseUp je place le nouveau numéro grace à une fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
NumTextEditor.Text = LastNum(Dernier)
 
Private Function LastNum(ByVal Num As String)
        Dim An As String = Num.Substring(0, 4)
        Dim Numero As Integer = Num.Substring(4, 4)
        If An <> Now.Year.ToString Then
            LastNum = Now.Year.ToString & "0001"
        Else
            LastNum = An & Format(Numero + 1, "0000")
        End If
    End Function

Ceci me permet de revenir à 1 lors d'une nouvelle année et de créer un numéro valide si la base est vide.