Discussion :

[lebarjot]

Bonjour,

Je précise qu'en même temps que je pose cette question, je fais le tour du forum pour :
- trouver une réponse si elle existe déjà
- trouver les réponses à mes autres questions
Merci de l'aide que vous pourrez m'apporter.

Je vous explique le principe.
Sur ACCESS, j'ai un formulaire de recherche.
La partie qui m'intéresse ici est celle où, grâce à une liste, l'utilisateur sélectionne une valeur (5, 8, etc.. 20).
Je veux ensuite afficher les résultats pour lesquels la date d'embauche dans la boite est antérieure à la date d'aujourd'hui moins ce qui a été sélectionné dans la boite. Exemple : plus de 20 ans, on clique sur 20, 2010 - 20 = 1990, je veux les gens embauchés avant 1990, donc le champ date d'embauche doit être inférieur à 1990.

Code :

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

1
2
3
4
5
6
7
8
If Me.chkexperienceegis Then 
interm2 = cmbrechexperienceegis.Value 
MsgBox (interm2) 
MsgBox (annee) 
interm = annee - interm2 
MsgBox (interm) 
SQL = SQL & "AND cv!experienceegis < interm" 
End If

Le problème quand je fais ça c'est qu'il me demande une valeur pour interm. Si je mets une valeur, ça fonctionne, il fait bien la sélection.

Code :

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

1
2
3
4
5
6
7
8
If Me.chkexperienceegis Then 
interm2 = cmbrechexperienceegis.Value 
MsgBox (interm2) 
MsgBox (annee) 
interm = annee - interm2 
MsgBox (interm) 
SQL = SQL & "AND cv!experienceegis < ' " & interm & " ' " 
End If

Et quand je fais ça, tous les calculs se font bien mais l'opération de comparaison n'est pas établie.

Les msgbox me permettent de contrôler que les valeurs sont les bonnes...

Merci pour vos réponses
Arnaud

[Jean-Philippe André]

Bonjour,
bienvenue sur DVP
ici ton champs est-il de type numerique ou de type date ?
dans le 1er cas, il suffit d'enlever les quote comme ceci :

Code :

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

SQL = SQL & "AND cv!experienceegis < " & interm & ""

bien faire attention a la concatenationm verifie bien tes espaces

[lebarjot]

Euh... Ben je me sens bien bête de ne pas l'avoir essayé, vu tous les trucs farfelus que j'ai tentés !!!

Merci en tout cas d'avoir répondu aussi rapidement.

J'ai une autre question qui concerne en fait le passage d'ACCESS à WORD depuis un formulaire, en particulier la fonction publipostage (mais la question porte sur du VB). Je viens de faire un tour sur la FAQ et sur commentcamarche... Où dois je aller poser la question dans le forum (j'ai lu le "Lire avant de poster" et ça m'a tellement fait peur que du coup je préfère être sûr, lol).

Bonne journée!

EDIT : j'ai oublié de répondre à ta question. C'est juste du numérique, je ne voulais pas me prendre la tête avec des dates. Si un jour la boîte veut un truc vraiment précis, ils demanderont à un VRAI informaticien. Là je veux faire relativement vite / qualité correcte.