J'ai un tri multicritères dans un formulaire avec des champs indépendants (liste déroulante
dans l'en tête puis parcourir une fonction de filtrage). La fonction est du type
Private Sub Modifiable48_AfterUpdate(
Dim strFiltre As Strin
strFiltre = "
If Not IsNull(Modifiable48) The
strFiltre = " AND [ENERGIE]='" & Me!Modifiable48 & "'
End I
etc ...
'supprimer le premier "AND
strFiltre = Mid(strFiltre, 5
Me.Filter = strFiltr
Me.FilterOn = Tru
End Su
Comment puis faire que je tri les valeurs de ENERGIE qui soient > à Modifiable 48
Ou mettre les > dans la fonction
Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
je le mettrais là: strFiltre = " AND [ENERGIE] > '" & Me!Modifiable48 & "'"
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Denis22" a écrit dans le message de news:
J'ai un tri multicritères dans un formulaire avec des champs indépendants (liste déroulante
dans l'en tête puis parcourir une fonction de filtrage). La fonction est du type :
Private Sub Modifiable48_AfterUpdate() Dim strFiltre As String strFiltre = "" If Not IsNull(Modifiable48) Then strFiltre = " AND [ENERGIE]='" & Me!Modifiable48 & "'" End If etc ....
'supprimer le premier "AND" strFiltre = Mid(strFiltre, 5) Me.Filter = strFiltre Me.FilterOn = True End Sub
Comment puis faire que je tri les valeurs de ENERGIE qui soient > à Modifiable 48 ?
Ou mettre les > dans la fonction ? Merci
Bonjour.
je le mettrais là:
strFiltre = " AND [ENERGIE] > '" & Me!Modifiable48 & "'"
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Denis22" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:8D2C4B40-E636-4A03-B20D-9178C85926E7@microsoft.com...
J'ai un tri multicritères dans un formulaire avec des champs indépendants
(liste déroulante
dans l'en tête puis parcourir une fonction de filtrage). La fonction est
du type :
Private Sub Modifiable48_AfterUpdate()
Dim strFiltre As String
strFiltre = ""
If Not IsNull(Modifiable48) Then
strFiltre = " AND [ENERGIE]='" & Me!Modifiable48 & "'"
End If
etc ....
'supprimer le premier "AND"
strFiltre = Mid(strFiltre, 5)
Me.Filter = strFiltre
Me.FilterOn = True
End Sub
Comment puis faire que je tri les valeurs de ENERGIE qui soient > à
Modifiable 48 ?
je le mettrais là: strFiltre = " AND [ENERGIE] > '" & Me!Modifiable48 & "'"
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Denis22" a écrit dans le message de news:
J'ai un tri multicritères dans un formulaire avec des champs indépendants (liste déroulante
dans l'en tête puis parcourir une fonction de filtrage). La fonction est du type :
Private Sub Modifiable48_AfterUpdate() Dim strFiltre As String strFiltre = "" If Not IsNull(Modifiable48) Then strFiltre = " AND [ENERGIE]='" & Me!Modifiable48 & "'" End If etc ....
'supprimer le premier "AND" strFiltre = Mid(strFiltre, 5) Me.Filter = strFiltre Me.FilterOn = True End Sub
Comment puis faire que je tri les valeurs de ENERGIE qui soient > à Modifiable 48 ?
