Error sintaxis
Publicado por Carlos (17 intervenciones) el 10/03/2020 15:51:08
Buenas a todos.
He hecho un código para filtrar seleccionando dos cuadros combinados en Access. Pero al ejecutar me sale un error de sintaxis. Alguien ve el error?
Muchas gracias.
El mensaje de error es:
Se ha producido el error 3075 en tiempo de ejecución.
Error de sintaxis. Falta operador en la expresión de consulta ' AND [Nombre unidad vigente]=Aquí aparece registro que selecciono en el cuadro combinado
Y el código es:
He hecho un código para filtrar seleccionando dos cuadros combinados en Access. Pero al ejecutar me sale un error de sintaxis. Alguien ve el error?
Muchas gracias.
El mensaje de error es:
Se ha producido el error 3075 en tiempo de ejecución.
Error de sintaxis. Falta operador en la expresión de consulta ' AND [Nombre unidad vigente]=Aquí aparece registro que selecciono en el cuadro combinado
Y el código es:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Comando35_Click()
Dim vSerie_documental As String
Dim vNombre_unidad_vigente As String
Dim miFiltro As String
Dim rst As Recordset
vSerie_documental = Nz(Me.Cuadro_combinado65.Value, "")
vNombre_unitat_vigente = Nz(Me.Cuadro_combinado33.Value, "")
miFiltro = ""
If vSerie_documental <> "" Then
miFiltro = "[Serie documental]='" & vSerie_documental & "'"
End If
If vNombre_unidad_vigente <> "" Then
miFiltro = miFiltro & " AND [Nombre unidad vigente]='" & vNombre_unidad_vigente & "'"
End If
Me.Filter = miFiltro
Me.FilterOn = True
Set rst = Me.Recordset.Clone
If rst.RecordCount = 0 Then
MsgBox "No se ha encontrado", vbInformation, "Mensaje"
End If
End Sub
Valora esta pregunta
0