Discussion :

[gbzmt]

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

[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

[gbzmt]

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 :

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

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 :

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

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]

[Maxence HUBICHE]

plutôt ...

Code :

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

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 ?

[gbzmt]

Cela marche et j'ai appris beaucoup de choses
Merci