VBA : Comment ajouter un critère de filtre dans une requête

Version imprimable

22/02/2008, 07h34
gbzmt

VBA : Comment ajouter un critère de filtre dans une requête

Bonjour,

Je vais poser ma question d'hier soir d'une façon plus "naïve"
1)Comment ajouter un critére de filtre d'un champ d'une requête (DAO)
2)Comment l'annuler

Merci
22/02/2008, 08h44
Maxence HUBICHE
tu as plusieurs solutions, chaque solution dépendant de la technologie que tu vas mettre en place.
- DAO
  tu peux utiliser les méthodes FindFirst et FindNext sur ton recordset
- ADO
  tu peux utiliser la méthode Filter
- DAO & ADO
  Tu peux utiliser une requête(QueryDef) paramétrée, et passer par la propriété Value de ton objet Parameter pour définir ton critère de sélection. Ensuite, tu obtiens le recordset directement depuis ton QueryDef

Merci pour ta réponse,
J'ai utilisé la 3iéme méthode, j'arrive bien à passer le paramétre, mais je ne sais pas récupérer ensuite la valeur du champ "dossard"
Voici mon code et le SQL de la requête

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub ChercheDossardMax(c)
    Dim SérieDossard As Object ' N°SérieDossard correspondant à une course
    Dim CoureursEngagésR As QueryDef
    Dim sd As Integer
    Set SérieDossard = MaBase.OpenRecordset("CoursesDossards", dbOpenDynaset)
    critère = "[Désignation]=" & "'" & c & "'"
    SérieDossard.FindFirst critère
    sd = SérieDossard.[SérieDossard]  'N° SérieDossard
    Set CoureursEngagésR = MaBase.QueryDefs("CoureursEngagésR")
    CoureursEngagésR.Parameters("SD").Value = sd
End Sub

Code:

1
2
3
4
PARAMETERS SD Byte;
SELECT [DEFINIRCourses].[SérieDossard], Max([CoureursEngagés].[Dossard]) AS MaxDeDossard
FROM CoureursEngagés INNER JOIN DEFINIRCourses ON [CoureursEngagés].[Compétition]=[DEFINIRCourses].[Désignation]
GROUP BY [DEFINIRCourses].[SérieDossard]

plutôt ...

Code:

1
2
3
4
5
6
7
8
9
Sub ChercheDossardMax(c)
    Dim SérieDossard As DAO.Recordset
    Dim CoureursEngagésR As DAO.QueryDef
    Dim sd As Integer
    sd = dlookup("SérieDossard","CoursesDossards", "[Désignation]=" & "'" & c & "'")  'N° SérieDossard
    Set CoureursEngagésR = MaBase.QueryDefs("CoureursEngagésR")
    CoureursEngagésR.Parameters("SD").Value = sd
    Set SérieDossard = CoureursEngagésR.OpenRecordset
End Sub

Non ?

22/02/2008, 10h02
gbzmt

Bravo

Cela marche et j'ai appris beaucoup de choses
Merci