Discussion :

[edonis]

Bonjour à tous,
Je vias encore solicité vos compétences d'expert voilà ce que je voudrais faire.
J'ai une table avec un champ de Référence(cléf primaire) NuméroAuto
Je voudrai un autre champ NuméroAuto (mais acces ne veut pas grrrr..) mais qui début à une valeure donnée exemple:10000. et à chaque nouvelle donnée il s'incrémente de 1(10001,10002,etc...)
La saisie s'effecuté dans un formulaire.

Si quelqu'un à la solution, je suis son élève.

D'avance merci

[nicou50]

LA solution la plus simple à mon avis et qui fonctionne d'après mes tests:

Code :

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

1
2
 
DoCmd.RunSQL "INSERT INTO table_nr_auto (champ_auto) Select 10000"

Un autre code plus compliqué que j'ai trouvé:

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
 
Option Compare Database
 
Function codeinit_auto()
 
Dim db As Database
Dim rs As Recordset
Dim i  As Integer
 
Set db = Application.CurrentDb
 
Set rs = db.OpenRecordset("table_nr_auto", dbOpenDynaset)
 
For i = 1 To 10000
    rs.AddNew
    rs.Update
    rs.MoveFirst
    rs.delete
Next i
 
End Function

Ou tu pourrais d'abord aller voir cette page en dernier recours: http://support.microsoft.com/default...b%3Bfr%3B94821

Voilà!

[@rkane]

Tu crees dans ta table un champ numerique et tu attribues 10000 au Ier enregistrement.
dans le form tu donnes comme valeur par defaut à ce champ :

Code :

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

=(MaxDom("MonChamp";"MaTable"))+1

[edonis]

Merci pour votre aide.

Je test vos solutions et je vous tiens au courant.

Merci encore

@+

[edonis]

Merci beaucoup c'est exactement la solution simple que je cherchais.

Maintenant, puisque entre temps j'ai avancé il faut que je revois toutes mes liaisons youpi du boulot en perspective.

Enfin l'essentiel n'est-il pas le résultat.

Merci encore, je prends note de l'info dans mes docs.

@+ ne sait-on jamais.

[@rkane]

n'oublies pas le tag "résolu"