Discussion :

[Fabrice7627]

Bonjour,

Le code SQL ci-dessous me permet d'afficher les 4 derniers enregistrements de ma requête X en fonction des dernières dates et heures.

Code :

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

1
2
3
SELECT TOP 4 [rqt X].Date, [rqt X].Heure
FROM [rqt X]
ORDER BY [rqt X].Date DESC , [rqt X].Heure DESC;

Mais je ne sais pas le retranscrire en VBA pour pouvoir filtrer un formulaire selon les n derniers enregistrements.

Merci pour vos solutions.

Fabrice.

[cafeine]

Hello,

et si tu affectes ce SQL au recordsource de ton formulaire ?

[Fabrice7627]

Merci pour ta réponse mais je n'y connais pas grand-chose en VBA.

Mon formulaire est filtré par ce code :

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
23
24
25
26
27
Private Sub btnOK_Click()
Dim strFiltre As String
 
' Filtre sur le type de Jour
On Error Resume Next
strFiltre = ""
If Not IsNull(Me.cmbJour) Then
    strFiltre = "([Jour]='" & Me.cmbJour & "')"
End If
 
' Filtre sur le type de Date
If Not IsNull(Me.cmbDate1) Then
    If strFiltre <> "" Then strFiltre = strFiltre & " AND "
    If Me.cmbDate2 = "" Then
    strFiltre = strFiltre & "([Date] = Format('" & Me.cmbDate1 & "', 'dd mmmm yy'))"
    Else
    strFiltre = strFiltre & "([Date] Between Format('" & Me.cmbDate1 & "', 'dd mmmm yy') and Format('" & Me.cmbDate2 & "', 'dd mmmm yy'))"
    End If
End If
 
' Afficher le résultat
[Filtre] = strFiltre
 
' Filtrer le formulaire
    Me.Filter = strFiltre
    Me.FilterOn = True
End Sub

Et je ne sais pas intégrer un recordsource à cette formule. Si tu peux me donner la voie à suivre, je t'en serais reconnaissant.

Merci, Fabrice.



P.S. : en plus je viens de voir que tu es un spécialiste des formulaires de recherche dynamique et c'est juste ce que je cherche à faire.