[Résolu][Base]Incrementation d'un champs de donnée

[Ribiere]

Bonsoir ,

J'ai fait des progrès , mais j'ai encore besoin des lumières de qui voudra bien me répondre .

Dans une base de données avec des saisies répétitives , Piaf m'a donné des lignes de code à essayer pour recopier les champs identiques d'une ligne sur la suivante Cela marche très bien ( encore merci à lui ) .
Pour pousser le bouchon un peu plus loin est il possible que sur la ligne de saisie suivante la machine propose le numéro de la boucle suivant le précédant : si j'ai marqué 382 sur la première ligne que me soit proposé 383 sur la suivante et ainsi de suite .

Je n'ai pas trouvé mon bonheur dans le forum , alors ....

Merci par avance de vos futures réponses . ( en PJ , une base simplifiée )

Petit clin d'oeil à Piaf qui a déjà lu ma demande postée dans [base)...

[Piaf]

Bonjour
A tester.
La macro est exécutée en te positionnant dans la colonne Numéro de la boucle sur la première ligne vide et an appuyant sur les touches Ctrl + B.

Code : Tout sélectionner

---------------
Case com.sun.star.sdbc.DataType.CHAR, com.sun.star.sdbc.DataType.VARCHAR, _
com.sun.star.sdbc.DataType.LONGVARCHAR
	If NomColonne = "numero" Then
		nb0 = Len(rst.Columns.getByName(NomColonne).getString) - Len(Val(rst.Columns.getByName(NomColonne).getString))
		oForm.Columns.getByName(NomColonne).UpdateString(String(nb0,"0") & Val(rst.Columns.getByName(NomColonne).getString) + 1
	Else						
		oForm.Columns.getByName(NomColonne).UpdateString(rst.Columns.getByName(NomColonne).getString)
	End If
------------

A+

[Ribiere]

Bonjour ,

Merci Piaf , toujours aussi réactif (et efficace ) . Je teste ton oeuvre dès ce soir , en attendant , merci une foi de plus .

D.R

[Ribiere]

Re bonjour

Voila les lignes de codes sont en place et tout marche merveilleusement bien ....

Merci Piaf , tu es vraiment le meilleur .

Je clos le message , merci encore D.R