Discussion :

[uloaccess]

Bonjour,
J'ai une table avec 2 champs (Libellé, Qté).
Je veux qu'à l'ouverture de mon formulaire qui est en feuille de donnée, avoir les données enregistrées melanger dans celui-ci en quantité unique. C'est à dire ma table comporte:
Libellé Qté
Am 5
Yu 4
Gr 3
A l'ouverture de mon formulaire, qu'on ait: (par exple)
Libellé Qté
Yu 1
Am 1
Gr 1
Am 1
Yu 1
Gr 1
Am 1
Am 1
Gr 1
Am 1

Merci.

[Gretch_34]

Salut,

D'abord, tu t'ouvres un recordset qui va te donner le contenu de ta table (disons qu'elle s'appelle TBL_DATA). Tu parcours le recordset et tu insères dans une table qui sera la source de ton formulaire autant de lignes que tu as de libellés.

Le code est le suivant:

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
Dim rs As Recordset
Dim Nb_Libelle As Long
 
Set rs = CurrentDb.OpenRecordset("TBL_DATA", dbopendynaset)
 
DoCmd.SetWarnings False
 
DoCmd.RunSQL "DELETE * FROM TBL_SOURCE"
Do While Not rs.EOF
    For i = 1 To rs("qte")
        DoCmd.RunSQL "INSERT INTO TBL_SOURCE (libelle, qte) VALUES ('" & rs("libelle") & "', 1)"
    Next i
    rs.MoveNext
Loop
DoCmd.SetWarnings True
Me.Requery

Il ne te reste qu'à créer un formulaire affichant les lignes

Attention, ce code ne gère pas :
- les erreurs telles que "qte" = 0 ou "libelle" contient un quote...
- L'ordre aléatoire des lignes (elles apparaitront triées)


Courage!

Gretch