Control de stock en excel con access

[Enigma25]

Buen dia

Estimados señores

En el siguiente adjunto dos archivos en Excel con una base de Datos Access para llevar el control de inventario. Este aporte asi como muchos mas, tienen la colaboracion, ayuda e ideas de muchos de los expertos que ya conocen como lo son; @[uSER=46507]Macro Antonio[/uSER] , @[uSER=9328]Gerson Pineda[/uSER] , @[uSER=143023]Riddle[/uSER] , @[uSER=133908]bigpetroman[/uSER] , así como muchos otros que buscaré para agradecer.

El pequeño trabajo está creado para ser utilizado con Excel usando Acces como manejador de bases de datos.

En primer lugar, para poder usarlo debe habilitar las macros en caso de que no las tengan.

Es importante que para usarlo, peguenlo los dos archivos en una carpeta o bien sea en el escritorio para que no tengan problemas con la conexión.

El aporte está diseñado para crear base de datos de Clientes, Proveedores y por supuesto los Productos. La unidad de medida y también la categoría de los productos.

Sus formulario de Entradas y el de salidas.

Cuenta con el formulario para realizar el análisis ABC, El reporte de movimientos de los productos y por supuesto el formulario para visualizar en detalle las operaciones registradas.

algunas otras cosas mas que verán a lo largo del funcionamiento del mismo.

Espero les guste y estaré atento a cualquier pegunta que tengan o sugerencias y también ayuda del mismo.

muchas gracias al señor bigpetroman por su valiosa ayuda en la consulta inner join para las cuatro tablas que tanto me dieron dolores de cabeza.

Base Productos.zip

StockExcelAccess.zip

[MCarla]

Muy bueno, Enigma! Lo único.. no imprime en numero de invoice/pedido. Gracias y enhorabuena!

[Enigma25]

Hola Mcarla

Listo

Ayer lo habia visto tambien pero me fuí a la casa y alla´fué donde lo modifiqué.

Prueba nuevamente y me avisas.

Mis respetos.

[MCarla]

Perfecto!! funciona muy bien! Y una vez más, felicidades por la herramienta!

[Enigma25]

Gracias

Espero te sirva.

[MCarla]

Una cosita a más Enigma, me gustaría añadir el logo de la empresa y también que me dé la opción de imprimir en pdf (imprime directamente por la impresora que tenga como predeterminada). Como podría adaptarlo? Muchas gracias!

[Enigma25]

Recuerda.... Borra toda la informacion de la Base de Datos para que inicies con todo desde cero.

[MCarla]

Sí, sí. Eso ya lo he hecho. Con Access es mucho más fácil. Gran trabajo

[Enigma25]

Hola MCarla

Lo de la imagen y ela impresion en .jpg vamos a ver como le hacemos. Esto mas que todo porque ampliaria mucho en tamaño el libro de excel, pero no es imposible. De hecho me das una nueva tarea ya que personalmente, ninguna de las dos opciones lo manejo.

Una pregunta..... Te parece contar con un nuevo formulario para realizar traspasos entre almacenes?

Trabajaré con el mismo archivo y le haré modificaciones para que trabaje en funcion al manejo de varios almacenes. No obstante y dependiendo del tamaño, lo adjuntaré al foro. De lo contrario..... la vida es bella verdad?

[MCarla]

Vaya retos te planteas!! seguro que lo consigues!!

[ABOHORQUEZ]

Excelente, si necesitas adicionar logo... creo tendrias que adicionar empresa esa decir codigo de empresa para que maneje varias y tambien sus registros tengan como llave el codigo de la empresa.. etc.. pero va muy bien.

[Enigma25]

Hola ABOHORQUEZ

Me interesa, mas no sabría como hacerlo. Supongo que esto se puede insertar en la base de datos verdad?

De ser así, tendrías algún ejemplo?...agradecería para que pueda hacerlo.

Nota: seria algo como insertar la imagen en la tabla, que esta se muestre en el formulario y a su vez en la hoja que se imprima con un tamaño predeterminado.

He hecho algunas investigaciones sobre insertar imágenes pero no se si existe otra manera

[ABOHORQUEZ]

Hola,

te decia que si usas un campo clave primario mas con el nombre del empresa. podria no solo manejar un invetario si no varios en una misma base de datos, ya que muchas tiendas manejan varias razones con logos diferentes..

Mira

Cod_Empresa - los demas campos de tu tabla...

XXXXXXXX - xxxxxxxxxxxxxxxxxxxxxxxx...

Luego para asiganr una imagen pienso que es mejor no almacenar imagenes en la base ya que pesan demasiado y hacen que las bases sean muy pesadas y lentas con col tiempo.

Podrias solo almacenar la ruta de la imagen y mostrarla. crea un directorio y Imagene.. alli luego puedese selecionarlas y guardar solo la ruta:"\\Imagenes\Logo.jpg"

Hay algo que me gusta almacenar en mis tablas y es la infromacion de fecha, hora y usuario que realizo dicho movimiento omodificacion de cad registro-

estos serian campos al final de tu tabla que no necesitas mostrarselos, pero que mas adelante podrian ser util para hacer histrial de movimientos transaciones etc..

Saludos.

[Enigma25]

En lo ultimo tiene mucha razón. No obstante y por tamaño en archivos, obviamente algunas cosas que también son importantes no las agrego en el aporte ya que de ser así, no pudiera adjuntarlo en el foro. Pero por supuesto son consideradas.

La otra pregunta...: como haría para que la imagen se pegue en la hoja y pueda definir el tamaño para que esta se ajuste?

Nuevamente, si tiene un pequeño ejemplo bien una base de datos access al igual que el archivo de excel para mostrar la imagen, seria de utilidad.

Saludos.

[ABOHORQUEZ]

En el foro hay muchos temas con el manejo de las imagenes. echale un revisada a esos temas y veras muchos ejemplos de insertar imagenes. si ya tienes las ruta guardado en un campo en tu base de acceso en excel solo es insertarla donde quieras...si despues necesitas algo mas en concreto podemos revisarlo.

poe ejemplo comienza por aqui.. Insertar imágenes en un catálogo con imagen por defecto | Ayuda Excel

un saludo.

[Enigma25]

Hola MCarla

Perdona que no tenga nada aun pero en vista de la situacion, no he tenido cabeza para pensar ni buscar nada para atender tu requerimiento. Culaquier cosa te avisaré.

Saludos.

[bigpetroman]

@[uSER=98799]Enigma25[/uSER],

En lo ultimo tiene mucha razón. No obstante y por tamaño en archivos, obviamente algunas cosas que también son importantes no las agrego en el aporte ya que de ser así, no pudiera adjuntarlo en el foro. Pero por supuesto son consideradas.

por el tema del tamaño de los archivos NO deberias pararte, si no los puedes subir directamente al foro, lo subes a servidores de archivo, tales como dropbox, drive, box, etc. y luego compartes el link, así de simple, la idea es que tu aporte quede lo mas completo posible, suerte

[Enigma25]

Gracias amigo bigpetroman.

desconozco como es el procedimiento para ello.... es una pagina donde se puede adjuntar/guardar., se puede ver en que parte... como se haria? y perdone la ignorancia.

[bigpetroman]

Busca en google, servidores de archivos; si tienes gmail como correo, tal vez te sirva mas google drive, sino, puede usar dropbox; no es nada complicado, te registras en el servicio, subes tu archivo y el sistema te da un link para descargar el archivo, ese link es el que vas a compartir; como te digo, en google de seguro que conseguiras la información necesaria para utilizar el servicio, suerte

[Enigma25]

Voy "corriendo" jejeje

Mil gracias amigo.

[Enigma25]

Hola ABOHORQUEZ y MCarla

Ya dando los primeros pasos en lo que respecta al mostrar imagenes por medio de la ruta en un control image y que dichas imagenes esten almacenadas en la misma carpeta donde se encuentre el archivo.

Solo basta con saber el como se guarda la ruta a la bases de datos Access y que por medio de ella se pueda mostrar las imagenes en el formulario.

Espero si me puedes orientar al respecto.

Saludos.

[ABOHORQUEZ]

OK, alli le dedique unos minutos despues de llegar de mi trabjo...

anexo esta los archivos que subiste inicalmente.

Entre atu base de datos acces cree una tabla llamada Empresa y tambien un campo llamado logo

Luego cree un boton Logo en tu formulariode inicio y alli un codigo para cargar el logo y gurdar la ruta en la tabla empresa campo logo y otro codigo que carga el logo si ya existe ruta en la base de datos. esto codigo te los marque 'Andys----..

Espero que sea de ayuda.

un saludo.

StockExcelAccess.rar

[Enigma25]

Hola ABOHORQUEZ

que le puedo decir....? Simplemente fenomenal, como dice mi sobrina:"Fantabuloso (Fantastico y fabuloso)" jejejeje

Cada dia se aprende algo nuevo, de hecho su codigo lo he modificado para que la imagen se cargue desde la msima carpeta donde se encuentre los archivos con el .Path al igual que otra parte de las lineas para que si en caso de que la imagen no se encuentre, pues que no se vea nada usando la funcion If IsNull.

Por supuesto que el tema de las imagenes seria adecuado que la ruta sea en base a la carpeta "Imagenes" para que asi sea lo mas recomendable, pero eso lo voy a trabajar para que funcione.

Solo resta el tema de la insercion de la imagen en unas celdas combinadas y que el tamaño se ajuste a la mismas.

El codigo seria el siguiente:

Sub Carga_Imagen()

Dim xLogo As String

Set Rs = New ADODB.Recordset

Rs.Open "Select * From Empresa", Cnn, adOpenKeyset, adLockOptimistic, adCmdText

If Not IsNull(Rs.Fields("Logo")) Then

xLogo = ThisWorkbook.Path & (Rs.Fields("Logo"))

Me.Image1.Picture = LoadPicture("")

Me.Image1.Picture = LoadPicture(xLogo)

Me.Image1.PictureSizeMode = fmPictureSizeModeStretch

Me.Ruta_Logo.Caption = xLogo

Else

xLogo = ""

Me.Image1.Picture = LoadPicture("")

Me.Image1.Picture = LoadPicture(xLogo)

Me.Ruta_Logo.Caption = "Falta Incorporar la Imagen del Cliente"

End If

Rs.Close

Set Rs = Nothing

End Sub

P.D. Dejo a la disposicion un ejercicio que estaba haciendo para mostrar varias imagenes desde combobox.

Mis respetos.

Imagenes.zip

[Enigma25]

Que tal bigpetroman

Intenté ingresar a la pagina de dropbox pero... si es que me equivoqué de pagina... no pude hacer nada porque no me aparecian las cosas como habia visto en el video que está en youtube. Claro está que hay varios pero uno en especial me llamó la atencion.

Ahora bien y considerando que por el trabajo no me puedo registrar, solo queria saber cual seria la opcion mas ideal para subir archivos, basandome en las opciones que me das...:dropbox, drive, box.

Si me dierias el link de cada uno y el como se haria de manera simple te lo agradeceria. Claro está que yo intentaria por mi parte pero como dije; en mi trabajo no puedo hacerlo ya que supongo que tendria que descargarlo o algo parecido...verdad?

Saludos y mis respetos.

[Enigma25]

Hola ABOHORQUEZ

Mil gracias por la ayuda y sugerencia.

Ya puedo mostrar la imagen en cada formulario si necesidad de crear mas codigos para cada uno. Es decir; los resultados de la consulta para mostrar la imagen los guardo en una variable y dicha variable la llamo en cada formulario sin necesidad de codificar a cada formulario para tal fin. Esto es una mejora siginifcativa y menos trabajo engorroso.

Sub Carga_Imagen()

Set Rs = New ADODB.Recordset

Rs.Open "Select * From Empresa", Cnn, adOpenKeyset, adLockOptimistic, adCmdText


If Not IsNull(Rs.Fields("Logo")) Then

    xLogo = ThisWorkbook.Path & (Rs.Fields("Logo"))

    BorImagen = LoadPicture("")

    CargaImagen = LoadPicture(xLogo)

    RutImagen = xLogo

Else

    xLogo = ""

    BorImagen = LoadPicture("")

    CargaImagen = LoadPicture(xLogo)

    RutImagen = xLogo

End If

Rs.Close

Set Rs = Nothing

[/CODE]

En verdad muy agradecido.