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

Código VBA para crear un botón y guardar en PDF

Tengo un archivo word con 7 capturas, una en cada página (1-7), cual seria el código para crear un botón en la barra de herramientas de acceso rápido para convertir en PDF cada página. El resultado seria 7 pdf.
2 respuestas

Ejecutar la base de datos sin que se muestre el entorno de Access.

Ya he terminado mi base de datos. Ahora quiero abrirla pero que no se vea nada del entorno de Access, ni pestañas. Que el formulario de inicio se vea, por ejemplo, sobre la pantalla del escritorio. Alguien me da el paso a paso
2 respuestas

Generar tres números al azar para una rifa

1. Pregunta Estoy elaborando una aplicación de una rifa y necesito crear una función para llenar una tabla con 3 números generados al azar, ningún número se puede repetir en la tabla, si el vendedor tiene activo el campo juegacuatro se le asignarán...
3 respuestas

Enviar hoja activa al monitor secundario con vba

He creado una segunda ventana de mi hoja excel con NewWindow, y lo que pretendo es mediante código VBA enviarla al monitor secundario, lo he intentado con Application.SendKeys "^({ESC}+{RIGHT})", pero no lo consigo, con "^{ESC}" estoy tratando de...
2 respuestas

Intentando sumar campos moneda de totales en informe de Access.

Estoy tratando de sumar dos campos de sumas totales en un informe de Access y no lo logro. Creo que he agotado todas las variantes. La situación es la siguiente: El informe es para emitir una factura al cliente. A un cliente se les puede hacer mas de...
2 respuestas

Base de datos Access se bloquea al trabajar en simultaneo

En contexto tengo una base de datos donde se ingresan datos en un formulario y este a su vez tiene un subformulario. Al inicio solo era utilizada por un usuario. Pero ahora es usada por 4 usuarios más. Tengo una computadora principal donde tengo la...
3 respuestas

Añadir búsqueda al azar en formularios de Access

Tengo un archivo de Access que quiero modificar y actualizar para añadir nuevas preguntas a una base de datos. He visto que en el formulario hay una casilla como de verificación para seleccionar al azar las preguntas de toda la base de datos pero...
2 respuestas

Como puedo añadir registros desde un formulario de búsqueda a un subformulario de otro formulario de registros de artículos

Tengo un formulario [Entrada_almacen] con un subformulario [Subformulario entradas almacen] en el que quiero que se vallan añadiendo los registros; Código (es un campo calculado), Artículo (combobox, porque también lo puedo seleccionar y si lo hago...
2 respuestas

Suma continua aparece en todos los demás registros

Tengo 2 tablas relacionadas,,,,, la tabla 1 la uso con el formulario principal,,,, la segunda para un subformulario,,,,,, y tango una consulta basada en la tabla 2 Con consulta contiene los campos entrada salida saldo (saldo ya esta con su fórmula...
2 respuestas

Cantidad mayor y menor en campos calculados

Tengo un formulario principal con tres subformularios y cada uno con una serie de campos de tipo numero sin decimales, Campo 1, Campo 2, Campo 3... Todos tienen 1 campo calculado del totales, basado en la suma de todos los campos de cada formulario,...
2 respuestas