Selection de record dans un form

Version imprimable

10/10/2007, 16h50
krhyme

Selection de record dans un form
:salut:, 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:

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.

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

Code:

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.

10/10/2007, 17h22
mout1234
Bonjour,
Citation:
Envoyé par krhyme

:salut:, 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:

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:

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
10/10/2007, 17h25
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 ?
10/10/2007, 17h34
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
10/10/2007, 17h35
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.
10/10/2007, 17h59
mout1234

Citation:

Envoyé par 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.

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...
10/10/2007, 18h13
krhyme

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