Select con operaciones iner join

He diseñado esta consulta a través de la Vista SQL de Access

SELECT tb_factura.N_FACT AS [FACTURA DE VENTA], tb_facturar.cantidad AS [CANT VEND], tb_facturar.producto AS PRODUCTO, tb_facturar.UNI_MEDIDA AS [UNIDAD VEND], tb_productos.UNIDAD_MEDIDA_Min AS [UNI MED MIN], tb_productos.UNIDAD_MEDIDA_Med AS [UNI MED MED], tb_productos.UNIDAD_MEDIDA_Max AS [UNI MED MAX], tb_productos.CANTIDAD_INICIAL AS EXISTENTE, tb_productos.EQUIVALENTE_UNI_MED_MIN, tb_productos.EQUIVALENTE_UNI_MED_MED, tb_productos.EQUIVALENTE_UNI_MED_MAX
FROM tb_productos INNER JOIN (tb_factura INNER JOIN tb_facturar ON tb_factura.N_FACT = tb_facturar.N_FACT_ID) ON tb_productos.NOMBRE_PRODUCTO = tb_facturar.producto
WHERE (((tb_factura.N_FACT)=[Formularios]![frm_Factura_Anular]![N_FACT_ID]));

Ahora necesito convertirla a VBA para Access y asignarla como Valor a la Variable:

Dim SQLs As String

He usado este código pero se genera el error -2147217900 en tiempo de ejecución, y no consigo donde esta el error.

SQLs = "SELECT tb_factura.N_FACT AS [FACTURA DE VENTA]," _
& "tb_facturar.cantidad AS [CANT VEND], tb_facturar.producto AS PRODUCTO, tb_facturar.UNI_MEDIDA AS [UNIDAD VEND]," _
& "tb_productos.UNIDAD_MEDIDA_Min AS [UNI MED MIN], tb_productos.UNIDAD_MEDIDA_Med AS [UNI MED MED]," _
& "tb_productos.UNIDAD_MEDIDA_Max AS [UNI MED MAX], tb_productos.CANTIDAD_INICIAL AS EXISTENTE, tb_productos.EQUIVALENTE_UNI_MED_MIN," _
& "tb_productos.EQUIVALENTE_UNI_MED_MED, tb_productos.EQUIVALENTE_UNI_MED_MAX from tb_facturar,tb_factura, tb_productos" _
& "INNER JOIN tb_factura" _
& "INNER JOIN tb_facturar" _
& "ON tb_factura.N_FACT =" _
& "tb_facturar.N_FACT_ID" _
& "ON tb_productos.NOMBRE_PRODUCTO =" _
& "tb_facturar.producto" _
& "WHERE tb_factura.N_FACT = 'VMCC 00002';"

2 respuestas

Respuesta
2

De un primer vistazo, en todas las líneas que empiezan por & te falta poner un espacio a continuación de las primeras comillas dobles:

& " tb_facturar.....

Con eso solo ya te debiera funcionar

¡Gracias!

Hice lo que me dijiste pero aun me faltaban unos paréntesis.

Me ha quedado así, y funciona.

SQLs = "SELECT tb_factura.N_FACT AS [FACTURA DE VENTA], " _
& "tb_facturar.cantidad AS [CANT VEND], tb_facturar.producto AS PRODUCTO, tb_facturar.UNI_MEDIDA AS [UNIDAD VEND], " _
& "tb_productos.UNIDAD_MEDIDA_Min AS [UNI MED MIN], tb_productos.UNIDAD_MEDIDA_Med AS [UNI MED MED], " _
& "tb_productos.UNIDAD_MEDIDA_Max AS [UNI MED MAX], tb_productos.CANTIDAD_INICIAL AS EXISTENTE, tb_productos.EQUIVALENTE_UNI_MED_MIN, " _
& "tb_productos.EQUIVALENTE_UNI_MED_MED, tb_productos.EQUIVALENTE_UNI_MED_MAX from  tb_productos " _
& "INNER JOIN (tb_factura " _
& "INNER JOIN tb_facturar " _
& "ON tb_factura.N_FACT = " _
& "tb_facturar.N_FACT_ID) " _
& "ON tb_productos.NOMBRE_PRODUCTO = " _
& "tb_facturar.producto " _
& "WHERE (((tb_factura.N_FACT) = 'VMCC 00002'));"

Ya me funciono. Ahora me faltara convertirlo a una Instrucción Update ¡sera Muy Dificil?

En Realidad es primera vez que hago esto.

Respuesta
1

Ya tengo la Solución, Después de tanto Cacharrear, Resulto ser un Espacio en Blanco Faltante.

Os dejo Todo el Código Usado en este Modulo.

Option Compare Database
Option Explicit
Sub CONECTA_ACTUAL()
Dim ConectaGolden As New Connection 'Crear la Coneccion desde el objeto Connection
Dim RecordSetGolden As New Recordset 'Creacion del Objeto Recordset (Tabla Virtual)
Dim SQLs As String 'Variable Tipo Texto que Almacena la Consulta SQL
Set ConectaGolden = CurrentProject.Connection 'Establecemos la Conexion con la Base de Datos actual
'Este Tambien Funciona
SQLs = "SELECT tb_factura.N_FACT AS [FACTURA DE VENTA], tb_facturar.cantidad AS [CANT VEND], tb_facturar.producto AS PRODUCTO, tb_facturar.UNI_MEDIDA AS [UNIDAD VEND], tb_productos.UNIDAD_MEDIDA_Min AS [UNI MED MIN], tb_productos.UNIDAD_MEDIDA_Med AS [UNI MED MED], tb_productos.UNIDAD_MEDIDA_Max AS [UNI MED MAX], tb_productos.CANTIDAD_INICIAL AS EXISTENTE, tb_productos.EQUIVALENTE_UNI_MED_MIN, tb_productos.EQUIVALENTE_UNI_MED_MED, tb_productos.EQUIVALENTE_UNI_MED_MAX, tb_productos.NOMBRE_PRODUCTO " _
& "FROM tb_productos INNER JOIN (tb_factura INNER JOIN tb_facturar ON tb_factura.N_FACT = tb_facturar.N_FACT_ID) ON tb_productos.NOMBRE_PRODUCTO = tb_facturar.producto " _
& "WHERE (((tb_factura.N_FACT)= 'VMCC 00002'));"
'& "from tb_factura INNER JOIN (tb_facturar INNER JOIN tb_productos ON tb_facturar.producto=tb_productos.NOMBRE_PRODUCTO) ON tb_factura.N_FACT = tb_facturar.N_FACT_ID;"
RecordSetGolden. Open (SQLs), ConectaGolden 'Abrir el Recordset Utilizando la Conexion Activa e insertar la Informacion SQL
Do Until RecordSetGolden.EOF
    Debug.Print RecordSetGolden![FACTURA DE VENTA] & " " & RecordSetGolden![CANT VEND] & " " & RecordSetGolden!producto & " " & RecordSetGolden![UNIDAD VEND] & " " & RecordSetGolden![UNI MED MIN] & " " & RecordSetGolden![UNI MED MED] & " " & RecordSetGolden![UNI MED MAX] & " " & RecordSetGolden!NOMBRE_PRODUCTO
    RecordSetGolden.MoveNext
Loop
RecordSetGolden.Close 'Cierra el RecordSet
Set RecordSetGolden = Nothing 'Liberar Recursos Utilizados por el RecordSet
ConectaGolden.Close 'Cierra la Conexion
Set ConectaGolden = Nothing 'Liberar Recursos Utilizados por la Conexion
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tengo una duda access 2010 Reporte vba

Tengo la siguiente sintaxis para filtrar un reporte pero no se filtra no se que tenga mal. DoCmd.OpenReport "ALLM2CONTEDOR", acViewPreview, "FECHA = #" & Format(Me.FECHAOK, "mm-dd-yyyy") & " # AND CONTENEDOR= " & Me.NUMEROCONTENEDOR.Column(1) & ""...
2 respuestas

Contar los registros en formulario con un valor de cero

Como digo en la pregunta es posible contar los registros con un valos cero, y si es así cual es la instrucción para ello. ¿Algún experto me puede ayudar. A parte de esto cuando quiero ebaular alguna respuesta se produce error no se si les ecurre a...
2 respuestas

Puedo utilizar más de 258 caracteres en la instrucción DoCmd. ¿RunSQL?

Estoy utilizando un formulario de una tabla y quisiera que parte de esos datos se traspasaran a otra tabla, pero resulta que hasta ahora lo he hecho pero quiero traspasar más datos y la instrucción es tan grande que no la admite, ¿Se puede ampliar...
4 respuestas

Sumar en formulario inportes pagados he inportes pendientes

Tengo un formulario con una serie de cantidades unas pagadas y otras pendientes y casillas de verificación donde se marcan unas y otras, lo que pretendo hacer es sumar por un lado las pagadas y por otro las pendientes pero no se como hacerlo, hacer...
3 respuestas

Extraer de campo fecha el mes

Necesito el código para extraer de un capo fecha el mes en letra para insertarlo en otro campo se que no sera difícil pero la verdad no lo se mientras gracias por su ayuda
2 respuestas

Cómo hacer que no divida las secciones cuando se imprime el informe

Tengo un informe en ACCESS de clientes agrupados por provincias. Sé como hacer que cada provincia y el listado de clientes vayan cada una en una página (dándole a forzar nueva página después del pie de la sección). Pero yo quiero que todas las...
2 respuestas

Proteger el frontend para que no se puede correr en otro pc

Como dice la pregunta necesito que si instalo en un pc el FRONTEND no se pueda instalar en otro y en lo posible controlar el número de licencias. Agradezco a los expertos que me ayuden con esta inquietud.
2 respuestas

Introducir el valor que yo quiera en cuadro combinado si la casilla de verificación esta activada o desactivada.

Estoy modificando algunos documentos antiguos y actualizándolos, no soy ningún experto. Quiero saber si es posible que cuando en una casilla de verificación esta activada o desactivada fuera posible que en el informe que tengo con diferentes cuadros...
3 respuestas

Combos en cascada en Formulario de consulta

Agradezco la información que me puedan suministrar o un ejemplo para el caso de un formulario de consulta para Ver/Registrar datos; donde las filas contienen 2 combo en cascada.
3 respuestas

Trabajando con sumas en informes.

Estoy desarrollando en Access una BD. Tengo un informe que depende de una consulta. El informe está agrupado por tipos de servicios (chapistería, pintura, montaje, electricidad, etc) y a su vez me muestra por servicio qué trabajadores están...
2 respuestas