Discussion :

[Moyaku]

Salut,
j'ai généré une instruction BETWEEN sur un champ monétaire, or cela pose un problème dans le SQL du fait de la présence de virgules, j'aimerais connaître la syntaxe qui pourrais corriger mon problème.

Voici donc le code VBA générant ma requète SQL :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub rafraichirreq()
 Dim SQL As String
 Dim SQLWhere As String

'Constitut la requète SQL de mon formulaire en fonction des cases cochées

 SQL = "SELECT cartes!nom_de_carte, cartes!edition_de_carte, cartes!type_de_carte, cartes!couleur, cartes!rarete, cartes!capacite_de_carte, cartes!nbr_de_carte, cartes!cote_de_carte, cartes!cout_converti_de_mana, cartes!force_endurance FROM cartes WHERE cartes!nom_de_carte Is not Null"
 
 If Form_Multi_Criteres.chk_edition Then
    SQL = SQL & " And cartes!edition_de_carte ='" & Form_Multi_Criteres.cmb_edition & "' "
 End If
 If Form_Multi_Criteres.chk_type Then
    SQL = SQL & " And cartes!type_de_carte ='" & Form_Multi_Criteres.cmb_type & "' "
 End If
 If Form_Multi_Criteres.Chk_nom Then
    SQL = SQL & " And cartes!nom_de_carte like '*" & Form_Multi_Criteres.Txt_nom & "*' "
 End If
 If Form_Multi_Criteres.Chk_capacite Then
    SQL = SQL & " And cartes!capacite_de_carte like '" & Form_Multi_Criteres.cmb_capacite & "' "
 End If
 If Form_Multi_Criteres.Chk_couleur Then
    SQL = SQL & " And cartes!couleur ='" & Form_Multi_Criteres.cmb_couleur & "' "
 End If
 If Form_Multi_Criteres.Chk_rarete Then
    SQL = SQL & " And cartes!rarete ='" & Form_Multi_Criteres.cmb_rarete & "' "
 End If
 If Form_Multi_Criteres.chk_cout Then
    SQL = SQL & " And cartes!cout_converti_de_mana BETWEEN " & Form_Multi_Criteres.txt_cout & " AND " & Form_Multi_Criteres.txt_cdm_a & " "
 End If
 If Form_Multi_Criteres.Chk_cote Then
    SQL = SQL & " And cartes!cote_de_carte BETWEEN " & Form_Multi_Criteres.txt_cote & " AND " & Form_Multi_Criteres.txt_cdc_a & " "
 End If
 If Form_Multi_Criteres.chk_nbr Then
    SQL = SQL & " And cartes!nbr_de_carte like '*" & Form_Multi_Criteres.txt_nbr & "*' "
 End If

et la requète générée : (vue Debug.print)

Code :

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

1
2
3
4
5
6
SELECT cartes!nom_de_carte, cartes!edition_de_carte, cartes!type_de_carte, cartes!couleur, cartes!rarete, cartes!capacite_de_carte, cartes!nbr_de_carte, cartes!cote_de_carte, cartes!cout_converti_de_mana, cartes!force_endurance 
FROM cartes 
WHERE cartes!nom_de_carte Is not Null 
And cartes!cote_de_carte 
BETWEEN 0,10 AND 0

Merci

[micniv]

Salut,

remplace la , par un . avec la fonction Replace()

Bonne journée

[Moyaku]

Nikel merci ca roule