Filtre multi-critère sur champ monétaire
Résolu
picsoin
Messages postés
172
Statut
Membre
-
picsoin Messages postés 172 Statut Membre -
picsoin Messages postés 172 Statut Membre -
Bonjour à tous,
Débutant en VBA j'ai développé une petite apli bien sympatique.
J'ai appliqué un modèle copié sur un site de filtre multi-critère dans un formulaire.
Un modèle que l'on voit un peu partout rédigé par un certain Caféine ...
Touts mes filtres dans le code ci-dessous fonctionne sauf un: un champ de type monétaire. J'ai un message "type de donnée incompatible".
Merci de votre aide pour résoudre mon ignorance...
Débutant en VBA j'ai développé une petite apli bien sympatique.
J'ai appliqué un modèle copié sur un site de filtre multi-critère dans un formulaire.
Un modèle que l'on voit un peu partout rédigé par un certain Caféine ...
Touts mes filtres dans le code ci-dessous fonctionne sauf un: un champ de type monétaire. J'ai un message "type de donnée incompatible".
Merci de votre aide pour résoudre mon ignorance...
Private Sub Rlibellé_AfterUpdate() f = "" 'Déclaration du filtre sur Libellé If Not IsNull(Me.RLibellé) And Me.RLibellé <> "" Then f = "Libellé LIKE ""*" & Me.RLibellé & "*""" End If 'Déclaration du filtre sur Tiers If Not IsNull(Me.RTiers) And Me.RTiers <> "" Then If f <> "" Then f = f & " AND Tiers = """ & Me.RTiers & """" Else f = "Tiers LIKE ""*" & Me.RTiers & "*""" End If End If <bold>'Déclaration du filtre sur Prix If Not IsNull(Me.Rprix) And Me.Rprix <> "" Then If f <> "" Then f = f & " AND Prix= """ & Me.Rprix & """" Else f = "Prix LIKE ""*" & Me.Rprix & "*""" End If End If </bold> 'Déclaration du filtre sur Date d'opération If Not IsNull(Me.Rdate1) And Me.Rdate1 <> "" And Not IsNull(Me.Rdate2) And Me.Rdate2 <> "" Then If f <> "" Then f = f & " AND clng([Date d'opération]) BETWEEN " & CLng(Me.Rdate1) & " AND " & CLng(Me.Rdate2) & "" Else f = "clng([Date d'opération]) BETWEEN " & CLng(Me.Rdate1) & " AND " & CLng(Me.Rdate2) & "" End If End If 'Fin des déclarations sur champs Me.Filter = f Me.FilterOn = True End Sub
A voir également:
- Filtre multi-critère sur champ monétaire
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Filtre whatsapp - Accueil - Messagerie instantanée
- Filtre teams - Accueil - Visio
- Youtube multi downloader - Télécharger - Conversion & Codecs
- Sfr multi - Accueil - Opérateurs & Forfaits
Il y a du changement, j'ai le droit au message suivant:
"Entrer la valeur du paramètre "
Faux
Si je je mets (j'ai rajouté des ")
J'ai:
"Entrer la valeur du paramètre "
Prix
J'ai essayé aussi le remplacement de Like par =.
Pareil
.....
Si tu pouvais nous mettre ton classeur, sans éléments personnels, se serait plus facile de t'aider : cela évite de recréer le contexte du formulaire.
Pour communiquer ton classeur tu le télécharges sur https://www.cjoint.com/ (mode d'emploi) et tu mets ici le lien obtenu.
Au fait, c'est pas sous Excel mais Access ...
Alors j'ai testé en copiant strictement les lignes de code pour le filtrage du champ DateAchat et j'ai remplacé par le nom Rprix et Prix. J'ai changé la propriété de Rprix en monétaire.
Bingo! Ça fonctionne!!!!
Ce qui donne:
Eh bien voilà, il ne faut avoir peur de soumettre son problème aux autres : si l'on n'a pas une aide évidente des autres, cela fait tout de même progresser la solution.