Discussion :

[zebi42]

Bonjour,

J'affiche un formulaire à partir d'un recordset.
Le premier enregistrement du Recordset s'affiche bien, mais comment faire défiler les autres sur l'évenemnt Onclick d'un bouton ?

Merci d'avance

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
Dim Rec As DAO.Recordset
Dim Query As DAO.QueryDef
 
Forms![Affichage_Litige].[SFR_Saisie_Retour].Visible = True
 
'Execution requete paramétrée
 
Set Query = CurrentDb.QueryDefs("Req_Recherche_Ligne_Detail")
Query.Parameters("param") = Forms("Affichage_Litige")![Litige].Column(0)
Set Rec = Query.OpenRecordset
 
 
 
 Me.[SFR_Saisie_Retour].Form![Design] = Rec("Artlib")
 Me.[SFR_Saisie_Retour].Form![NumLig] = Rec("N° Ligne")
 Me.[SFR_Saisie_Retour].Form![Quantité] = Rec("Quantité")
 Me.[SFR_Saisie_Retour].Form![Longueur] = Rec("Longueur")
 
 
End Sub

[fulgaro]

Bonjour,
tu dois mettre ton rec en global
et sur l'événement onclic tu fais une lecture de la valeur suivante...

[zebi42]

Je pense ne pas avoir été très clair:
Ce que je souhaite , c'est lorsque je clique sur un des boutons , la lecture du recordset se fasse.
Comment codofier cela ?

[ft035580]

Salut zebi42,

Tu n'as pas résolu (à priori) ton problème et tu clores ton sujet.

Fais nous part de tes solutions si solutions il y a eu

Merci.

[fulgaro]

Je pense ne pas avoir été très clair:
Ce que je souhaite , c'est lorsque je clique sur un des boutons , la lecture du recordset se fasse.
Comment codofier cela ?

si tu veux que je te le code il faut le demander....
alors tu mets sur l'evenement onclic d'un bouton :

Code :

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

1
2
3
4
5
6
 
 Rec.movenext
 Me.[SFR_Saisie_Retour].Form![Design] = Rec("Artlib")
 Me.[SFR_Saisie_Retour].Form![NumLig] = Rec("N° Ligne")
 Me.[SFR_Saisie_Retour].Form![Quantité] = Rec("Quantité")
 Me.[SFR_Saisie_Retour].Form![Longueur] = Rec("Longueur")

en dessous de
Option Compare Database
Option explicit

tu mets

Code :

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

1
2
 
Dim Rec as DAO.recordset

et voila...
je te laisse pensé aux contrôles qui sont à faire :

aide :

Code :

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

1
2
 
if not rec.eof then ....

et mettre ta requete ainsi que la première lecture de son resultat directement après.
si tu ne mets pas la première lecture après avoir lancé la requête mais sur le clic du bouton il faut que tu mettes le rec.movenext à la fin :

Code :

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

1
2
3
4
5
6
 
 Me.[SFR_Saisie_Retour].Form![Design] = Rec("Artlib")
 Me.[SFR_Saisie_Retour].Form![NumLig] = Rec("N° Ligne")
 Me.[SFR_Saisie_Retour].Form![Quantité] = Rec("Quantité")
 Me.[SFR_Saisie_Retour].Form![Longueur] = Rec("Longueur")
 Rec.movenext

[fulgaro]

Si tu veux faire lire entièrement les enregistrements de ton recorset, je pense que ceci est dans la FAQ et même dans le Forum :

Code :

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

1
2
3
4
5
 
Do WHILE not Rec.EOF 
 ... 
 Rec.movenext
Loop

[zebi42]

Merci Fulgaro, je devrais pouvoir m'en sortir avec tes explications.

[zebi42]

En fait, je ne m'en sort pas.
J'ai mis le code citer plus haut sur le bouton mais j'ai le message suivant lors du clic sur ce bouton:
"Variable objet ou variable de bloc With non définie"

Pouvez-vous me dire ce que cela signifie ?

Merci

[fulgaro]

as tu déclaré toutes les variables ?
et mis le rec en global pour ce form ?