Como va? estoy armando un programa de gestión de inventarios en excel el cual tiene su base de datos en access, Desde excel envío los registros de salida de productos a una tabla de access que se llama "Salidas" la cual tiene los siguientes campos: el producto, el numero de factura y la cantidad del producto. De la misma forma también envía los registros de entrada de productos a una tabla que se llama "Entradas". En resumen: tengo dos tablas: una entrada y otra de salida, ambas tienen cantidades positivas de productos, y estos productos se encuentran repetidos. Necesitaría obtener una tabla que contenga la lista de productos de ambas tablas pero de productos sin repetir y con la cantidad que resulte de la resta de la suma total de los ingresos menos la suma total de las salidas para que después pueda capturar esos datos en un listbox de excel. Carezco de conocimientos en Acces y en un principio pensé que iba a ser fácil de resolver para mi, pero la verdad me esta dando unas vueltas barbaras. Agradeceré a quien me pueda orientar con este tema y cualquier otra forma de resolución, solo necesito tener el stock almacenado en la base de datos. Un abrazo.

Hola

Crea una consulta nueva ponla en modo visual SQL y lo que haya lo cambias por esto

SELECT Entradas.Cod, Entradas.Cantidad, salidas.Cantidad, [entradas].[cantidad]-[salidas].[cantidad] AS Stock
FROM Entradas INNER JOIN salidas ON Entradas.Cod = salidas.Cod;

comenta

Saludos

 

Mejor así:

SELECT Entradas.Cod, Entradas.Cantidad, salidas.Cantidad, [entradas].[cantidad]-[salidas].[cantidad] AS Stock
FROM Entradas LEFT JOIN salidas ON Entradas.Cod = salidas.Cod;

 

Hace 12 horas, ikanni dijo:

 

Mejor así:

SELECT Entradas.Cod, Entradas.Cantidad, salidas.Cantidad, [entradas].[cantidad]-[salidas].[cantidad] AS Stock
FROM Entradas LEFT JOIN salidas ON Entradas.Cod = salidas.Cod;

 

Muchas gracias por ayudarme! enseguida pruebo tu consulta y comento como me fue!

Hace 12 horas, ikanni dijo:

 

Mejor así:

SELECT Entradas.Cod, Entradas.Cantidad, salidas.Cantidad, [entradas].[cantidad]-[salidas].[cantidad] AS Stock
FROM Entradas LEFT JOIN salidas ON Entradas.Cod = salidas.Cod;

 

Acabo de probar tu consulta y me arroja los productos repetidos, necesito que primero me sume todos los ingresos de entradas y a ese numero le reste la sumatoria de las cantidades de salida de modo que en el listbox me salga un solo registro del producto con la diferencia total no se si me explico bien.

Te comento porque no me he explicado bien al inicio: tanto las tablas INGRESOS como SALIDAS tienen los registros de los productos repetidos ya que son de diferentes ordenes de compras y o ventas. Y la tabla PERSONAS es la que contiene los registros únicos de los productos con su respectivo código. 

de todos modos muchas gracias ya que estoy aprendiendo nuevas setencias sql gracias a vos!

Hola,

Vamos a ver que no lo hice bien, estaba enpanado.

Lo que quieres hacer no se me ocurre mas que hacerlo con tres consultas.

Crea una consulta y llamala: AuxiliarE

SELECT Entradas.Cod, Entradas.Descripción, Entradas.PrecioUnitario, Sum(Entradas.Cantidad) AS Q, Sum(Entradas.SubTotal) AS T
FROM Entradas
GROUP BY Entradas.Cod, Entradas.Descripción, Entradas.PrecioUnitario;

Crea otra consulta y llamala: AuxiliarS

SELECT salidas.Cod, salidas.PrecioUnitario, Sum(Nz([Cantidad],0)) AS Qs, Sum(Nz([SubTotal],0)) AS Ts
FROM salidas
GROUP BY salidas.Cod, salidas.PrecioUnitario;

Y la tercera que será la que te de los datos que tu buscas. Como cuesta lo mismo tambien te dará los importes totales de entrada y salida, para que te hagas una idea...

Crea consulta Stocks

SELECT AuxliarE.Cod, Nz([Q],0) AS QtyE, Nz([Qs],0) AS QtyS, [PUE]*[Qtye] AS IpC, AuxliarE.PrecioUnitario AS PUE, Nz([PUS]*[QtyS],0) AS IpS, AuxliarS.PrecioUnitario AS PUS, [QtyE]-[QtyS] AS Stock
FROM AuxliarE LEFT JOIN AuxliarS ON AuxliarE.Cod = AuxliarS.Cod;

Ya comentas...

 

Perdon señor ikanni pero cmo anido 3 consultas en el entorno de vba? intente esto pero me da error:

AuxiliarE = "SELECT Entradas.Cod, Entradas.Descripción, Entradas.PrecioUnitario, Sum(Entradas.Cantidad) AS Q, Sum(Entradas.SubTotal) AS T FROM Entradas GROUP BY Entradas.Cod, Entradas.Descripción, Entradas.PrecioUnitario;"
AuxiliarS = "SELECT salidas.Cod, salidas.PrecioUnitario, Sum(Nz([Cantidad],0)) AS Qs, Sum(Nz([SubTotal],0)) AS Ts FROM salidas GROUP BY salidas.Cod, salidas.PrecioUnitiario;"
Sql = "SELECT AuxliarE.Cod, Nz([Q],0) AS QtyE, Nz([Qs],0) AS QtyS, [PUE]*[Qtye] AS IpC, AuxliarE.PrecioUnitario AS PUE, Nz([PUS]*[QtyS],0) AS IpS, AuxliarS.PrecioUnitario AS PUS, [QtyE]-[QtyS] AS Stock FROM AuxliarE LEFT JOIN AuxliarS ON AuxliarE.Cod = AuxliarS.Cod;"

rs.Open AuxiliarE, AuxiliarS, Sql, Conexion

If rs.EOF Then

MsgBox "No se encontraron registros."
Exit Sub
End If

Lista.Column = rs.GetRows

 

cn.Close
rs.Close
Set rs = Nothing
Set cn = Nothing

Hace 5 horas, ikanni dijo:

Hola,

Vamos a ver que no lo hice bien, estaba enpanado.

Lo que quieres hacer no se me ocurre mas que hacerlo con tres consultas.

Crea una consulta y llamala: AuxiliarE

SELECT Entradas.Cod, Entradas.Descripción, Entradas.PrecioUnitario, Sum(Entradas.Cantidad) AS Q, Sum(Entradas.SubTotal) AS T
FROM Entradas
GROUP BY Entradas.Cod, Entradas.Descripción, Entradas.PrecioUnitario;

Crea otra consulta y llamala: AuxiliarS

SELECT salidas.Cod, salidas.PrecioUnitario, Sum(Nz([Cantidad],0)) AS Qs, Sum(Nz([SubTotal],0)) AS Ts
FROM salidas
GROUP BY salidas.Cod, salidas.PrecioUnitario;

  
Y la tercera que será la que te de los datos que tu buscas. Como cuesta lo mismo tambien te dará los importes totales de entrada y salida, para que te hagas una idea...

Crea consulta Stocks

SELECT AuxliarE.Cod, Nz([Q],0) AS QtyE, Nz([Qs],0) AS QtyS, [PUE]*[Qtye] AS IpC, AuxliarE.PrecioUnitario AS PUE, Nz([PUS]*[QtyS],0) AS IpS, AuxliarS.PrecioUnitario AS PUS, [QtyE]-[QtyS] AS Stock
FROM AuxliarE LEFT JOIN AuxliarS ON AuxliarE.Cod = AuxliarS.Cod;

Ya comentas...

 

ahora cambie por esto:

rs.Open AuxiliarE, Conexion
rs.Close

rs.Open AuxiliarS, Conexion
rs.Close

rs.Open Sql, Conexion
rs.Close

 

pero me arroja error por que dice que la funcion nz no esta definida 

y esto que es ??? rs.Open AuxiliarE, Conexion

En tu primer msg del hilo decias esto:

Desde excel envío los registros de salida de productos a una tabla de access que se llama "Salidas" la cual tiene los siguientes campos

Si estas enviando los datos a una tabla de access, ¿para que haces una conexión ????? La tabla la tendrás en local y no te hace falta conectarte a nada.

Si lo que quieres es ver los datos como tabla, Crea las consultas que te he puesto arriba y guardalas. Solo tienes que ejecutar la tercera para ver los datos, la tercera se apoya en las otras dos.

Y cuando vuelvas a actualizar nuevos registros con ejecutar la tercera consulta tendrás los datos sin hacer nada mas.

Si lo quieres hacer con formulario, tambien tienes que crear las dos auxiliares y guardarlas.

Y para llenar el Form:

Me.RecordSOurce="SELECT AuxliarE.Cod, Nz([Q],0) AS QtyE, Nz([Qs],0) AS QtyS, [PUE]*[Qtye] AS IpC, AuxliarE.PrecioUnitario AS PUE, Nz([PUS]*[QtyS],0) AS IpS, AuxliarS.PrecioUnitario AS PUS, [QtyE]-[QtyS] AS Stock, [Stock]*[pue] AS [Valor Sotck]
FROM AuxliarE LEFT JOIN AuxliarS ON AuxliarE.Cod = AuxliarS.Cod;"

 

 

 

 

Hace 8 minutos , ikanni dijo:

y esto que es ??? rs.Open AuxiliarE, Conexion

En tu primer msg del hilo decias esto:

Desde excel envío los registros de salida de productos a una tabla de access que se llama "Salidas" la cual tiene los siguientes campos

Si estas enviando los datos a una tabla de access, ¿para que haces una conexión ????? La tabla la tendrás en local y no te hace falta conectarte a nada.

Si lo que quieres es ver los datos como tabla, Crea las consultas que te he puesto arriba y guardalas. Solo tienes que ejecutar la tercera para ver los datos, la tercera se apoya en las otras dos.

Y cuando vuelvas a actualizar nuevos registros con ejecutar la tercera consulta tendrás los datos sin hacer nada mas.

Si lo quieres hacer con formulario, tambien tienes que crear las dos auxiliares y guardarlas.

Y para llenar el Form:

Me.RecordSOurce="SELECT AuxliarE.Cod, Nz([Q],0) AS QtyE, Nz([Qs],0) AS QtyS, [PUE]*[Qtye] AS IpC, AuxliarE.PrecioUnitario AS PUE, Nz([PUS]*[QtyS],0) AS IpS, AuxliarS.PrecioUnitario AS PUS, [QtyE]-[QtyS] AS Stock, [Stock]*[pue] AS [Valor Sotck]
FROM AuxliarE LEFT JOIN AuxliarS ON AuxliarE.Cod = AuxliarS.Cod;"

 

 

 

 

Perdon señor ikanni no estoy comprendiendo bien. Desde un formulario en excel envios los datos a una base de datos access: a dos tablas(entradas y salidas). lo que necesito después es hacer una conexión para capturar esos datos ordenados en un listbox de excel. De access no se nada y de sentencias sql solo lo necesario como para tomar datos de una tabla entera de access y volcarlos a un listbox nada mas. No se crear consultas dentro de access. Creo entender que esas consultas que me envió son para ponerlas en vba de access?  o me esta diciendo que arme esas consultas con el asistente de consultas de access? Mil disculpas pero como puedo crear esas 2 consultas y ejecutar la tercera? se refiere a que las cree en vba de excel o en access? perdón estoy muy confundido

Hola Giordancisco,

Yo estoy hablando de peras, pero me da la sensación que tu estas hablando de manzanas.?

Te dejo la BBDD que colgaste con las consultas hechas. Y de paso te he hecho un formulario para visualizarlo. A ver sí es eso lo que buscas.... y te olvidas de Excel ?

Enlace:

https://1drv.ms/u/s!AlIYhsQ9-og1gSLHl3EIhRQl2_yU?e=nt6FjQ

Si quieres seguir viendo los datos en un listbox desde excel, con que llames a la consulta que la llamo Stock con tu conexión para rellenar el ListBox, te saldran los datos

Ya comentas

Hace 12 horas, ikanni dijo:

Hola Giordancisco,

Yo estoy hablando de peras, pero me da la sensación que tu estas hablando de manzanas.?

Te dejo la BBDD que colgaste con las consultas hechas. Y de paso te he hecho un formulario para visualizarlo. A ver sí es eso lo que buscas.... y te olvidas de Excel ?

Enlace:

https://1drv.ms/u/s!AlIYhsQ9-og1gSLHl3EIhRQl2_yU?e=nt6FjQ

Si quieres seguir viendo los datos en un listbox desde excel, con que llames a la consulta que la llamo Stock con tu conexión para rellenar el ListBox, te saldran los datos

Ya comentas

Muchas gracias señor ikanni, enseguida lo pruebo y comento.

Hace 12 horas, ikanni dijo:

Hola Giordancisco,

Yo estoy hablando de peras, pero me da la sensación que tu estas hablando de manzanas.?

Te dejo la BBDD que colgaste con las consultas hechas. Y de paso te he hecho un formulario para visualizarlo. A ver sí es eso lo que buscas.... y te olvidas de Excel ?

Enlace:

https://1drv.ms/u/s!AlIYhsQ9-og1gSLHl3EIhRQl2_yU?e=nt6FjQ

Si quieres seguir viendo los datos en un listbox desde excel, con que llames a la consulta que la llamo Stock con tu conexión para rellenar el ListBox, te saldran los datos

Ya comentas

Muchas gracias señor ikanni, enseguida lo pruebo y comento.

Probado y funciona perfecto. Muchísimas gracias señor Ikanni, esto tmb me servirá. en principio queria que la consulta stock se transformase en una tabla de manera autamatica a partir de las tablas ingresos y salidas pero creo que tenerlo en forma de consulta quizas sea mejor para capturarlo en el listbox de excel. Voy a estudiar el archivo que me envió para poder descifrar como lo logro y así seguir aprendiendo. Nuevamente muchas gracias, le aprecio mucho.

Hola girdascino,

encantado que te sirva. Cualquier otra duda o consultapor aqui me encontraras.

Saludos