Mettre des chiffres qui se suivent

[AgriPhilou]

Bonsoir,

Dans une table mèmoire comment mettre des chiffres en continus ?

Je m'explique:
Cette table est parfois remplit par une requête Ajout, parfois elle est vide, j'ai besoin d'avoir toujours dans le champ "Suivie" le chiffre 1 en première ligne et la suite 2 3 4 5 6 7 8 9 10 etc. sur les autres enregistrement, si je met un numéroAuto ça ne va pas car il y a plusieurs lancement de requête et du coup les chiffres redémarre à 350 par exemple et non à 1.

Merci.

[mout1234]

Bonsoir,

Je serai curieux de connaitre ce qui motive ce besoin ...

As-tu remarqué qu'en compactant la base de données, lorsque la table est vide, les numéros automatiques redémarrent à 0.


Sinon, si tu initialises ta table avec les numérotation qui te conviennent et qu'au lieu de faire des ajouts tu fais des mise à jour... ça peut le faire, non ?

[AgriPhilou]

Bonjour et Merci,

Je serai curieux de connaitre ce qui motive ce besoin ...

Parce que je veux calculer un solde "message précédent" suivant l'exemple de Starec

Code :

:Solde: CDbl(SomDom("Qté";"table1";"[ordre]<=" & [ordre]))

Si je fais ça dans mon sous formulaire lié à mon formulaire principal ça ne va pas, car les chiffres sur ordre ne se suivent pas ou sont égaux à eux même par exemple 41 41 41, les résultats des soldes sont faux, donc mon idée est de passer par une table mémoire, à chaque sélection d'un produit le sous formulaire afficherait le solde ligne par ligne, et sur chaque clique d'un produit les requêtes actions pourraient modifier cette table pour en voir le résultat, sur chaque clique ordre commençant par 1 2 3 4 5 6 etc.

Je suis clair ?

[Renardo]

peut etre que ce lien pourrait aider
http://www.developpez.net/forums/sho...d.php?t=522337

[AgriPhilou]

J'ai fais un essai avec

Code :

Nz(MaxDom("Ordre";"Table1");0)+1

Dans une requête mise à jour mais le résultat est faux il met le même chiffre partout par exemple 5 au lieu de 1 2 3 4 5 6 7 8 etc.

Une idée ?

Bon Dimanche

[ClaudeLELOUP]

Cette sub fera peut-être l'affaire :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub Renuméroter(NomTable As String, ChampAutoNum As String, ChampRenuméroté As String)
 'ex call Renuméroter("Tst","AutoNum","Renuméroté")
Dim i As Integer
Dim rs As Recordset
Dim sql As String
i = 1
sql = "SELECT " & NomTable & ".* FROM " & NomTable & " ORDER BY " & NomTable & "." & ChampAutoNum & ";"
'Debug.Print sql
Set rs = CurrentDb.OpenRecordset(sql)
Do Until rs.EOF
rs.Edit
rs(ChampRenuméroté) = i
rs.Update
i = i + 1
rs.MoveNext
Loop
End Sub

[AgriPhilou]

Merci Claude, je colle ce sub à quel endrois ?


@ bientôt.

[ClaudeLELOUP]

Dans un module.
Lorsque tu veux "renuméroter", tu appelles la sub

Code :

call Renuméroter("LeNomdeTaTable","LeNompDuChampAutoNum","leNomDuChampARenuméroter")

[AgriPhilou]

Encore merci Claude,

C'est bon, j'ai bien compris.

@+ Bon Dimanche

[AgriPhilou]

Claude,

Lorsque je compile le code il s'arrête sur :

Do Until rs.EOF
rs.Edit

Je fais comment ?

Merci.

[ClaudeLELOUP]

Il te manque probablement une référence.
Ouvre un module.
Dans le menu outils / References
Coche Microsoft DAO 3.6 Object Library.
Compile à nouveau, cela devrait marcher

[AgriPhilou]

Claude,

J'ai bien coché comme tu m'as dis, mais ça ne va pas, j'ai également coché d'autres librairy sans succés.

Encore merci.

[AgriPhilou]

ça semble fonctionner concernant le problème sur .edit

Maintenant il s'arrête sur cette ligne :

Code :

Set rs = CurrentDb.OpenRecordset(sql)

Elle est mise en jaune, je dois créer ma requête en sql peut-être ?

@+

[ClaudeLELOUP]

J'ai testé. Si ça marche chez moi, ... chez toi ça doit marcher
2 causes possibles :
ou bien : les noms indiqués comme paramètres sont mal orthographiés
ou bien : le type de ton champ "A renuméroter" est <> de 'entier'.

Pour analyser :
1° dans la sub retire l'apostrophe " ' " devant Debug.print.
2° exécute la sub
3° récupère le sql généré dans la fenêtre d'exécution
4° crée un requête avec ce sql
5° examine la requête en mode 'création' et tu visualiseras ainsi ton problème.
Bonne continuation

[AgriPhilou]

Merci beaucoup Claude,

Je reprends un rythme normal, le soleil est de retour j'ai beaucoup de travail, cette fois ton code fonctionne.

Encore merci.

@+

[ClaudeLELOUP]

Bonjour Nounours1,

Pour que ceci fonctionne il faut :
1° que la table contienne un champ qui permet de trier la table par ordre de création.
Par exemple un champ du type ‘NuméroAuto’. Cela pourrait aussi être un champ qui, à la création de l’enregistrement, aurait reçu la valeur ‘maintenant()’ par défaut.
Peu importe que ce champ soit la clé.
2° Que la table contienne un autre champ: celui destiné à recevoir le N° de suite continue.
3° A l’instant où on souhaite renuméroter, on appelle (call) la sub avec les 3 paramètres :
‘le nom de la table’
‘le nom du champ qui contient la séquence de création’
‘le nom du champ qui doit accueillir le N° de suite’
4° Que cette fonction soit logée dans un module.
5° Dans les références cocher Microsoft DAO 3.6 Object Library
Au plaisir.