Filter

[Résolu]
Signaler
Messages postés
156
Date d'inscription
dimanche 19 novembre 2006
Statut
Membre
Dernière intervention
20 novembre 2013
-
Messages postés
156
Date d'inscription
dimanche 19 novembre 2006
Statut
Membre
Dernière intervention
20 novembre 2013
-
Bonjour

je veux faire un filter sur 4 caractères d'un champ de 8 caractères aide moi svp
voici

st = Left((tablo(11)), 4)
Adodc1.Recordset.Filter = "code_s=" & Chr(4) & Trim(st) & "'"

merci d'avance

7 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
donc, je t'ai répondu (Opérateur Like) !


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
Bonjour,

je veux faire un filter sur 4 caractères d'un champ de 8 caractères aide moi svp

Ben ...
Tout dépend des 4 caractères que tu veux choisir pour filtrer !
Car pour l'instant, tu as choisi un filtre d'une logueur de :
Len(st) = 4 (puisque les 4 caractères à gauche de tablo(11)
+ (len(ch(4)) = 1
+ len(code_s"=") = 7
+ len(') = 1
donc 13 caractères !
Sans compter l'aspect plutôt curieux de ton filtre !

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
Bon...
Si je comprends bien, tu veux filtrer sur le champ code_s
- M'étonnerait beaucoup que tu aies des données commençant par le caractère de code 4 !
- M'étonnerait également que tu en aies se terminant par un guillemet

Et tu veux quoi ? Filtrer sur une égalité ? filtrer sur "commençant par ces caractères" ? filtrer sur "contenant ces caractères" ?
Sois précis !
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
Et intéresse-toi à ce qu'est et à quoi sert l'opérateur Like.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
Voilà par exemple si tu veux filtrer les champs code_s commençant par tes ' caractères :
"code_s like """ & Trim(st) & "*"""

A toi d'adapter selon ce que tu cherche (devant, derrière ou dedans) !

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Messages postés
156
Date d'inscription
dimanche 19 novembre 2006
Statut
Membre
Dernière intervention
20 novembre 2013

Bonjour

je voudrais comparer le contenu de st de 4 caractères avec le quatre premier caractères de code_s dans un filtere
exemple
le lis le contenu de code_s qui est de "10210011"
j'affecte les quatre premier caractères a st donc ="1021"
et dans le filter le cherche l’enregistrement sur les quatre premier caractères donc
je prend st = Left((tablo(11)), 4) donc st="1021"
et je filter sur code_s qui est = a "10210011"
donc mon filtre doit se basé sur les quatre caractères

merci
Messages postés
156
Date d'inscription
dimanche 19 novembre 2006
Statut
Membre
Dernière intervention
20 novembre 2013

Bonjour

erreur : La ligne n'a pas pu être trouve pour la mise a jour certains valeurs ont pu être change depuis leurs dernière lecture.

a chaque fois dans le même enregistrement le 28 éme


Dim tablo() As String
Dim d, f, g, h, k, l, m, n As Double
Dim b, c, o As String
Dim e As Long

Open "C:\maintenance\cons.txt" For Input As #1

While Not EOF(1)
Input #1, a$
tablo() = Split(a$, "|")
b = "0212"
c = tablo(1)
d = tablo(2)
e = tablo(3)
f = tablo(4)
g = tablo(5)
h = tablo(6)
k = tablo(7)
l = tablo(8)
m = tablo(9)
n = tablo(10)
o = tablo(11)

'st = Left((tablo(11)), 4)
'Adodc1.Recordset.Filter ="code_s like """ & Trim(st) & "*"""


Adodc1.Recordset.Filter = "code_s='" & Trim(o) & "'"

If Adodc1.Recordset.RecordCount = 0 Then

bdd.Execute "INSERT INTO recette values ('" & b & " ','" & c & "'," & _
" '" & d & " ','" & e & "'," & _
" '" & f & " ','" & g & "'," & _
" '" & h & " ','" & k & "'," & _
" '" & l & " ','" & m & "'," & _
" '" & n & " ','" & o & "')"
Else
Adodc1.Recordset.Fields(5).Value = Adodc1.Recordset.Fields(5).Value + g
Adodc1.Recordset.Update
End If
o = ""
Adodc1.Refresh

Wend

Close #1