Discussion :

[priest69]

Bonjour,

Je dispose d'une fonction me permettant d'incrémenter un numéro du type "OT-05-0000"

=Format(MaxDom("clng(right(RefOT,5))";"OT")+1;"""OT-05-""00000")

Or, a variable "05" consiste à décrire l'année en cours. Etant donné que nous sommes en 2006,
j'ai automatiquement modifier dans la fonction la valeur "05" par "06".

Le souci ? Pour moi, le 1er OT de l'année 2006a comme identifiant : OT-06-00001 mais lorsque j'ajoute un
nouvel OT l'incrémentation me donne : OT-06-00192 au lieu de OT-06-00002 ...

Y a-il un moyen de procéder ?

Merci

J4ai aussi essayé mindom() mais ca me donne un tout autre résultat

[tibiurs]

il faut peut etre reinitialise les 5 derniers chiffres a 0 lorsque tu change l'annee
je suppose que le dernier numero de l'annee passe etait 191 ??

[argyronet]

Bonjour,

Tu peux essayer d'exploiter cette fonction qui est dynamique:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function GetMaxCounter(ByVal Prefix As String)
Dim lngCounter As Long
Dim SQL As String
Dim oRS As Recordset
 
  SQL = "SELECT Max(CLng(Mid([MyID],7))) AS MaxValue FROM Table1 HAVING ((" & Chr(34) & "20" & Chr(34) & " & Mid([MyID],4,2)=Year(Now())));"
  Set oRS = CurrentDb.OpenRecordset(SQL, 2)
    With oRS
      If Not .EOF Then
        lngCounter = CLng(.Fields("MaxValue")) + 1
      Else
        lngCounter = 1
      End If
      .Close
    End With
  Set oRS = Nothing
  GetMaxCounter = Prefix & "-" & Format(Now, "YY") & "-" & Format(lngCounter, "00000")
End Function
 
Sub TestCounter()
  Debug.Print GetMaxCounter("OT")
End Sub

MyID est ton champ et Table1 ta table source
Elle marchera jusqu'en 2099... Après, il faudra remplacer le 20
Argy

[priest69]

Okay merci
Mais comment appliquer la fonction suivante :

Code :

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

1
2
3
4
 
Sub TestCounter()
  Debug.Print GetMaxCounter("OT")
End Sub

?

Dois-je l'intégrer dans la valeur par défaut (comme le Maxdom() ) ?

Merci

[argyronet]

Je ne sais pas comment tu insères tes données.
A toi d'exploiter celle-ci dans une clause INSERT via un Execute ou dans une méthode AddNew via une procédure DAO.Recordset...

Le TestCounter() te sert à tester au sein d'un module pour te rendre compte. Je ne suis pas sensé connaître ton niveau d'assimilation du VBA

Argy

[priest69]

Mon niveau en VBA est débutant .. en phase de confirmation lol

Une incompatibilité de type est apparue : la ref de mon OT est stockée dans ma table OT sous le format : OT-05-00001.

Le champ est de type texte bien sûr.

Les ajouts se font via un formulaire, sans utiliser les ADO.

j'utilise uniquement un bouton "enregistrer" pour valider les "Ordre de Travail".

Thanks

[argyronet]

Les ajouts se font via un formulaire, sans utiliser les ADO.

OK...
Puisse t-on voir le code de ton formulaire ?

j'utilise uniquement un bouton "enregistrer" pour valider les "Ordre de Travail

Et celui-là aussi, par la même...

Argy

[priest69]

euh, tu parles de l'ajout des données dans la table OT ? J'utilise l'assistant pour créer un formulaire et je désigne une table source

Ceci étant, j'ai deja utilisé l'ADO pour insérer des données et consulter des tables.

Mais dans mon cas, j'utilise en valeur par défaut la fonction :

Code :

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

=Format(MaxDom("clng(right(RefOT,5))";"OT")+1;"""OT-06-""00000")

Utile ?

Thanks

[Alexandre Sahli]

Bonjour

ce sujet a déjà été traité il n'y a pas si longtemps va voir dans

http://www.developpez.net/forums/vie...light=#2462358

le sujet traite certainement ce que tu cherches

A+

[argyronet]

Donc ton formulaire possède les propriété Ajout autorisé et Entrée de données à Oui.
De ce fait, chaque fois que tu l'ouvres, tous les champs sont vides prêt à être remplis.
Sur l'événement Load(), tu peux alors affecter au champ concerné la fonction précédemment citée:

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Load()
Dim strTableName As String
  'OT pour ton cas
  strTableName = Me.RecordSource
  'Affecte le dernier compteur
  Me!ChampID = GetMaxCounter(strTableName)
End Sub

Argy