Error al añadir instrucción SQL evento combo

Perdonad que vuelva sobre este tema pero cuando parecía que ya lo tenía solucionado me encuentro con que no consigo acomodar el código que me pasó Sveinbjorn El Rojo a mi caso exacto.

Añado a la consulta CPorProductos varios campos de tabla diferentes, y después copio la instrucción SQL y la pego en el evento de cboProducto y de cboDetalle y me da el error: "Se encontraron caracteres después del final de la instrucción SQL"

Concretamente la instrucción que pongo para cboProducto es:
Private Sub cboProducto_AfterUpdate()

'Actualizas el segundo combo en función del primero
Me.cboDetalle.RowSource = "SELECT IdDetalle, DetalleProdUCTO, IDProdUCTO FROM TABLADetalle WHERE IDProdUCTO=" & Me.cboProducto & " ORDER BY

DetalleProdUCTO"
Me.cboDetalle.Requery
'Recalculas el surformulario
If IsNull(Me.cboProducto) Then
    'Si dejas el combo en blanco, muestra todos los registros
    Me.PorProductosSubformulario.Form.RecordSource = "SELECT TABLAGastos.Id, TABLAGastos.Fecha, TablaProveedores.PROVEEDOR, TABLAProductos.Producto,

TABLADetalle.DetalleProdUCTO, " _
    & "TABLAGastos.Cantidad, TablaUnidades.UNIDAD, TABLAGastos.PRECIOUNITARIO, TABLAGastos.PRECIOTOTAL, TABLAGastos.OBSERVACIONES,

TABLAGastos.IDDetalle, TABLAGastos.IDprodUCTO " _
    & "FROM TablaUnidades RIGHT JOIN (TablaProveedores RIGHT JOIN (TABLAProductos RIGHT JOIN (TABLADetalle RIGHT JOIN TABLAGastos ON

TABLADetalle.IdDetalle = TABLAGastos.IDDetalle) " _
    & "ON TABLAProductos.IDProdUCTO = TABLAGastos.IDprodUCTO) ON TablaProveedores.IDPROVEEDOR = TABLAGastos.IDPROVEEDOR) ON TablaUnidades.IDUNIDADES =

TABLAProductos.IDUNIDAD;"

Else

    'Si no, muestra los registros de ese producto (WHERE IDProd=Me.cboProducto)
    Me.PorProductosSubformulario.Form.RecordSource = "SELECT TABLAGastos.Id, TABLAGastos.Fecha, TablaProveedores.PROVEEDOR, TABLAProductos.Producto,

TABLADetalle.DetalleProdUCTO, " _
    & "TABLAGastos.Cantidad, TablaUnidades.UNIDAD, TABLAGastos.PRECIOUNITARIO, TABLAGastos.PRECIOTOTAL, TABLAGastos.OBSERVACIONES,

TABLAGastos.IDDetalle, TABLAGastos.IDprodUCTO " _
    & "FROM TablaUnidades RIGHT JOIN (TablaProveedores RIGHT JOIN (TABLAProductos RIGHT JOIN (TABLADetalle RIGHT JOIN TABLAGastos ON

TABLADetalle.IdDetalle = TABLAGastos.IDDetalle) " _
    & "ON TABLAProductos.IDProdUCTO = TABLAGastos.IDprodUCTO) ON TablaProveedores.IDPROVEEDOR = TABLAGastos.IDPROVEEDOR) ON TablaUnidades.IDUNIDADES =

TABLAProductos.IDUNIDAD;" _
    & "WHERE TABLAGastos.IDprodUCTO=" & Me.cboProducto
End If
'Actualizas el subformulario
Me.PorProductosSubformulario.Form.Requery

End Sub

y para cboDetalle:
Private Sub cboDetalle_AfterUpdate()

If IsNull(Me.cboProducto) Then
    Me.PorProductosSubformulario.Form.RecordSource = "SELECT TABLAGastos.Id, TABLAGastos.Fecha, TablaProveedores.PROVEEDOR, TABLAProductos.Producto,

TABLADetalle.DetalleProdUCTO, " _
    & "TABLAGastos.Cantidad, TablaUnidades.UNIDAD, TABLAGastos.PRECIOUNITARIO, TABLAGastos.PRECIOTOTAL, TABLAGastos.OBSERVACIONES,

TABLAGastos.IDDetalle, TABLAGastos.IDprodUCTO " _
    & "FROM TablaUnidades RIGHT JOIN (TablaProveedores RIGHT JOIN (TABLAProductos RIGHT JOIN (TABLADetalle RIGHT JOIN TABLAGastos ON

TABLADetalle.IdDetalle = TABLAGastos.IDDetalle) " _
    & "ON TABLAProductos.IDProdUCTO = TABLAGastos.IDprodUCTO) ON TablaProveedores.IDPROVEEDOR = TABLAGastos.IDPROVEEDOR) ON TablaUnidades.IDUNIDADES =

TABLAProductos.IDUNIDAD; " _
    & "WHERE TABLAGastos.IDprodUCTO=" & Me.cboProducto
Else
    Me.PorProductosSubformulario.Form.RecordSource = "SELECT TABLAGastos.Id, TABLAGastos.Fecha, TablaProveedores.PROVEEDOR, TABLAProductos.Producto,

TABLADetalle.DetalleProdUCTO, " _
    & "TABLAGastos.Cantidad, TablaUnidades.UNIDAD, TABLAGastos.PRECIOUNITARIO, TABLAGastos.PRECIOTOTAL, TABLAGastos.OBSERVACIONES,

TABLAGastos.IDDetalle, TABLAGastos.IDprodUCTO " _
    & "FROM TablaUnidades RIGHT JOIN (TablaProveedores RIGHT JOIN (TABLAProductos RIGHT JOIN (TABLADetalle RIGHT JOIN TABLAGastos ON

TABLADetalle.IdDetalle = TABLAGastos.IDDetalle) " _
    & "ON TABLAProductos.IDProdUCTO = TABLAGastos.IDprodUCTO) ON TablaProveedores.IDPROVEEDOR = TABLAGastos.IDPROVEEDOR) ON TablaUnidades.IDUNIDADES =

TABLAProductos.IDUNIDAD; " _
    & "WHERE TABLAGastos.IDprodUCTO=" & Me.cboProducto & " AND TABLAGastos.IDDetalle=" & Me.cboDetalle
End If
Me.PorProductosSubformulario.Form.Requery

End Sub

1 Respuesta

Respuesta
1

Fíjate que antes de encadenar las partes del WHERE, en la SQL que copiaste tienes que borrarle el punto y coma, por eso te da el error.

Por ejemplo:

TABLAProductos.IDUNIDAD; " _
    & "WHERE TABLAGastos.IDprodUCTO=" & Me.cboProducto

Después de IDUNIDAD tienes que quitar el punto y coma, para poder encadenar la condición del WHERE.

Y así tendrás que borrar todos los puntos y coma que tengas en el código.

Muchas gracias, funciona perfecto.

Sois los mejores.

Un saludo.

Ten siempre en cuenta el borrar el punto y coma final cuando copies el código SQL de una consulta hecha en Access.
Y no te olvides de puntuar la respuesta, jejeje

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Datos de dos combobox en un subformulario

Que me ha surgido. Tengo una BD con 3 tablas TABLAGASTOS, TABLADETALLE y TABLAPRODUCTOS. En TABLAGASTOS además de los campos fecha y cantidad ..., hay un campo con IDPRODUCTO y otro con IDDETALLE que la relacionan con las otras 2 tablas. En...
1 respuesta

Como puedo unir dos tablas de access en visual basic,

¿Cómo puedo unir dos tablas en una en visual basic, de la primera tabla solamente quiero dos campos y de la segunda solo uno? Plis ayudenme lo necesito urgentemente...
1 respuesta

Group by excluyendo campos

Me gustaría saber como generar una consulta con por campos y agrupar sólo algunos campos. La consulta que tengo es: SELECT CU_Pos.Fecha, AGENTE.Nom_Agente, CU_Pos.CUPOS FROM CU_Pos RIGHT JOIN AGENTE ON CU_Pos.Agente=AGENTE.Nom_Agente WHERE...
1 respuesta

Consulta access 2003 con valores null

Tengo un consulta en access 2003 que cruza la tabla contrato y pagos y muestra el saldo del contrato (valor contrato-valor factura), pero si el contrato no tiene pagos no me muestra el valor total del contrato que corresponde al saldo del mismo. La...
2 respuestas

Subconsultas sql

Hice una subconsulta para que me muestre todos los datos de varias tablas relacionadas esta es mi consulta select E.IdEquipo,E.Tipo,E.Marca,E.Modelo,E.Proyecto,E.NNI,E.NumeroSerie,E.IP,A.NombreArea,U.NombreUnidad,U.Ubicacion from Equipo E inner Join...
1 respuesta

Resta de Consultas en SQL Server 2000

Tengo instalado el SQL Server 2000, el problema que se me esta presentando actualmente es que necesito hacer una resta entre dos consultas, se que para eso existe el EXCEPT pero esta inahibiltado, entonces mi pregunta es ¿Cómo hago o como se puede...
1 respuesta

Función en sql server que reemplace iff de access

Tengo esta vista es access: SELECT Activos.Apodo, [Activos]![Apodo] & " " & [Activos]![Activo] & " esta en Smartuns" & (IIf(([Activos]![Activo]="si"),(",está en la " & [Vistas]![Nombre_vistas]),"")) AS Descripcion, Vistas.Id_vistas, Activos.Activo...
1 respuesta

Error al ejecutar consulta con varias tablas

Luego de ejecutar una consulta con 3 tablas en SQL Server 2005 el motor me tira el siguiente error: Mens. 301, Nivel 16, Estado 1, Línea 1 La consulta contiene una petición de combinación externa no válida. En una de las páginas de Microsoft aparece...
1 respuesta

Sentencia INNER JOIN en ORACLE desde JSP

A tod@s!! Tengo un problemilla con una SELECT. Al intentar acceder a una BD Oracle desde JSP con la sentencia que te pongo a continuación me da un error (algo parecido a "Sentencia no acabada correctamente ") SELECT DISTINCT harditem.class,...
2 respuestas

Query con inner join doble

Compadre tengo la siguiente consulta: yo cuando ejecuto la consulta omitiendo la parte de cheques me trae bien la parte de cuentascorrientes y si comento la parte de cuentascorrientes me trae bien la parte de cheques, pero si tengo ambos funcionando...
1 respuesta