probleme like avec champ numérique [Résolu]

[popofpopof]

bonjour

je suis sous un formulaire de recherche multi critaires tres connu...

j'ai ce code actuellement

Code :

1
2
3
If Me.chkprescri Then
    SQL = SQL & "And recherlogevente!NUM_GRILLE like '*" & Me.cmbRechergrille & "*' " & "And recherlogevente!NUM_OPERATION like '*" & Me.cmbrecheroperation & "*' " & "and recherlogevente!vide = 0 "
End If

il a un defaut c'est que le numéro d'opération me pose probleme car maintenant on a une operation n°2 et une N°20 et quand je lance ce filtre avec le moteur de recherche les deux sorte.
je vourdrai limite le résultat a la valeur exdacte qui est dans la liste déroulante "cmbrecheroperation" mon probleme est le "like" mais je ne trouve pas comment le remplace qui peux m'aide??? svp

[LedZeppII]

Bonsoir,

Essaie sans les astérisques gauche et droite.

Code :

1
2
3
If Me.chkprescri Then
    SQL = SQL & "And recherlogevente!NUM_GRILLE like '" & Me.cmbRechergrille & "' " & "And recherlogevente!NUM_OPERATION like '" & Me.cmbrecheroperation & "' " & "and recherlogevente!vide = 0 "
End IfEnd If

ou avec égale (=) et pas de guillemet simple (')

Code :

1
2
3
If Me.chkprescri Then
    SQL = SQL & "And recherlogevente!NUM_GRILLE = " & Me.cmbRechergrille & " " & "And recherlogevente!NUM_OPERATION =" & Me.cmbrecheroperation & " " & "and recherlogevente!vide = 0 "
End If

A+

[popofpopof]

merci de m'avoir repondu

j'ai essai sa me dis erreur d'éxécution 3075, erreur de syntaxe (opérateur absent)...

voila le code complet tu peux me dire c quoi le probleme?

Code :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT NUM_OPERATION, NOM_OPERATION, NUM_LOGE, NIVEAU_LOGE, TYPE_LOGE, SURFHABI_LOGE, Loyer_Tot, NUM_GRILLE, PRIX, TypeRemu, PRIX_IMMO, DATE_DEBUT_OPTIONNE, DATE_FIN_OPTIONNE, NOM_PRESC, NUM_PRESC, vide FROM recherlogevente Where recherlogevente!NUM_OPERATION <> 0 "
 
 
 
If Me.chkNiveau Then
    SQL = SQL & "And recherlogevente!NIVEAU_LOGE = '" & Me.cmbRechNiveau & "' "
End If
If Me.chkType Then
    SQL = SQL & "And recherlogevente!TYPE_LOGE = '" & Me.cmbRechType & "' "
End If
If Me.chkGrille Then
    SQL = SQL & "And recherlogevente!NUM_GRILLE like '*" & Me.cmbRechGrille & "*' "
End If
If Me.chkTyperemu Then
    SQL = SQL & "And recherlogevente!TypeRemu = '" & Me.cmbRechTyperemu & "' "
End If
If Me.chkNOMOPERATION Then
    SQL = SQL & "And recherlogevente!NOM_OPERATION = '" & Me.cmbRechNOMOPERATION & "' "
End If
If Me.chkSurface Then
    SQL = SQL & "And recherlogevente!SURFHABI_LOGE Between " & IIf(Me.txtRechSurfacemini = "", 0, Me.txtRechSurfacemini) & " and " & IIf(Me.txtRechSurfacemax = "", 99999999, Me.txtRechSurfacemax) & " "
    End If
If Me.chkPrix Then
    SQL = SQL & "And recherlogevente!Prix Between " & IIf(Me.txtRechPrixmini = "", 0, Me.txtRechPrixmini) & " and " & IIf(Me.txtRechPrixmax = "", 99999999, Me.txtRechPrixmax) & " "
    End If
If Me.chkAgestis Then
    SQL = SQL & "And recherlogevente!NUM_GRILLE = 1 "
End If
If Me.chkprescri Then
    SQL = SQL & "And recherlogevente!NUM_GRILLE like '*" & Me.cmbRechergrille & "*' " & "And recherlogevente!NUM_OPERATION =" & Me.cmbrecheroperation & " " & "And recherlogevente!vide = 0 "
End If
If chkOptionne Then
    SQL = SQL & "And recherlogevente!DATE_DEBUT_OPTIONNE <> Null "
End If
If chkOptionnenon Then
    SQL = SQL & "And recherlogevente!DATE_DEBUT_OPTIONNE is null "
End If
 
CurrentDb.QueryDefs("recherlogeventeimprieretat").SQL = SQL
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
' Critères de Tri
OrderBy = ""
If Nz(Me.lstChpTri01) <> "" Then
   OrderBy = Me.lstChpTri01 & " " & Nz(Me.lstTypeTri01, "")
End If
 
If Nz(Me.lstChpTri02) <> "" Then
   If OrderBy <> "" Then OrderBy = OrderBy & ", "
   OrderBy = OrderBy & Me.lstChpTri02 & " " & Nz(Me.lstTypeTri02, "")
End If
 
If OrderBy <> "" Then SQL = SQL & " ORDER BY " & OrderBy
 
SQL = SQL & ";"
 
 
 
Me.lblStats.Caption = DCount("*", "recherlogevente", SQLWhere) & " / " & DCount("*", "recherlogevente")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub

[popofpopof]

c bon j'ai trouve desole pour le derangement j'ai relu ce que tu a ecrie et la reponse etait la comme toujour

merci bcp encore