Discussion :

[Jean-Michel Sojic]

Bonjour,
Mes connaissances en Access sont TRES basiques !
Voyez-vous comment je pourrais ajouter un nombre X d'enregistrements dans une table. Chacun de ces enregistrements étant semblable en tous points exceptés un identifiant numérique unique. Il s'agit de mettre à jour régulièrement l'état d'un stock.
Supprimer X enregistrements de cette table peut être fait manuellement ( ce que je fais, bien qu'il doit exister des méthodes moins barbares ! ). Pour les ajout par contre, la méthode la plus rapide que j'utilise ( encore moins catholique ! ) consiste à copier une ligne de la table vers Excel, l'y recopier autant de fois que nécessaire, y incrémenter l'identifiant, et recoller tout ça dans la table Access.
Merci pour vos conseils.

[Heureux-oli]

Bonjour et bienvenue sur les Forums Office de DVP.

Pour ajouter un certain nombre d'enregistrements identiques, il faut utiliser du DAO.

Mais je ne comprend pas pourquoi ajouter plusieurs fois la même ligne

Si c'est pour une gestion de stock, dix lignes avec 1 ou une ligne avec 10, c'est pareil !
Mis à part le nombre de lignes.

[Jean-Michel Sojic]

Effectivement, un stock peut se résumer à une description ET une quantité, dans un seul et même enregistrement. La table dont il est ici question est utilsée par un système SIG ( Geomap ) qui est avant tout une application graphique.
En gros, je gère sur Autodesk Map, couplé à l'appli Geomap, des plans as-built qui contiennent entre autres objets, des éléments de mobilier. Chacun de ces élément est également inscrit dans un enregistrement. Je dois parfois ajouter un grand nombre d'élément dans un local de type "stock". L'affichage de ces élément importe peu, puisqu'il ne s'agit que d'un stock, où la disposition du mobilier est totalement sans importance. Par contre, dans Geomap, on ne peut pas parler d'un groupe d'élément, chaque élément étant considérer comme un et un seul enregistrement. Il s'agit donc bien ici de 10 lignes avec 1 et non 1 ligne avec 10, je n'y coupe pas !
Merci pour le renseignement concernant le DAO. Je vais m'informer dans ce sens...dès que je saurai de quoi il s'agit !
@+

[Heureux-oli]

Pour le DAO, c'est ICI

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
22
23
 
Sub AjoutLigne()
Dim db as DOA.Database
Dim rs as DAO.RecordSet
Dim i, j as integer
 
 
Set db = CurrentDB
i = inputbox("Nombre de ligne",vbOKonly)
Set rs = db.openrecordset("Matable", opentable)
 
for j = i to 0
rs.addnew
rs.fields("Monchamp1") = "Mavaleur"
rs.fields("MonChamp2") = "MonAutreValeur"
rs.update
i = i-1
next j
 
rs.close
db.close
Set rs = nothong
set db = nothing

Voilà ce que devrait donner le code

[Jean-Michel Sojic]

Grand merci, je découvre le cours DAO...bien des heures et des nuits de découvertes en perspectives !

[Heureux-oli]

Si j'avais vu que tu étais liégeois, j'aurais pas répondu !
Namur c'est le plus loin que j'ai décidé de faire.

[Jean-Michel Sojic]

Bigre ça te fait un fameux pas de géant, de Morlanwelz à Lidge !
Il n'y a plus de limites...

[vodiem]

si tes enregistrements existaient avant et que tu souhaites faire une maj de leur champ stock pourquoi ne pas essayer avec une requete maj?

Code :

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

1
2
DoCmd.RunSQL "UPDATE MaTable SET MaTable.NbStock = 10
WHERE (MaTable.Id=1) OR (MaTable.Id=2);"