Access - Error en consulta access

 
Vista:
sin imagen de perfil

Error en consulta access

Publicado por Gonzalo (4 intervenciones) el 22/08/2016 09:41:39
Buenos días,

no consigo parametrizar una consulta con like y ordenarla de manera ascendente el resultado.

Capture

La consulta que si funciona perfectamente con like es.

1
sCodArticuloSufijo = "CodArticuloSufijo LIKE '*" & Me.FiltroCodArticuloSufijo & "*'"

Pero ya intento incluir un ordenamiento de la consulta en el resultado final y no lo consigo.

1
2
3
4
5
6
7
8
9
10
11
Dim sCodArticuloSufijo As String
 
If Not IsNull(Me.FiltroCodArticuloSufijo) And Me.FiltroCodArticuloSufijo <> "" Then
 
        sCodArticuloSufijo = "CodArticuloSufijo LIKE '*" & Me.FiltroCodArticuloSufijo & "*'" & " ORDER BY " & "'*" & Me.FiltroCodArticuloSufijo & "*'" & ";"
 
Else
 
        sCodArticuloSufijo = ""
 
End If

Un saludo a todos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Jesus
Val: 149
Bronce
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Error en consulta access

Publicado por Jesus (5 intervenciones) el 22/08/2016 11:02:07
Tienes que ordenar por un campo, no por un valor.

Prueba con:

1
ORDER BY CodArticuloSufijo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Error en consulta access

Publicado por Gonzalo (4 intervenciones) el 22/08/2016 11:16:18
Gracias por contestar Jesus. Pero me sigue tirando el mismo error en la consulta.

sCodArticuloSufijo = "CodArticuloSufijo LIKE '*" & Me.FiltroCodArticuloSufijo & "*'" & " ORDER BY " & CodArticuloSufijo

En la ventana de inmediato aparentemente el resultado esta bien.

CodArticuloSufijo LIKE '*111712T46*' ORDER BY 111712T46


Capture

Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Jesus
Val: 149
Bronce
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Error en consulta access

Publicado por Jesus (5 intervenciones) el 22/08/2016 11:33:55
Pon el código completo, ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Error en consulta access

Publicado por Gonzalo (4 intervenciones) el 22/08/2016 11:37:39
Código completo para filtrar campos a través del evento click

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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
Private Sub CmdFiltrar_Click()
 
On Error GoTo Err_CmdFiltrar_Click
 
     'Creamos la variable que contendrá la combinación de todos los filtros
    Dim sFiltro As String
    'Creamos una variable para guardar el filtro por Empresa ,Cliente, LV, Provincia y Proyecto
    Dim sCodArticuloSufijo As String
    Dim sDescripcion As String
    Dim sUnidadesMedida As String
    Dim sPrecio As String
    Dim sProveedor As String
    Dim sStockMinimo As String
    Dim sZonaAlmacen As String
    Dim sCategorias As String
    Dim sEpi As String
 
    'Construyo la cadena para filtrar por CodArticuloSufijo
    If Not IsNull(Me.FiltroCodArticuloSufijo) And Me.FiltroCodArticuloSufijo <> "" Then
 
        sCodArticuloSufijo = "CodArticuloSufijo LIKE '*" & Me.FiltroCodArticuloSufijo & "*'" & " ORDER BY " & "'*" & CodArticuloSufijo & "*'" & ";"
 
 
    Else
 
        sCodArticuloSufijo = ""
 
    End If
 
     'Construyo la cadena para filtrar por Descripcion
    If Not IsNull(Me.FiltroDescripcion) And Me.FiltroDescripcion <> "" Then
 
        sDescripcion = "Descripcion LIKE '*" & Me.FiltroDescripcion & "*'"
 
    Else
 
        sDescripcion = ""
 
    End If
 
     'Construyo la cadena para filtrar por AlmacenDestino
    If Not IsNull(Me.FiltroUnidadesMedida) And Me.FiltroUnidadesMedida <> "" Then
 
         sUnidadesMedida = "UnidadMedida LIKE '*" & Me.FiltroUnidadesMedida & "*'"
 
    Else
 
        sUnidadesMedida = ""
 
    End If
 
    'Construyo la cadena para filtrar por Precio
    If Not IsNull(Me.FiltroPrecio) And Me.FiltroPrecio <> "" Then
 
        sPrecio = "Precio LIKE '*" & Me.FiltroPrecio & "*'"
 
    Else
 
        sPrecio = ""
 
    End If
 
    'Construyo la cadena para filtrar por Proveedor
    If Not IsNull(Me.FiltroProveedor) And Me.FiltroProveedor <> "" Then
 
        sProveedor = "Proveedor LIKE '*" & Me.FiltroProveedor & "*'"
 
    Else
 
        sProveedor = ""
 
    End If
 
    'Construyo la cadena para filtrar por StockMinimo
    If IsNull(Me.FiltroStockMinimo) And Me.FiltroStockMinimo <> "" Then
 
        sStockMinimo = "StockMinimo LIKE '*" & Me.FiltroStockMinimo & "*'"
 
    Else
 
        sStockMinimo = ""
 
    End If
 
    'Construyo la cadena para filtrar por ZonaAlmacen
    If Not IsNull(Me.FiltroZonaAlmacen) And Me.FiltroZonaAlmacen <> "" Then
 
        sZonaAlmacen = "ZonaAlmacen LIKE '*" & Me.FiltroZonaAlmacen & "*'"
 
    Else
 
        sZonaAlmacen = ""
 
    End If
 
    'Construyo la cadena para filtrar por Categorias
    If Not IsNull(Me.FiltroCategorias) And Me.FiltroCategorias <> "" Then
 
        sCategorias = "Categoria LIKE '*" & Me.FiltroCategorias & "*'"
 
    Else
 
        sCategorias = ""
 
    End If
 
    'Construyo la cadena para filtrar por Epi
    If IsNull(Me.FiltroEpi) And Me.FiltroEpi <> "" Then
 
        sEpi = "Epi LIKE '*" & Me.FiltroEpi & "*'"
 
    Else
 
        sEpi = ""
 
    End If
 
    '*************************************************************************
    ' Según estén vacías o no las distintas variables (Filtros)
    ' construyo el filtro final que se enviará al subformulario.
    ' Lo que hacemos es combinarlos con "AND"
    '*************************************************************************
 
    If sCodArticuloSufijo <> "" Then
 
        sFiltro = sCodArticuloSufijo
 
    End If
 
     If sDescripcion <> "" Then
 
        If sFiltro <> "" Then
 
            sFiltro = sFiltro & " AND " & sDescripcion
 
        Else
 
            sFiltro = sDescripcion
 
        End If
 
    End If
 
     If sUnidadesMedida <> "" Then
 
        If sFiltro <> "" Then
 
            sFiltro = sFiltro & " AND " & sUnidadesMedida
 
        Else
 
            sFiltro = sUnidadesMedida
 
        End If
 
    End If
 
    If sPrecio <> "" Then
 
        If sFiltro <> "" Then
 
            sFiltro = sFiltro & " AND " & sPrecio
 
        Else
 
            sFiltro = sPrecio
 
        End If
 
    End If
 
    If sProveedor <> "" Then
 
        If sFiltro <> "" Then
 
            sFiltro = sFiltro & " AND " & sProveedor
 
        Else
 
            sFiltro = sProveedor
 
        End If
 
    End If
 
    If sStockMinimo <> "" Then
 
        If sFiltro <> "" Then
 
            sFiltro = sFiltro & " AND " & sStockMinimo
 
        Else
 
            sFiltro = sStockMinimo
 
        End If
 
    End If
 
    If sZonaAlmacen <> "" Then
 
        If sFiltro <> "" Then
 
            sFiltro = sFiltro & " AND " & sZonaAlmacen
 
        Else
 
            sFiltro = sZonaAlmacen
 
        End If
 
    End If
 
    If sCategorias <> "" Then
 
        If sFiltro <> "" Then
 
            sFiltro = sFiltro & " AND " & sCategorias
 
        Else
 
            sFiltro = sCategorias
 
        End If
 
    End If
 
    If sEpi <> "" Then
 
        If sFiltro <> "" Then
 
            sFiltro = sFiltro & " AND " & sEpi
 
        Else
 
            sFiltro = sEpi
 
        End If
 
    End If
 
    'Una vez compuesta la variable sFiltro podemos verla en la ventana
    'inmediato para verificar que lo estamos haciendo bien
    Debug.Print sFiltro
 
    'Y a partir de aquí, si la variable sFiltro no está vacía
    'se la aplicamos al subformulario
 
    If sFiltro <> "" Then
        'Asignamos la varaible a la propiedad Filter del subformulario
        Me.Form.Filter = sFiltro
 
        'Me.BusquedaSubFormulario.Form.Filter = sFiltro
        'Le decimos al subformulario que active el filtro
        'que previamente hemos asignado.
        Me.Form.FilterOn = True
 
 
        'Me.BusquedaSubFormulario.Form.FilterOn = True
    Else
        'Si la variable está en blanco nos indica que no hay
        'seleccionados ningún filtro y por tanto lo desactivamos
 
        Me.Form.FilterOn = True
 
        'Me.BusquedaSubFormulario.Form.FilterOn = False
    End If
 
Salida:
 
    Exit Sub
 
Err_CmdFiltrar_Click:
 
    MsgBox Err.Description
 
    Resume Salida
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Jesus
Val: 149
Bronce
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Error en consulta access

Publicado por Jesus (5 intervenciones) el 22/08/2016 12:10:41
Ufff ....

Dos cosas,

- La primera es que no puedes mezclar una cláusula ORDER BY en un filtro, para eso está:

1
Me.Form.OrderBy


- La segunda es que te propongo otra manera de crearte el filtro, más simple y cómoda de leer:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim Xs as String
 
Xs = ""
'
If Len(Nz(Me.Campo1, "")) > 0 Then Xs = Xs & " AND TCampo1 Like '*" & Me.Campo1& "*'"
If Len(Nz(Me.Campo2, "")) > 0 Then Xs = Xs & " AND TCampo2 Like '*" & Me.Campo2& "*'"
If Len(Nz(Me.Campo3, "")) > 0 Then Xs = Xs & " AND TCampo3 Like '*" & Me.Campo3& "*'"
.
.
 
 
'
If Xs = "" Then
	Me.Form.FilterOn = False
	Else
	Xs = Mid$(Xs, 6)
	Me.Form.Filter = Xs
	Me.Form.FilterOn = True
End If


Ponle un punto de depuración justo antes de aplicar el filtro y mira a ver que valor te toma.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

Error en consulta access

Publicado por Gonzalo (4 intervenciones) el 22/08/2016 15:24:35
Gracias por todo, ya me has dado un par de pistas para dar con la tecla.

Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar