Discussion :

[mymi10]

Bonjour,

Je vais surement poser une question idiote...
Comment faire pour parcourir les enregistrements d'un formulaire Access.

En fait, dans mon formulaire j'ai 3 champs :
champ1, champ2 et Coche

Je voudrais pouvoir récupérer les valeurs de champ1 et champ2 seulement quand coche est vrai.

Pouvez vous m'aider ?

Merci d'avance

[Gabout]

Bonjour,

Tu nous laisses un peu sur notre faim... tu veux récupérer OU, COMMENT, POUR QUOI FAIRE ?

Tu as de nombreuses solutions qui dépendent de ce que tu veux en faire.

[mymi10]

Mon fromulaire va chercher des données dans une table :

MontantFacture, NumFacture, Coche

Je veux pouvoir récupérer le total des Factures et le numéros des factures afin des les affecter à un règlement. Je passe pour cela par des variables, qui sont ensuites transférées dans un autre formulaire

Suis je plus claire ?

[Gabout]

Re,

Décidément, ce soir, j'ai du mal...

Comment faire pour parcourir les enregistrements d'un formulaire Access.

Les formulaires sont là pour présenter les enregistrements stockés dans les tables.
Dans ton cas, un formulaire tabulaire (sous forme de tableau) où chaque enregistrement est sur une ligne semble approprié.

La source de ton formulaire peut être une requête du style

Code :

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

1
2
3
SELECT tblFACTURES.numFacture, tblFACTURES.montanFacture, tblFACTURES.coche
FROM tblFACTURES
WHERE (((tblFACTURES.coche)=Yes));

A partir de ce formulaire, tu visualiseras tes factures et seulement celles pour qui la case sera cochée.

Pour le total de tes factures, en pied de formulaire, tu crées un champ calculé avec comme Source contrôle =Somme([montantFacture])

Je ne sais pas si j'ai répondu à ta question... bon courage !

[mymi10]

J'ai pas du être assez claire.
Mon formulaire affiche bien les factures.
Pour ça pas de problème.

Je voudrais, en cliquant sur un bouton situé en bas du formulaire, pouvoir parcourir tous les champs et récupérer les montants et numéros de factures pour lesquels j'aurai coché les cases.

Est ce plus clair ?

Je sais, j'ai du mal a expliquer mes problèmes en général, c'est souvent un reproche qu'on me fait... désolée

[Renardo]

Tu peut filtrer ton form comme ceci

Code :

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

1
2
3
Private Sub Commande65_Click()
DoCmd.ApplyFilter "", "[Coche]= -1"
End Sub

[Gabout]

Re,

Cela commence à devenir plus clair

Tu te crées 2 boutons auxquels tu colles les codes suivants

Code :

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

1
2
3
4
5
6
7
Private Sub cmdFiltrage_Click()
    DoCmd.ApplyFilter , "coche=yes"
End Sub
 
Private Sub cmdTout_Click()
    DoCmd.ShowAllRecords
End Sub

• Le premier bouton appelé cmdFiltrage met en oeuvre un filtre sur les cases cochées ;
• Le second nommé cmdTout te permet de tout remettre dans l'ordre.

[Gabout]

Mille excuses Renardo je n'avais pas vu ton message

[mymi10]

d'accord, mais comment je récupère mes valeurs pour les mettre dans mes variables ?

[Gabout]

Bonjour,

Là encore, il nous faut plus de renseignements, que veux-tu faire avec tes variables ?

[mymi10]

Les variables, je m'en sers pour remplir un autre formulaire.

[Jeannot45]

Bonjour,

Si tu parles de variables cela signifie que tu travailles en vb.

Tu peux donc sur le clic de ton bouton déclencher un procédure qui va lire les enregitrements que tu auras coché dans le formulaire

A chaque formulaire est associé une source. Celle-ci tu peux la récupérer par
la suite d'instructions :

Code :

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

1
2
dim rsEnregistrements as DAO.Recordset
Set rsEnregistrements = me.RecordsetClone

Il te reste ensuite à parcourir ton jeu d'egistrements et de faire tes cumuls.

Code :

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

1
2
3
4
5
6
7
8
9
With rsEnregistrements
   Do While Not .EOF
     If CaseCochee = True Then
        Compteur1  = Compteur 1 + Champ1
        Compteur2 ....
     End If
     .MoveNext
   Loop
End With

Attention : je n'ai pas testé le code !!!
Bon courage

[mymi10]

Merci beaucoup.
C'est exactement ce que je voulais.


Il ne me reste plus qu'à faire le code