Discussion :

[p'tite Sandrine]

Bonjour a tous,

J'essaye actuellement de créer une base de données pour répertorier toutes les plantes que notre service utilise pour ses aménagements publics.

Pour faciliter le choix des essences végétales par les membre de l'équipe qui n'ont pas étudier les plantes je fais des formulaires de recherche spécifique.

Ces formulaire sont inspiré par le tutoriel de ce site sur les recherche multi-critère. (très bien fait! merci a l'auteur).
Dans un de mes formulaires j'aimerais pouvoir lancer une recherche sur la grandeur de la plante ou l'utilisateur entre les valeurs min et max.

J'ai essayé comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub RefreshQuery()
Dim SQL As String
 
SQL = "SELECT Identité.ID, Identité.[nom latin], Identité.type, Identité.feuillage, Identité.exposition FROM Identité INNER JOIN utilisation ON Identité.ID = utilisation.ID WHERE Identité.ID<>0"
If chkTail = -1 Then
SQL = SQL & "And Identité.hauteur Between " & Me!TailMin & " And " & Me!TAilMax
End If
SQL = SQL & " ORDER BY Identité.[nom latin];"
Me.lstResult.RowSource = SQL
Me.lstResult.Requery

Malheureusement je dois avoir un problème de syntaxe car il me retourne aucune plante qu'importe les valeurs entrées.
Quelqu'un voit-il comment règler mon problème?
merci

[Demco]

Malheureusement je dois avoir un problème de syntaxe car il me retourne aucune plante qu'importe les valeurs entrées.

Regarde le tuto dans ma signature, je pense qu'il t'aidera à résoudre le bug de cette requête.

En espérant t'aider.

[p'tite Sandrine]

Merci,

Avec ton debug print j'ai pu constater que l'erreur était plus que stupide il manquait un espace devant la premier And
Du coup ca fonctionne.

Juste une précision tout de même pourquoi quand je veux entrer des nombre decimaux il ne les comprend que quand je lui met des . alors qu'il me les affiche dans la table avec des , et que le . de mon clavier numérique inscrit d'office une , c'est un peu chinois je sais!

Y a t'il un moyen de lui faire comprendre que le . du clavier numérique est un . et non une , ?

[emulamateur]

En utilisant ce dcount, cela me donne le nombre de résultats ....

Code :

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

1
2
t = DCount("nr", "t_rendezvous", "horairedebut between #" & Format(DateRdV1, "mm/dd/yyyy") & " " & HoraireD & "# and #" & Format(DateRdV2, "mm/dd/yyyy") & " " & HoraireF & "# or horairefin between #" & Format(DateRdV1, "mm/dd/yyyy") & " " & HoraireD & "# and #" & Format(DateRdV2, "mm/dd/yyyy") & " " & HoraireF & "#")
MsgBox t

Je pensais qu'en ajoutant

Code :

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

"select * from t_rendezvous where horairedebut between #" & Format(DateRdV1, "mm/dd/yyyy") & " " & HoraireD & "# and #" & Format(DateRdV2, "mm/dd/yyyy") & " " & HoraireF & "# or horairefin between #" & Format(DateRdV1, "mm/dd/yyyy") & " " & HoraireD & "# and #" & Format(DateRdV2, "mm/dd/yyyy") & " " & HoraireF & "#;"

Cela fonctionnerait ... mais non ....