Generateur automatique de code dans Access

Merci Choubaka, Je vais essayer ta proposition.

Math

Merci Jean. je me mets au travail tout de suite.
Math

Salut Jean. J'ai essayé ton programme, tout le weekend, mais je me suis heurté à un problème de compilation avec les variables et les déclarations (surtout les commandes SET et DIM) . Pourrais-tu s'il te plait, me redonner ton programme tout entier sans le subdiviser exactement comme il devrait être saisi, et mettre les explications en fin de page ? Pour lancer cette opération comme tu me le demandais , ca se fera à partir d'un boutton sur un formulaire du genre : "Regrouper les élèves"Voici les lignes de programmes que tu m'a envoyé samedi dernier:

ouvrir un recordset avec ta table

dim db as database
dim matable as recordset
set db = currentdb
set matable = db.openrecordset (« eleves »)

balayer un par un tous les champs

with matable
while .eof = false
.
.
insértion du code ci dessous
.
.
.movenext
wend

editer le champ et lui donner la valeur voulue prise dans la variable vnumero

.edit
!NumeroGroupe = vnumero
.update

calculer la valeur de la variable

le plus simple : compter les enregistrements,diviser par 3 et donner ce numero au groupe

au début

dim vcompte as integer
vcompte = 1

après while ...

vnumero = vcompte / 3

avant wend

vcompte=vcompte + 1
Merci de m'aider encore Jean.
A Plus

Le problème avec access c'est que ce qui marche dans une version, ne marche plus dans l'autre. Apparement, tu es en access 2000 ou 2002.
J'ai access 2002 au boulot et effectivement ça plante. Le plus beau, c'est que lorsque je convertis une base 97 programmée de la même manière, je n'ai pas l'erreur. J'ai mis un ami programmeur de métier sur le coup. Je te tiens au courant.

J'ai fait des test et utilisé l'exemple envoyé par mon ami. Apparement, il ne faut plus utiliser database mais connection. Lorsque j'arrive à passer ce cap, le programme butte sur la proprièté edit du recordset qui semble gérée différement. Je te confirme que les lignes ci-dessous marchent en access 97 et sous access 2002 une fois la base convertie mais pour programmer proprement il ne faut plus utiliser les mêmes objets et méthodes. Je n'ai access 2002 qu'au boulot et je ne peux donc pas passer aussi longtemps dessus que je le voudrais. J'espère arriver à finir demain.
En tous cas cela confirme tout à fait ce que je pensais d'access, c'est une vraie vérole avec ses versions différentes. J'en arrive à passer plus de temps à convertir la base que j'ai créée pour le boulot pour que cela fonctionne chez mes différents utilisateurs qui n'ont pas tous la même version qu'a travailler sur le programme lui même.
Dès que je peux, je passe à python.

ci joint le code qui marche sous 97 en attendant.

Dim db As Database
Dim matable As Recordset
Dim vnumero As Integer
Dim vgroupe As Integer
Set db = CurrentDb
Set matable = db.OpenRecordset("eleves")
With matable
vnumero = 1
While .EOF = False
.Edit
vgroupe = vnumero / 3
!numerogroupe = vgroupe
.Update
.MoveNext
vnumero = vnumero + 1
Wend
End With

Salut,

si l'ancienne méthode ne marche pas, c'est sans doute que tu n'as pas validé dans le menu 'references' (accessible par le menu 'outils' quand tu es dans le code), Microsoft DAO x.x object library...

Avec ça, on peut utiliser le code des anciennes versions (et surtout le openrecordset)
A+ Blux

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"