Débutant: Intégrer les opérateurs >,=, etc lors d'une recherche dans un formulaire

**jrogron** · 02/08/2006, 14h46

Bonjour,

Je souhaite faire une recherche en utilisant les opérateur >, =,... pour par exemple rechercher toutes les entreprises dont le CA est > 1 . Tout cela se passe dans un formulaire de recherche. J'ai bien le code de l'exemple de Caféine mais je voudrai connaître le bon code pour faire fonctionner l'appli comme je le souhaite. Voici le code:

Code :

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

1
2
3
If Me.chkTurnover Then
    SQL = SQL & "And VSH!Turnover like '*" & Me.txtRechTurnover & "*' "
End If

Merci,

Jocelyn

**cafeine** · 02/08/2006, 14h49

Hello : )

Like est un opérateur de comparaison pour du texte ...

exemple pour des comparaisons numériques :

Code :

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

1
2
3
If Me.chkTurnover Then
&#160;&#160;&#160;&#160;SQL = SQL & "And VSH!Turnover >= " & Me.txtRechTurnover & " "
End If

**jrogron** · 02/08/2006, 15h18

Merci Caféine,

J'ai bien recopié ton code Caféine mais maintenant quand je coche la checkbox Turnover sur le formulaire l'erreur suivante s'affiche:

Erreur de syntaxe (opérateur absent) dans l'expression
'VSH!NumCompany <> 0 And Turnover >='.

Comprends pas

**cafeine** · 02/08/2006, 15h34

quelle est alors, la valeur de Me.txtRechTurnover ?

**jrogron** · 02/08/2006, 15h39

Ah non je ne veux pas mettre de valeur par défaut.
Je veux que celle ci soit rentré dans la zone txtRechTurnover (Je fais comme dans ton exemple de formulaire de rechrche Caféine sauf ke je veux laisser le choix à celui ki réalise la recherche de déterminer le seuil voir si possible un écart (compris entre X et Y)

Merci de ton aide Caféine

**cafeine** · 02/08/2006, 15h41

bon reprennons ...

Code :

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

Debug.Print SQL

et dis nous ce que ça donne

**jrogron** · 02/08/2006, 15h49

Il s'affiche cela:

SELECT Company, Country, Turnover FROM VSH Where VSH!NumCompany <> 0 And VSH!Turnover >= ;

**cafeine** · 02/08/2006, 15h51

Il faut que ton code prévoie le cas où Me.txtRechTurnover est Null ... comme cela semble être le cas actuellement.

**jrogron** · 02/08/2006, 16h00

Mais l'erreur apparait dès que je coche la checkbox alors que pour les autres variables quand je coche la checkbox cela n'a aucune incidence sur le résultat et fait seulement apparaitre le rectangle blanc pour ke je puisse filtrer.
C'est sur que quand je coche la checkboc du turnover le rectangle blanc qui apparait est vide mais je ne vois pas comment traiter ce problème?

**cafeine** · 02/08/2006, 16h05

Envoyé par cafeine

Il faut que ton code prévoie le cas où Me.txtRechTurnover est Null ... comme cela semble être le cas actuellement.

avec un test (un bloc If) sans doute ...

**jrogron** · 02/08/2006, 18h49

Et c'est là ke le problème est. Je suis très mauvais en programmation. Je sais que c'est necessaire mais je pensais pouvoir développer une base de donnée avec access sans connaissance en programmation (si je retrouve celui qui me disais qu'access c'était simple je vais l'étriper lol). Mes dernier cours en Visual Basic remonte à 9 ans. Mais le pire c'est le SQL car je n'y comprend rien.
C'est donc pour cela que j'ai besoin de votre aide. J'ai essayer avant de relancer de créer une boucle à la suite du code suivant:

Code :

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

1
2
3
4
If Me.chkTurnover Then
    SQL = SQL & "And VSH!Turnover >= " & Me.txtRechTurnover & " "
    End If
End If

Ma boucle pourrai donc être du genre:

Code :

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

1
2
 If Me.txtRechTurnover = 0 Then
        SQL = SQL & "And VSH!Turnover like '*" & ????? & "*' "

Mon souci c'est que je ne comprends rien à la ligne SQL et que je ne sais pas quoi mettre à la place de mes ??????. La ligne SQL correspond bien à ce qui va s'afficher dans ma fenêtre lstResults (zone de liste pour les réponses)?

Je suis désolé pour les désagréments que je cause mais c'est ma première base de donné.

Merci

**cafeine** · 02/08/2006, 19h05

Vu que je ne vais pas faire le boulot à ta place ...

une petite aide : comment tester qu'une expression est nulle ?

Code :

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

If MaVariable & "" = "" Then

dans ton cas tu veux qu'elle ne soit pas Null

Code :

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

If Me.txtRechTurnover & "" <> "" Then

Maintenant si tu ne comprends rien au SQL essaie de regarder la partie de mon tutoriel qui en traite, c'est théoriquement assez accessible.

c'est là : http://cafeine.developpez.com/access...rchemulti/#LVI

**jrogron** · 03/08/2006, 09h51

Merci Caféine ça marche. J'ai mis le code suivant:

Code :

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

1
2
3
4
5
If Me.chkTurnover Then
    If Me.txtRechTurnover & "" <> "" Then
    SQL = SQL & "And VSH!Turnover >= " & Me.txtRechTurnover & " "
    End If
End If

Tu en pense quoi?
Je suis par contre obligé d'avoir un champ de type numérique pour turnover. Tu sais si il y a une solution pour pouvoir rajouter du texte et pouvoir faire ce genre de test?

Sinon tu pourrais me diriger sur ma discussion intitulé:
Débutant: Problème zone de liste

Je te remercie encore beaucoup et concernant ton tuto je travail avec depuis le début. Mon problème avec le SQL c'es tous les &,",etc. Je ne comprend pas quand les mettres et comment.

Merci

**cafeine** · 03/08/2006, 11h48

Content que ça marche : )

le code me paraît bon.

le & (esperluette) est un opérateur de concaténation, ça veut dire accoler deux chaines de caractères

Code :

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

1
2
3
4
toto="Hello "
tata ="World !!!"
print toto & tata
Hello World !!!

en revanche, ta question semble saugrenue ... comment avoir un turnover en texte ? alors que c'est numérique ?

**jrogron** · 03/08/2006, 15h55

Oui je sais que ma question peut sembler bizarre.

En faite le point fort du type de donnée "texte" dans une table c'est qu'il accepte et les chiffres et le texte ce qui me permet de mettre des commentaires. Une autre possibilité je pense est de rajouter une case commentaire à coter de celle Turnover dans le formulaire. Tant pis.

Merci Caféine!

**cafeine** · 03/08/2006, 16h15

Envoyé par jrogron

Oui je sais que ma question peut sembler bizarre.

En faite le point fort du type de donnée "texte" dans une table c'est qu'il accepte et les chiffres et le texte ce qui me permet de mettre des commentaires. Une autre possibilité je pense est de rajouter une case commentaire à coter de celle Turnover dans le formulaire. Tant pis.

Merci Caféine!

De rien, mais oui, c'est une hérésie d'utiliser un meme champs pour un turnover et pour un commentaire.

**Aarhus** · 04/08/2006, 14h14

Je vien de voir que le sujet a été marqué résolut j'en créé donc un nouveau.

Desoler

Débutant: Intégrer les opérateurs >,=, etc lors d'une recherche dans un formulaire

Access

Discussions similaires

Partager

Partager