OVH Cloud OVH Cloud

Pour Raymond suite du poste du 08/02/05 probleme de filtre

17 réponses
Avatar
yannick
bonsoir excuse moi Raymond,
suite à l'autre jour je n'arrive pas à avancer.
j'ai pour code:
Private Sub TBrecherchecp_Change()
Lbcedex.RowSource = "SELECT [cedex].[N°cp],[cedex].cp, [cedex].Ville FROM
[cedex] WHERE ([cedex].cp like '" & TBrecherchecp.Text & "*' )and
([cedex].ville like '" & TBrechercheVille.Value & "*' ) order by CP"
End Sub

D'apres toi il fallait faire: reponse du post
dans ce cas on ne peux pas tout faire d'un seul coup car il y aura des Null
de partout et des non Null aussi. Il faut faire une 1ere requête pour
sélectionner que les null ou que les non Null et ensuite les villes
commençant par Y par exemple.

Peux tu m'aiguiller car je n'arrive pas.

Merci pour ton aide.

@+

Yannick

7 réponses

1 2
Avatar
yannick
Je te remercie encore
je ne sais pas si je vais enfin trouver une soltion a mon probleme
@+
Yannick



ce qui n'est pas bon:
Je recherche soit par TBrecherchecp soit par TBrechercheVille ou bien les
2
en meme temps.
donc tu ne prends jamais les valeurs nulles soit d'un cp soit d'une ville ?

oui ou non ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yannick" a écrit dans le message de
news:
Non cela peut etre soit sur le cp soit sur la ville

exemple:
si je saisi TBrecherchecp= 000 j'obtiens cela alors que je ne veux pas la
premiere ligne ( AAAAA)
CP VILLE
AAAAA
00000
00001 TEST2
00002 TEST3

Voici mon code modifie

Private Sub TBrecherchecp_Change()
Lbcedex.RowSource = "SELECT [cedex].[N°cp],[cedex].cp, [cedex].Ville FROM
[cedex] WHERE ([cedex].cp like '" & TBrecherchecp.Text & "*' Or [cedex].cp
Is Null ) and ([cedex].ville like '" & TBrechercheVille & "*' Or
[cedex].Ville Is Null)order by CP"
End Sub

Private Sub TBrechercheVille_Change()
Lbcedex.RowSource = "SELECT [cedex].[N°cp],[cedex].cp, [cedex].Ville FROM
[cedex] WHERE ([cedex].cp like '" & TBrecherchecp.Value & "*' Or
[cedex].cp
Is Null)and ([cedex].ville like '" & TBrechercheVille.Text & "*' Or
[cedex].Ville Is Null)order by CP"
End Sub

Je recherche soit par TBrecherchecp soit par TBrechercheVille ou bien les
2
en meme temps.

J'espere que tu vois ce que je veux faire

@+

Yannick







Avatar
Raymond [mvp]
en partant sur cette donnée tu ne peux pas arriver à une solution, sauf à
rajouter un contrôle supplémentaire sur le formulaire de type oui/non pour
indiquer qu'il faut prendre les valeurs Null dans la requête.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yannick" a écrit dans le message de
news:
Je te remercie encore
je ne sais pas si je vais enfin trouver une soltion a mon probleme
@+
Yannick



ce qui n'est pas bon:
Je recherche soit par TBrecherchecp soit par TBrechercheVille ou bien
les
2
en meme temps.
donc tu ne prends jamais les valeurs nulles soit d'un cp soit d'une ville

?
oui ou non ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yannick" a écrit dans le message de
news:
Non cela peut etre soit sur le cp soit sur la ville

exemple:
si je saisi TBrecherchecp= 000 j'obtiens cela alors que je ne veux pas
la
premiere ligne ( AAAAA)
CP VILLE
AAAAA
00000
00001 TEST2
00002 TEST3

Voici mon code modifie

Private Sub TBrecherchecp_Change()
Lbcedex.RowSource = "SELECT [cedex].[N°cp],[cedex].cp, [cedex].Ville
FROM
[cedex] WHERE ([cedex].cp like '" & TBrecherchecp.Text & "*' Or
[cedex].cp
Is Null ) and ([cedex].ville like '" & TBrechercheVille & "*' Or
[cedex].Ville Is Null)order by CP"
End Sub

Private Sub TBrechercheVille_Change()
Lbcedex.RowSource = "SELECT [cedex].[N°cp],[cedex].cp, [cedex].Ville
FROM
[cedex] WHERE ([cedex].cp like '" & TBrecherchecp.Value & "*' Or
[cedex].cp
Is Null)and ([cedex].ville like '" & TBrechercheVille.Text & "*' Or
[cedex].Ville Is Null)order by CP"
End Sub

Je recherche soit par TBrecherchecp soit par TBrechercheVille ou bien
les
2
en meme temps.

J'espere que tu vois ce que je veux faire

@+

Yannick









Avatar
yannick
Je suis completement perdu.
Est ce que je pourrai t'envoyer un exemple mdb

@+
Yannick


en partant sur cette donnée tu ne peux pas arriver à une solution, sauf à
rajouter un contrôle supplémentaire sur le formulaire de type oui/non pour
indiquer qu'il faut prendre les valeurs Null dans la requête.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yannick" a écrit dans le message de
news:
Je te remercie encore
je ne sais pas si je vais enfin trouver une soltion a mon probleme
@+
Yannick



ce qui n'est pas bon:
Je recherche soit par TBrecherchecp soit par TBrechercheVille ou bien
les
2
en meme temps.
donc tu ne prends jamais les valeurs nulles soit d'un cp soit d'une ville

?
oui ou non ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yannick" a écrit dans le message de
news:
Non cela peut etre soit sur le cp soit sur la ville

exemple:
si je saisi TBrecherchecp= 000 j'obtiens cela alors que je ne veux pas
la
premiere ligne ( AAAAA)
CP VILLE
AAAAA
00000
00001 TEST2
00002 TEST3

Voici mon code modifie

Private Sub TBrecherchecp_Change()
Lbcedex.RowSource = "SELECT [cedex].[N°cp],[cedex].cp, [cedex].Ville
FROM
[cedex] WHERE ([cedex].cp like '" & TBrecherchecp.Text & "*' Or
[cedex].cp
Is Null ) and ([cedex].ville like '" & TBrechercheVille & "*' Or
[cedex].Ville Is Null)order by CP"
End Sub

Private Sub TBrechercheVille_Change()
Lbcedex.RowSource = "SELECT [cedex].[N°cp],[cedex].cp, [cedex].Ville
FROM
[cedex] WHERE ([cedex].cp like '" & TBrecherchecp.Value & "*' Or
[cedex].cp
Is Null)and ([cedex].ville like '" & TBrechercheVille.Text & "*' Or
[cedex].Ville Is Null)order by CP"
End Sub

Je recherche soit par TBrecherchecp soit par TBrechercheVille ou bien
les
2
en meme temps.

J'espere que tu vois ce que je veux faire

@+

Yannick














Avatar
Raymond [mvp]
ok, mais explique bien où ça se passe et ce que tu veux. enlève XYZ. (le
point aussi) dans mon adresse.

je verrai peut-être que demain matin .

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yannick" a écrit dans le message de
news:
Je suis completement perdu.
Est ce que je pourrai t'envoyer un exemple mdb

@+
Yannick



Avatar
Raymond [mvp]
message envoyé par mail:
ci-joint ta base en retour.
avec nouvelle programmation des contrôles pour sortir les résultats que tu
as marqués en rouge.
j'espère que ça va aller.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
Avatar
Raymond [mvp]
1er message pas passé et retourné, je viens de le relancer 2 fois

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Raymond [mvp]" a écrit dans le message de
news:
message envoyé par mail:
ci-joint ta base en retour.
avec nouvelle programmation des contrôles pour sortir les résultats que tu
as marqués en rouge.
j'espère que ça va aller.



Avatar
Raymond [mvp]
impossible de te renvoyer ta base par zip et mail
ci-dessous le code à mettre dans ton formulaire en remplacement du tien:

Option Compare Database
Option Explicit

Dim T1 As String
Dim T2 As String
Dim T3 As String
Dim T4 As String

Private Sub CDfermer_Click()
DoCmd.Close
End Sub

Private Sub Form_Load()
T1 = "SELECT [cedex].[N°cp],[cedex].cp, [cedex].Ville FROM [cedex] "
T4 = " order by CP, ville"
T2 = ""
T3 = "" ' attention vérifier sur la base.
End Sub

Private Sub TBrecherchecp_Change()
T2 = " WHERE [cedex].cp like '" & TBrecherchecp.Text & "*'"
Lbcedex.RowSource = T1 & T2 & T4
End Sub

Private Sub TBrechercheVille_Change()
T3 = " Where [cedex].ville like '" & TBrechercheVille.Text & "*' "
Lbcedex.RowSource = T1 & T3 & T4
End Sub

ce qui te permettra de rajouter des paramètres plus facilement.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Raymond [mvp]" a écrit dans le message de
news:
message envoyé par mail:
ci-joint ta base en retour.
avec nouvelle programmation des contrôles pour sortir les résultats que tu
as marqués en rouge.
j'espère que ça va aller.



1 2