Discussion :

[krhyme]

, je cherche à créer une boucle, basée sur les records selectionnés dans un form (en mode feuille de données).

Un truc du genre(mais qui marche):

Code :

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

1
2
3
4
5
6
7
 
 
For each Record in Form
 
If Record.selected = true then CALL MACRO
 
Next Record

Merci d'avance pour votre aide.

[PhilC]

Bonsoir,
Vous pouvez utiliser une procédure de lecture de table comme le modèle ci-dessous :

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
24
25
26
27
Private Sub LectTable()
 
Dim Connexion As ADODB.Connection
Dim RsEcr As ADODB.RecordSet
 
' Déclaration de la variable de connection
Set Connexion = New ADODB.Connection
' Initialisation des recordsets
Set RsEcr = New ADODB.RecordSet
' Initialisation de la table Ecritures et du mode d'acces a la table
RsEcr.CursorType = adOpenKeyset
RsEcr.LockType = adLockPessimistic
RsEcr.Open "Ecritures", CurrentProject.Connection
 
 RsEcr.MoveFirst
 
    While RsEcr.EOF = False
 
‘ Ici le traitement des enregistrements
 
        RsEcr.MoveNext
    Wend
 
RsEcr.Close
Set RsEcr = Nothing
Set Connexion = Nothing
Exit Sub

Rien de plus.

[mout1234]

Bonjour,

, je cherche à créer une boucle, basée sur les records selectionnés dans un form (en mode feuille de données).

Un truc du genre(mais qui marche):

Code :

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

1
2
3
4
5
6
7
 
 
For each Record in Form
 
If Record.selected = true then CALL MACRO
 
Next Record

Vu le "code" exemple que tu fournis, je pense qu'un tour du coté des tutos te ferais le plus grand bien car je doute, qu'une fois le recordset créé, tu saches correctement le manipuler. D'ailleurs est-ce vraiment un recordset que tu veux manipuler... Quel est ton but?

tuto sur DAO:
http://warin.developpez.com/access/dao/?page=sommaire


Dans ton cas, le plus simple est de s'appuyer sur le recordsetclone (voire recordset) du formulaire.
En DAO, cela donne qq chose du genre

Code :

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

1
2
3
4
5
6
7
8
Dim orst As DAO.Recordset
 
Set orst = Me.recordsetclone
while not orst.EOF
    '... ton code ici
 
    orst.movenext
wend

[krhyme]

Merci PhilC, cependant j'ai deux petites questions:

Quelle est la référence à ajouter, et cette manipulation est-elle possible dans un subform ?

[PhilC]

Pour utiliser les ADO il faut rajouter les bibliothèques suivantes :
- ActiveX Data Object
- ADO Extensions for DDL and Security
- Microsoft Jet and Replication Objects
Avec ces 3 biblio. tu as pratiquement tous les objets nécessaires.
Tu peux utiliser ce code dans n'importe quel module.
Bye

[krhyme]

Merci Mout1234,

C'est vrai que je débute en ACCESS, je suis plutôt un EXCEL-guy.

Je vais t'expliquer ce que je veux faire:

J'ai un formulaire principal dans lequel j'ai placé un bouton "print", je voudrais que lorsque que je clique sur ce dernier, cela me lance un état pour chacun des records séléctionnés dans le subform du formulaire principal.

Merci.

[mout1234]

Merci Mout1234,

C'est vrai que je débute en ACCESS, je suis plutôt un EXCEL-guy.

Je vais t'expliquer ce que je veux faire:

J'ai un formulaire principal dans lequel j'ai placé un bouton "print", je voudrais que lorsque que je clique sur ce dernier, cela me lance un état pour chacun des records séléctionnés dans le subform du formulaire principal.

Merci.

Pas le temps de t'expliquer maintenant mais tu as sans doute plus simple par le biais du paramètre ConditionWhere de la commande OpenReport...

[krhyme]

Ok, je vais me creuser un peu plus la tête, merci quand même.