Discussion :

[integrale]

Salut!

Je cherche un coup de pouce pour résoudre le problème suivant......:
J' ai le résultat d' une requête je veux récupérer dans un controle la valeur d' un champ qui peut me retourner un ou plusieurs enregistrements. Voilà ce que j' ai fait , mais ce n' est pas optimal...

J' ai crée un recordset pour avoir accès aux données de ma requête et j' ai dénombré le nombre d'enregistrements retournés et je rends visible une ensemble de zone de text pour recueillir mes données...avouez que c' est tiré par les cheveux......car si ma requête retourne mille enregistrements, que faire?


Merci de l' aide....

[Maxence HUBICHE]

Ben, t'as pas trop le choix !
C'est quoi l'objectif, exactement ?
Si c'est juste lister les données, une boucle sur un recordset en dbOpenForwardOnly est beaucoup plus rapide.
Ca vaut peut-être le coup

[integrale]

Je vous remercie de vos conseils....en effet en utilisant le code suivant j; ai pu mettre fin à mes soucis......:

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
Dim db2 As Database
Dim r2 As Recordset
Dim i As Integer
Dim j As Integer
Dim reponse3() As String
DoCmd.SetWarnings False
DoCmd.RunSQL ("SELECT Transaction.Commerçant, [Carte Credit].Numero_Carte, Transaction.Adresse INTO T_Commerçantfréquenté FROM (Titulaire INNER JOIN [Carte Credit] ON Titulaire.ID_Titulaire = [Carte Credit].ID_Titulaire) INNER JOIN [Transaction] ON [Carte Credit].ID_CarteApprouvée = Transaction.ID_CarteApprouvée GROUP BY Transaction.Commerçant, [Carte Credit].Numero_Carte, Transaction.Adresse HAVING ((([Carte Credit].Numero_Carte) = '" & Me.txtcarte2 & "')) WITH OWNERACCESS OPTION;")
Set db2 = CurrentDb()
Set r2 = db2.OpenRecordset("T_Commerçantfréquenté", dbOpenTable, dbForwardOnly)
i = r2.RecordCount
For j = 1 To i
ReDim reponse3(j)
reponse3(j) = r2!Commerçant & ""
'lstcommerçantfrequente1.ListRows = j
lstcommerçantfrequente1.AddItem (reponse3(j))
r2.MoveNext
Next j
 
 
r2.Close
db2.Close
DoCmd.SetWarnings True

Merci....l'effort est méritoire......