Le portail francophone de la géomatique

De: Yann D
Bonjour a tous,

J'aurais besoin de vos conseils pour creer un code identifiant dans un champs de type entier long (a partir de la calculette).
Il en existe deja un (objectid), mais je voudrais pouvoir le debuter au chiffre desire.
Exemple : Creer un id a partir de 59251...

Avec une recheche je suis arrive a un code de ce type :

Dim oCursor As ICursor
Dim oRow As IRow
Static rec As Long
Dim ValDepart As Long
Dim ValIntervale As Long

' Ajuster les deux parametres suivants

ValDepart = 1
ValIntervale = 1

'Instancie le curseur

Set oCursor = oTable.Search(Nothing, False)
Set oRow = oCursor.NextRow

'Parcours des Enregistrements

While Not oRow Is Nothing

'ACTION

Set oRow = oCursor.NextRow
If (rec = 0) Then
rec = ValDepart - ValIntervale
End If
rec = rec + ValIntervale
Wend

Je sais pas vraiment si je suis sur la bonne piste...

Merci a tous,

Yann D
AGUR Dunkerque