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

Outlook ya no envía mis correos desde Access, no reconoce la contraseña

Desde access envío un correo electrónico al cliente con el PDF de una factura a través de outlook, pero recientemente con la seguridad actual (oAuth) ya no me deja, utilizo outlook 2016 ¿Alguien sabe como resolverlo?
1 respuesta

En una tabla hacer una Suma acumulada

Tengo una tabla con 5 columnas id, código, fecha, cantidad, cantidadacumulada, donde la cantidad acumulada es el resultado de sumar acumulado todos los códigos iguales dado por los números de la casilla cantidad, el tema que en visual basic lo logro...
3 respuestas

Usuarios múltiples para un crm

Necesito q al CRM q he creado puedan acceder al mismo tiempo dos o más usuarios para registrar info, de ser posible la base de datos deberia estar guardada en Dropbox.
5 respuestas

Recorrer una tabla de Access

Tengo un formulario de access en el que tengo un campo llamado importe y otros importe_1, importe_2, importe_3 y un campo llamado reg que lo que necesito es que si el valor del registro es 21 coloque el importe en importe_, si es 22 lo coloque en...
4 respuestas

¿Qué es mejor validar con CHECK en sql o desde el servidor backend?

Estoy buscando la forma de validar los datos pero utilizando menos código del lado del servidor para validar ejemplo nombre, apellido, etc a la hora de ingresar en una tabla. Quisiera usar el check para atrapar ese error en una excepción y mostrarlo...
1 respuesta

Macro exportar excel a sentencia SQL

Desde un archivo excel necesito crear un archivo *.txt para incorporar a mi base sql. Te adjunto lo que necesitaría en una imagen. (En este caso son dos filas pero podrían ser más). Se que traspasa lo que es una duda, pero es que los conocimientos en...
2 respuestas

Trabajando por primera vez con código vba en formulario de Access.

Estoy aplicando con ayuda de otras personas un código vba a un formulario y a pesar de todo no me funciona como lo esperaba. ¿Alguien en esta plataforma que por favor me revise esta tarea y oriente al respecto?
1 respuesta

Trabajando con formato condicional en formularios de Access.

Estoy construyendo una base de datos en Access. Tengo un formulario principal ¨SERVICIOS¨ que contiene un primer subformulario ¨ETAPAS¨ y un segundo subformulario¨VENTAS¨ (intenté subir la imagen pero no funciona esta opción de la plataforma) Lo que...
5 respuestas

Como puedo hacer para Exportar un informe de Access a PDF añadiendo fecha y la hora actual del Pc

Tengo este código, pero no tiene la fecha y la hora ¿Cómo hago? Sería Algo así cuando guarda: Test 2023-07-06 15:21.PDF Private Sub Comando1172_Click() Dim strUserName As String, strPath As String strPath = "C:\Users\usuario\Documents\test.pdf"...
2 respuestas

Access código para copiar a tabla grupo de opciones

Tengo un formulario independiente con campos independientes. Uno de esos campos es un marco (grupo de opciones) que código podre utilizar para al dar click en el botón guardar me envíe los datos a la tabla específicamente lo que se escogió el el...
2 respuestas