Créer un champ Compteur

[nicolas]

Je veut créer un champ qui va s'incrémenter à chaque nouvelle foche de crée ..QQ peut t'il m'aider sur le code ..Ce champ est une clé unique Qui s'incrémente et qui est un compteur ..merci

[S.DANEM]

Tu crées un champ modifiable et tu utilise ce code(bien après avoir créé la vue "nomview") :REM "Récupération du nombre actuel";Tmp:=@DbColumn("":"NoCache";"":"";"nomview";1);Nb:=@Elements(Tmp);NbInf:="0"+@Text(Nb+1);@If(Nb<9;NbInf;Nb)

[nicolas]

- Oui mais j'utilise Lotus scirpt et pas les formules ....Merci pour ton aide ....Voilà mon code ... Sub Postopen(Source As Notesuidocument) Dim cpt As Double Dim doc As NotesDocument Dim ProfileDoc As NotesDocument Dim session As New NotesSession Dim db As NotesDatabase Dim initiales$ Dim refDate$ If Not (Source.IsNewDoc) Then Exit Sub Set doc=Source.document *** Comment récupérer la dernière valeur de cpt ? pour qu'il puisse aprés incrémenter ....Merci .... ****Parce que sinom il part toujours de 0 . cpt = cpt+1 Set db=session.currentDatabase Set ProfileDoc = db.GetProfileDocument("ProfileUser",session.userName) initiales$=ProfileDoc.ProfileInitiales(0) refDate$=Format( Date$ , "yyyymmdd" ) doc.PdtRefPdt=initiales + "/"+refDate$+"/"+Str$(cpt) doc.form="Produit" Call doc.save(True,True) Exit Sub

[Sylvain]

Base toi sur une vue qui affiche tous tes documents.En premiere colonne, tu affiches le numéro des fiches.Tu la tri dans l'ordre décroissant.A chaque nouveau document tu as juste à récupérer le numéro du premier document de la vue et l'incrémenter de un pour obtenir le nouveau numéro.Exemple :---------8<----------8<-----------set vue = db.getview("....")set docCompteur = vue.getFirstDocumentintCompteur = docCompteur.NumFich(0) + 1---------8<----------8<-----------[%sig%]

[nicolas]

Dans mon code comment je peut l'écrire .... ? ?