Bienvenido al Blog Especializado en Microsoft Access

Cómo Crear un Visor de Sesiones en Access con VBA (Paso a Paso)

2026-06-11T19:35:25.235-06:00

En esta primer leccion aprenderemos la logica que esta detras de un visor de sesiones de usuarios en Access. Si eres un administrador de un sistema en particular esto te interesa. Saber con certeza quienes esta visitando el sistema desde que equipos y como estan finalizando sus sesiones. Todo lo aprenderemos en esta tema. Comencemos...

Revisa el video en YouTube y descarga ahi la plantilla completa.

Paso a seguir en esta leccion:

Paso 1: Ver Video para entender el contexto de la Plantilla

Paso 2: Descarga Plantilla

Paso 3: habilita seguridad de Access para abrir la funcionalidad completa de la plantilla

Paso 4: Revisa en modo diseño todos sus objetos (tabla, consultas, formularios, macros, modulos VBA)

Paso 5: Estudia los eventos involucrados en el funcionamiento de la plantilla (on load, on unload) de formulario principal

Paso 6: Revisa los comentarios de los modulos y revisa su logica

Paso 7: Entra y sal de Sistema varias veces y revisa como se registran tus propias sesiones

Paso 8: Intenta agregar un formulario nuevo a la plantilla e incorporale tambien los eventos (on load, on unload) de la misma forma como lo hace el formulario principal.

Actualizaciones y nuevas caracteristicas en Access

2026-04-22T09:09:00.000-06:00

Actualizaciones mas recientes que ha tenido MS Access para toda la comunidad desarrolladora de bases de datos de escritorio.

Estas notas de la versión proporcionan información sobre las nuevas características y actualizaciones que no son de seguridad que se incluyen en las actualizaciones del canal actual para Aplicaciones Microsoft 365 para empresas, Aplicaciones Microsoft 365 para negocios y las versiones de suscripción de las aplicaciones de escritorio de Microsoft Access

Versión 2603: 09 de abril

Versión 2603 (compilación 19822.20168)

Problemas corregidos

Se ha corregido un problema por el que algunos complementos no mostraban una barra de información o banner cuando se agregaba un destinatario externo a un correo electrónico saliente en Outlook.

Versión 2503: 02 de abril

Versión 2503 (compilación 18623.20156)

Problemas corregidos

Access

Se ha corregido un problema por el que un usuario que intentaba importar un archivo txt/csv en Access se enfrentaba a errores de conversión de tipos al importar los datos en una tabla de Access existente si el campo de la tabla usaba el tipo de datos doble.

Versión 2502: 05 de marzo

Versión 2502 (compilación 18526.20144)

Problemas corregidos

Access

Se ha resuelto un problema en Access en el que el evento MouseWheel en los formularios no funcionaba correctamente. Cuando se usa en un formulario de Access, el evento no indica el número de líneas para desplazarse por el argumento Count.

Versión 2410: 28 de octubre

Versión 2410 (compilación 18129.20116)

Problemas corregidos

Access

Se ha corregido un problema que provocaba que la aplicación se cerrara inesperadamente con una posible pérdida de datos o daños en los datos cuando un usuario intentaba copiar determinados caracteres de guion.
Se ha corregido un problema por el que las conexiones de Microsoft Open Database Connectivity (ODBC) a Salesforce ya no funcionaban.

Versión 2409: 08 de octubre

Versión 2409 (compilación 18025.20140)

Problemas corregidos

Access

Las líneas de cuadrícula del gráfico ahora son más oscuras, por lo que son más visibles.

Versión 2407: 01 de agosto

Versión 2407 (compilación 17830.20138)

Problemas corregidos

Access

Se ha corregido un problema con las tablas vinculadas. Cuando un usuario intentó cerrar una tabla vinculada existente con un origen de datos Dynamics 365 se muestra el siguiente error, "Esta acción restablecerá el código actual en modo de interrupción".

Versión 2404: 29 de abril

Versión 2404 (compilación 17531.20120)

Problemas corregidos

Access

Se ha corregido un problema de rendimiento al aplicar criterios al campo id. de una consulta a una tabla ODBC vinculada.
Se ha corregido un problema por el que Access no ejecutaba macros firmadas digitalmente.

Versión 2402: 12 de marzo

Versión 2402 (compilación 17328.20184)

Problemas corregidos

Access

Se ha corregido un problema que provocaba que la aplicación se cerrara inesperadamente.

CODIGO VBA GRATIS PUNTO DE VENTA EN ACCESS

2022-08-25T08:15:00.003-05:00

DESCARGA COMPLETAMENTE GRATIS CODIGO VBA DEL PUNTO DE VENTA EN ACCESS.

CODIGO VBA

COMO USAR UN SLIDER EN ACCESS

2022-02-06T13:12:00.001-06:00

Control Slider en Access

En este configurardor de colores basado en RGB (Red, Green, Blue) es un claro ejemplo de como podemos usar de forma practica un Control Slider en Access, lo unico que necesitamos es insertar este control desde los ActiveX disponibles para Access y configurar algunas de sus propiedades y eventos que indicare a continuacion.

En un formulario en vista de diseño insertaremos el control Microsoft Slider Control version 6.0

Posteriormente despues de haberlo insertador cerraremos nuestro formulario grabando dicha insercion, esto servira para registrar correctamente el Control Slider en Access.

Los detalles para desarrollar este ejemplo lo dejo expuesto en este video.

INSTALAR Y CONFIGURAR XAMPP y MYSQL - CREAR TU PROPIO SERVIDOR LOCAL

2020-10-21T12:41:00.007-05:00

En esta sección mediante un caso practico, se explica cómo crear tu propio Servidor local MySQL instalando y configurando XAMPP.

Siguiendo este caso practico podrás montar tu propia base de datos en este Servidor y ya no depender de las limitaciones de espacio que tenemos con Access.

Así nuestros Sistema de Access serán mas potentes para almacenar datos de forma ilimitada.

Descarga XAMPP desde su portal Oficial AQUÍ

Sigue este caso Practico en este Video: Instalar y Configurar XAMPP

La configuracion de XAMPP para que los servicios se ejecuten automaticamente son estas:

CREAR .EXE PARA SISTEMA DE INVENTARIOS Y COMPRAS | E15

2020-03-01T21:05:00.002-06:00

En esta ultima entrega de este Laboratorio del Sistema de Inventarios y Compras en Access vamos a crear un Ejecutable .EXE y un instalador para nuestra Aplicación de Access.

Tambien puedes adquirir el Sistema de Inventarios y Compras para este video tutorial para mejor aprendizaje por solo $4.50 dolares

Veamos el Siguiente Video

ANTERIOR INDICE

CREAR MENU OFFICE EN ACCESS | SISTEMA DE INVENTARIOS Y COMPRAS EN ACCESS - E14

2020-02-29T21:12:00.002-06:00

En esta entrega vamos a crear un Menú estilo Office para nuestro Sistema de Inventarios y Compras. Ustedes podrán adecuar los menús de la forma que mejor les funcione, con las instrucciones que aquí les muestro en el vídeo.

Tambien puedes adquirir el Sistema de Inventarios y Compras para este video tutorial para mejor aprendizaje por solo $4.50 dolares

Veamos el Vídeo de como hacerlo:

Vamos a necesitar:

Conocer sobre el tema de XML Aqui dejo una Publicacion

http://aulaclick-access.blogspot.com/2012/02/crear-una-cinta-ribbon-en-access-2007.html

Visual Studio 2019 , Aqui dejo los enlaces por si no lo tienen

1- Descargar Visual Studio Community en este enlace: https://visualstudio.microsoft.com/es/vs/

2- Instalar Visual Studio: Ver Video https://youtu.be/LHSycwITBnI

Esquema Office para Programa XML

Descargar Aqui

ANTERIOR INDICE SIGUIENTE

REPORTES DE INVENTARIOS Y COMPRAS EN ACCESS E13

2020-02-29T13:37:00.002-06:00

En esta entrega elaboraremos 2 reportes que complementaran nuestro Sistema de Inventarios y Compras en Access, nuestros diseños se basaran en el Movimientos de Inventarios y también Ordenes de Compra.

Tambien puedes adquirir el Sistema de Inventarios y Compras para este video tutorial para mejor aprendizaje por solo $4.50 dolares

Veamos el siguiente Vídeo

ANTERIOR INDICE SIGUIENTE

SPLASH SCREEN SISTEMA DE INVENTARIOS Y COMPRAS | ENT-12

2020-02-29T12:11:00.002-06:00

En esta entrega realizaremos un Splash Screen del Sistema de Inventarios y Compras, el método es realmente sencillo y fácil de implementar, este requiere de nuestro sentido de creatividad y diseño.

Solo vamos a necesitas de un formulario y una Imagen de nuestra elección para nuestra aplicación.

Tambien puedes adquirir el Sistema de Inventarios y Compras para este video tutorial para mejor aprendizaje por solo $4.50 dolares

En Access hay 2 eventos importantes en el diseño de este tipo de pantalla, estos son:

Al cronómetro
Intervalo de cronómetro

Veamos el siguiente Vídeo

ANTERIOR INDICE SIGUIENTE

MENU SISTEMA DE INVENTARIOS Y COMPRAS | ENT-11

2020-02-28T12:16:00.002-06:00

En esta entrega se Diseña y crea el Menú del Sistema de Inventarios y Compras en Access, se utilizan 2 nuevos formularios uno de diseño y otro de navegación.

Tambien puedes adquirir el Sistema de Inventarios y Compras para este video tutorial para mejor aprendizaje por solo $4.50 dolares

Esta sera la primer pantalla que nos aparecerá al arrancar el Sistema por lo que se requiere que contenga todos los módulos ya antes vistos.

En el Siguiente Vídeo se explica su elaboración.

ANTERIOR INDICE SIGUIENTE

BORRAR REGISTROS NO CONSECUTIVOS EN ACCESS

2020-02-20T21:24:00.000-06:00

Cuando necesitamos Borrar registros no consecutivos en Access, habitualmente lo hacemos de uno en uno, esto se debe a que el control de Subformulario no tiene la propiedad para seleccionar varios registros no consecutivos y solo después borrar. Sin embargo esto se puede resolver de una forma sencilla.

Este Proceso lo haremos en 4 Pasos:

PASO 1 -Agregar un Campo Nuevo "SELECCIONAR" a la tabla que queremos realizar dicho proceso.

PASO 2 - Crear 2 Consultas de Acción, una de Actualización y una de Borrado de Registros para la misma tabla en cuestión.

PASO 3 - Llevar nuestra tabla a un Diseño de Formulario, esto creara un subformulario automáticamente.

PASO 4: Crear 2 Botones para Ejecutar las Selección y Borrado de Registros

Descargar Ejemplo Aquí

COMO CREAR UN EJECUTABLE (.EXE) PARA ACCESS

2020-02-19T20:16:00.000-06:00

Todos sabemos que MS Access puede crear ejecutables con extensión (.accde) pero no un ejecutable con extensión (.exe) . El primero es una ejecutable nativo de Access, el segundo lo tendríamos que crear nosotros a través de otro software, por ejemplo Visual Studio.

En esta entrega dejo los detalles de lo que necesitamos para Crear un Ejecutable .exe para Access en cualquier base de datos que hayamos creado, así como un Instalador Setup.exe

Ver el Siguiente Vídeo

1- Descargar Visual Studio Community en este enlace: https://visualstudio.microsoft.com/es/vs/

2- Instalar Visual Studio: Ver Video https://youtu.be/LHSycwITBnI

3- Descargar Ejemplo de la base de datos de Alumnos: Descargar Aquí

**Si no le Aparece Disponible esta Referencia Microsoft.Office.Interop.Access en Visual Studio:

Instalar lo Siguiente:

En Visual Studio ir al Menu: Herramientas y luego al SubMenu Obtener Herramientas y Caracteristicas y Seleccionar: Office/SharePoint Desarrollo e Instalar.

Invocar Funcion VBA desde una Consulta

2020-02-14T09:33:00.000-06:00

Crear consultas en Access que muestren un resultado múltiple es posible Invocando una Función VBA, esto resulta útil cuando un valor de determinada columna contiene varios resultados y estos determinan el contenido de otra columna.

Pasemos a un Ejemplo:

Mediante un Consulta Determinar el Bono de Compensación que recibe un Vendedor por el monto de Ventas Mensual.

Supongamos que estas son las Ventas de Roberto durante el Mes:

El total de Ventas del mes es de $27,550

Pero los Bonos de compensación se otorgan mediante los siguientes Rangos:

< $20000 --- $0
>=$20000 y < $22000 --- $500
>=$22000 y <$25000 --- $1500
>=$25000 y <$28000 --- $2500
>=$28000 y <$31000 --- $3500
>=$31000 y <$35000 --- $5000
>=$35000 ---- 20% de Comisión

De este modo Roberto estaría recibiendo una Compensación Mensual de $2500

Pero Necesitamos Crear una Consulta que Ejecute esta Valoración de Forma automática y lo haremos a través de una Función VBA que llamaremos CalcularCompensacion

Pasemos al diseño de la Consulta (llamar Función desde Consulta)

Ahora Creamos La Función CalcularCompensacion

Al Ejecutar la Consulta obtendremos el siguiente resultado:

Descargar Aquí Ejemplo

Ver Vídeo de Ejemplo:

Crear Atajos de Teclado en Access - AutoKeys

2019-09-11T09:55:00.000-05:00

Puede asignar un acción o un conjunto de acciones a un método abreviado de teclado o tecla específico mediante la creación de un AutoKeys grupo de macros. Cuando presione el método abreviado de teclado o tecla, Microsoft Office Access realiza la acción.

Las macros también te permitirán crear métodos abreviados de teclado. Esto es, podremos asignar a una combinación de teclas una determinada acción, a través de una macro. Sólo tendrás que seguir los siguientes pasos:

1. Crea una nueva macro y llámala AutoKeys.

2. Crea una submacro por cada combinación de teclas que quieras implementar.

3. Como nombre, cada submacro deberá contener una combinación de teclas que siga la sintaxis de la siguiente tabla:

Sintaxis AutoKeys métodos abreviados de teclado

La siguiente tabla muestra algunos ejemplos de métodos abreviados de teclado que se pueden escribir en la columna Nombre de Macro para realizar asignaciones de teclas en un AutoKeys grupo de macros. Estos métodos abreviados de teclado son un subconjunto de la sintaxis de la que se usa en la instrucción EnviarTeclas Microsoft Visual Basic.

Nombre de la macro	Método abreviado de teclado o tecla
^ A o ^ 4	CTRL + A o CTRL + 4
{F1}	F1
^ {F1}	CTRL+F1
+ {F1}	MAYÚS+F1
{INSERT}	INSERTAR
^ {INSERTAR}	CTRL + INSERTAR
+ {INSERT}	MAYÚS+INSERT
{DELETE} o {DEL}	SUPRIMIR
^ {DELETE} o ^ {DEL}	CTRL+SUPR
+ {SUPR} o + {SUPR}	MAYÚS + SUPR

Esto no significa que sólo puedas utilizar esas combinaciones. Recuerda, se trata de la sintaxis, pero podrías también utilizar {F2}, {F4}, ^{F5}, etc. Lo único que deberás tener en cuenta es que la tecla CTRL se escribirá como ^, y la tecla MAYÚS como +.

Las teclas que contengan más de una letra deberán ir encerradas entre llaves {} para que no se confundan con combinaciones. Por ejemplo, END sería el equivalente a la combinación de teclas E+N+D, mientras que {END} equivaldría a pulsar la tecla FIN.

4. Incluye tantas acciones como desees que se ejecuten al pulsar las teclas.

Es recomendable que trates de comprobar que la combinación no exista ya por defecto en Access, porque le dará prioridad a tu macro. Por ejemplo, F1 ejecuta la ayuda de Access, si asignas una macro a F1 ya no dispondrás de ese práctico atajo.

Veamos un ejemplo:

En la imagen vemos cuatro submacros que nos permitirán que:

- Al pulsar F2 se abre el formulario de Compras

- Al pulsar F3 se abre el formulario de Inventarios

- Al pulsar F4 se abre el formulario de Ventas

- Al pulsar SHIFT+F12 Salir el Sistema

ORDENES DE COMPRA EN ACCESS | ENT-10

2019-08-11T12:24:00.002-05:00

Ya estamos en la entrega 10 de este laboratorio Sistema de Inventarios y Compras en Access, en esta entrega se elabora el formulario de Ordenes de Compra y Detalles, para realizar esta tarea necesitamos revisar la relación de tablas en este laboratorio y ver cual sera su interacción de datos con otras tablas.

Tambien puedes adquirir el Sistema de Inventarios y Compras para este video tutorial para mejor aprendizaje por solo $4.50 dolares

Veamos en este vídeo la relación de las tablas afectadas y la creación de este formulario.

ANTERIOR INDICE SIGUIENTE

CREAR Y AGRUPAR REPORTES EN ACCESS | MENU DE INFORMES

2019-08-10T11:43:00.003-05:00

Hola Amigos de AulaClick de Access en esta publicación les traigo un método para crear y agrupar nuestros Reportes en Access, una de tantas formas que existen para hacerlo.

Puedes adquirir el Sistema de Inventarios y Compras para este video tutorial para mejor aprendizaje. por solo $5.99 dolares

Les dejo >>> Aquí <<< la descarga de las Tablas para esta Practica.

Basados en las tablas de ALUMNOS, ESPECIALIDADES Y PROFESORES crearemos nuestros INFORMES EN ACCESS y los agruparemos.

Veamos el Siguiente Vídeo

Conectar Access con Visual Studio | Visual Basic .NET | Video Tutorial

2019-07-10T15:02:00.000-05:00

En este Video Tutorial de Access y Visual Basic .NET vamos a definir los pasos esenciales para crear cualquier sistema en VB.NET usando MS Access como origen de datos. Utilizaremos la Tecnología ADO.NET en sus 2 modalidades Conectada y Desconectada.

En-listo los siguientes pasos a seguir:

PREPARACION DE SOFTWARE Y CONEXION A ACCESS

Descargar Visual Studio Community

Descargar Visual Studio Community en este enlace:

https://visualstudio.microsoft.com/es/vs/

PROBLEMA A RESOLVER: el proveedor 'microsoft.ace.oledb.12.0' no está registrado en el equipo local.

Crear una Base de Datos de Access y la llamaremos AccessNET.accdb Descargar Aquí
Descargar Access Database Engine Descargar Aquí
Crear prueba de conexión a la base de datos AccessNET.accdb con un Dataset

¿QUE ES LA ARQUITECTURA ADO.NET?

Modo Conectado a Datos (OLEDB)
Modo Desconectado a Datos (DataSets)

MODALIDAD DE CONEXIÓN DESCONECTADA (DataSets)

Crear un DataSource en VB.NET para AccessNET.accdb
Crear un Formulario Grid con Controles de Navegacion
Crear un Formulario Detalle para una Tabla de Access

Crear un Formulario y enlazar Controles con BindingSource

Y mas...

MODALIDAD DE CONEXIÓN CONECTADA (Programación OLEDB)

Mostrar Registros en Visual Basic .NET y Access

Insertar Registros en VB.NET y Access
Eliminar Registros en VB.NET y Access
Modificar Registros en VB.NET y Access
Y mas...

CONTROL DE INVENTARIOS FIFO EN ACCESS VBA | ENT-9

2019-07-02T22:19:00.003-05:00

En esta publicación se comparten los códigos VBA en Access, para nuestro Sistema de Inventarios y Compras en Access.

Tambien puedes adquirir el Sistema de Inventarios y Compras para este video tutorial para mejor aprendizaje por solo $4.50 dolares

Se explica el funcionamiento lógico del Sistema enfocado a la entrega 9, se aprecia claramente el funcionamiento del control de inventarios aplicando el sistema FIFO o PEPS como también se le conoce.

VER VÍDEO EXPLICACIÓN

Aquí les comparto los códigos, les recomiendo primero descargar el diseño de esta entrega en la anterior publicación de este laboratorio.

CÓDIGO DE MODULO DE INVENTARIOS

Option Compare Database
Option Explicit
Public MSGListado As String

'Funcion Principal de Inventarios
'Modificar el disponible de Inventario de Productos
Public Function ModificarInventarios(idInvHist As Integer) As Boolean
On Error GoTo Err:
DoCmd.SetWarnings False

Dim idProd As Integer
Dim tipoMov As String
Dim cantMov As Integer
Dim cantActual As Double
Dim cantNueva As Double
Dim idLoc As Integer

idProd = Nz(DLookup("ID_PRODUCTO", "HISTORIA_MOV", "ID_INV_HIST=" & idInvHist), 0)
tipoMov = Nz(DLookup("TIPO_MOV", "HISTORIA_MOV", "ID_INV_HIST=" & idInvHist), "")
cantMov = Nz(DLookup("CANT_MOV", "HISTORIA_MOV", "ID_INV_HIST=" & idInvHist), 0)

cantActual = Nz(DLookup("CANT_DISP", "INVENTARIOS", "ID_PRODUCTO=" & idProd), 0)


Select Case tipoMov
    Case Is = "ENTRADA"
        'Modificar Capacidad UTILIZADA de LOCACIONES de Inventario
        idLoc = Forms![MOVIMIENTOS DE INVENTARIOS]!ComboBoxID_LOC
        If ModCapUtilizadaLocaciones(idLoc, cantMov, tipoMov) = False Then
            MsgBox "La Capacidad disponible en esta locacion es menor a la cantidad que desea Mover. Elija otra Locacion", vbCritical + vbOKOnly
            ModificarInventarios = False
            Exit Function
        End If
        cantNueva = cantActual + cantMov
    Case Is = "SALIDA"
        cantNueva = cantActual - cantMov
        Call DescontarInventarios(idProd, cantMov)
End Select

'Acualizar inventario DISPONIBLE
DoCmd.RunSQL "UPDATE INVENTARIOS SET CANT_DISP=" & cantNueva & " WHERE ID_PRODUCTO=" & idProd & ";"
ModificarInventarios = True

Exit Function
Err:
    MsgBox "Un error ha ocurrido: " & Err.Description, vbCritical + vbOKOnly
End Function

'Modificar la Capacidad Utilizada de LOCACIONES
Public Function ModCapUtilizadaLocaciones(idLocacion As Integer, CantModificar As Integer, tipoMovimiento As String) As Boolean
On Error GoTo Err:

DoCmd.SetWarnings False
Dim capacidadTotal As Integer           'Capacidad total del Contenedor
Dim actualCapUtiDisponible As Integer   'Actual Capacidad Utilizada Disponible
Dim CapUtilizada As Integer             'Nueva Capacidad Utilizada Disponible
Dim nuevaCapUtilizada As Integer        'Nueva Capacidad Utilizada Disponible

    capacidadTotal = Nz(DLookup("CAPACIDAD", "LOCACIONES", "ID_LOC=" & idLocacion), 0)
    actualCapUtiDisponible = capacidadTotal - Nz(DLookup("CAP_UTILIZADA", "LOCACIONES", "ID_LOC=" & idLocacion), 0)
    CapUtilizada = Nz(DLookup("CAP_UTILIZADA", "LOCACIONES", "ID_LOC=" & idLocacion), 0)
    
    Select Case tipoMovimiento
        Case Is = "ENTRADA"
            If CantModificar > actualCapUtiDisponible Then
                    ModCapUtilizadaLocaciones = False
                    Exit Function
            End If
            
            nuevaCapUtilizada = CapUtilizada + CantModificar
            
            DoCmd.RunSQL "UPDATE LOCACIONES SET CAP_UTILIZADA=" & nuevaCapUtilizada & " WHERE ID_LOC=" & idLocacion & ";"
            
            ModCapUtilizadaLocaciones = True
        Case Is = "SALIDA"
            
            nuevaCapUtilizada = CapUtilizada - CantModificar

            DoCmd.RunSQL "UPDATE LOCACIONES SET CAP_UTILIZADA=" & nuevaCapUtilizada & " WHERE ID_LOC=" & idLocacion & ";"

            ModCapUtilizadaLocaciones = True
    End Select

Exit Function
Err:
    MsgBox "Un error ha ocurrido: " & Err.Description, vbCritical + vbOKOnly
End Function

Public Function DescontarInventarios(idProd As Integer, cantDescontar As Integer) As Boolean
On Error GoTo Err:

Dim rst As DAO.Recordset
Dim sqlStr As String
Dim cantLocacion As Integer
Dim listadoDeLocacionesADescontar(100) As String
'Dim msgListado As String
Dim cont As Integer

cont = 0

sqlStr = "SELECT * FROM [HISTORIA_MOV] HM  WHERE HM.ID_PRODUCTO=" & idProd & " AND HM.TIPO_MOV='ENTRADA'" & " ; "
Set rst = CurrentDb.OpenRecordset(sqlStr)

If rst.BOF And rst.EOF Then
        DescontarInventarios = False 'No encontro ningun registro
        GoTo CerrarConexion
    Else
        Do While Not rst.EOF
            cantLocacion = rst!CANT_MOV
            
            '========================================================
            'Se ejecuta si PARCIAL ES VERDADERO
            '========================================================
            If rst!PARCIAL = True Then
                'Cantidad a descontar es menor a locacion
                If cantDescontar < rst!CANT_PARCIAL Then
                    rst.Edit
                        rst!CANT_PARCIAL = rst!CANT_PARCIAL - cantDescontar
                        listadoDeLocacionesADescontar(cont) = "Locacion: " & DLookup("COD_LOC", "LOCACIONES", "ID_LOC=" & rst!ID_LOC) & ", Cantidad: " & cantDescontar & ", Lote: " & rst!LOTE
                        Call ModCapUtilizadaLocaciones(rst!ID_LOC, cantDescontar, "SALIDA")
                    rst.Update
                    GoTo CerrarConexion
                End If
                'Cantidad a descontar es igual a locacion
                If cantDescontar = rst!CANT_PARCIAL Then
                    rst.Edit
                        rst!PARCIAL = False
                        listadoDeLocacionesADescontar(cont) = "Locacion: " & DLookup("COD_LOC", "LOCACIONES", "ID_LOC=" & rst!ID_LOC) & ", Cantidad: " & cantDescontar & ", Lote: " & rst!LOTE
                        Call ModCapUtilizadaLocaciones(rst!ID_LOC, cantDescontar, "SALIDA")
                        rst!CANT_PARCIAL = 0
                    rst.Update
                    GoTo CerrarConexion
                End If
                'Cantidad a descontar es mayor a locacion
                If cantDescontar > rst!CANT_PARCIAL Then
                    rst.Edit
                        'Call ModCapUtilizadaLocaciones(rst!ID_LOC, cantDescontar, "SALIDA")
                        rst!PARCIAL = False
                        Call ModCapUtilizadaLocaciones(rst!ID_LOC, rst!CANT_PARCIAL, "SALIDA")
                        listadoDeLocacionesADescontar(cont) = "Locacion: " & DLookup("COD_LOC", "LOCACIONES", "ID_LOC=" & rst!ID_LOC) & ", Cantidad: " & rst!CANT_PARCIAL & ", Lote: " & rst!LOTE
                        cantDescontar = cantDescontar - rst!CANT_PARCIAL
                        rst!CANT_PARCIAL = 0
                    rst.Update
                End If
            End If
            
            '========================================================
            'Se ejecuta si DISPONIBLE ES VERDADERO
            '========================================================
            If rst!DISPONIBLE = True Then
                'Cantidad a descontar es menor a locacion
                If cantDescontar < cantLocacion Then
                    rst.Edit
                        rst!DISPONIBLE = False
                        rst!PARCIAL = True
                        rst!CANT_PARCIAL = cantLocacion - cantDescontar
                        listadoDeLocacionesADescontar(cont) = "Locacion: " & DLookup("COD_LOC", "LOCACIONES", "ID_LOC=" & rst!ID_LOC) & ", Cantidad: " & cantDescontar & ", Lote: " & rst!LOTE
                        Call ModCapUtilizadaLocaciones(rst!ID_LOC, cantDescontar, "SALIDA")
                    rst.Update
                    GoTo CerrarConexion
                End If
                'Cantidad a descontar es igual a locacion
                If cantDescontar = cantLocacion Then
                    rst.Edit
                        rst!DISPONIBLE = False
                        listadoDeLocacionesADescontar(cont) = "Locacion: " & DLookup("COD_LOC", "LOCACIONES", "ID_LOC=" & rst!ID_LOC) & ", Cantidad: " & cantDescontar & ", Lote: " & rst!LOTE
                        Call ModCapUtilizadaLocaciones(rst!ID_LOC, cantDescontar, "SALIDA")
                    rst.Update
                    GoTo CerrarConexion
                End If
                'Cantidad a descontar es mayor a locacion
                If cantDescontar > cantLocacion Then
                    rst.Edit
                        rst!DISPONIBLE = False
                        Call ModCapUtilizadaLocaciones(rst!ID_LOC, cantLocacion, "SALIDA")
                        listadoDeLocacionesADescontar(cont) = "Locacion: " & DLookup("COD_LOC", "LOCACIONES", "ID_LOC=" & rst!ID_LOC) & ", Cantidad: " & cantLocacion & ", Lote: " & rst!LOTE
                        cantDescontar = cantDescontar - cantLocacion
                    rst.Update
                End If
            End If
            '--------------------------------------------------------
            
            rst.MoveNext
            cont = cont + 1
        Loop
End If

CerrarConexion:
MSGListado = ""
Dim i As Integer
For i = 0 To cont
    MSGListado = MSGListado & listadoDeLocacionesADescontar(i) & vbCrLf
Next i

rst.Close
Set rst = Nothing

Exit Function
Err:
    MsgBox "Un error ha ocurrido: " & Err.Description, vbCritical + vbOKOnly
End Function



Public Function ObtenerListado() As String
    ObtenerListado = MSGListado
End Function

CÓDIGO DE MODULO DE VALIDACIONCAMPOS

Option Compare Database
Option Explicit

Public Function CampoVacio(NomForm As Form, Cancel As Integer) As Boolean
' Codigo para impedir una accion . . . !!
' si existiese  algun campo vacio
On Error GoTo Err_CampoVacio_Click
Dim campo As Control 'Variable tipo control
For Each campo In NomForm 'Abro un Bucle
 ' Inpido los tipos de campo que deseo recorrer para analizar
    If TypeOf campo Is TextBox Or TypeOf campo Is ComboBox Or TypeOf campo Is ListBox Then
        If Left(campo.Name, 2) <> "ID" And campo.Properties("Enabled") = True Then
            If Not IsNull(campo) Then 'La condicion
                    campo.BackColor = vbWhite 'se establece fondo blanco
                    'De no haber campo nulo dejo correr el codigo
                Else
                    campo.BackColor = vbYellow 'Le pongo color para diferenciarlo
                    campo.SetFocus
                    MsgBox "Para realizar esta Accion " & vbCrLf & _
                    "se requiere un valor para " & campo.Name _
                    , vbExclamation, "Campo Vacio"
                    Cancel = True
                    End
                    Exit Function
                    'Si lo encuentro, detengo el codigo, aviso con un Msgbox
                    'y Situo el setfocus al campo vacio
            End If
        End If
    End If
Next campo
'Si llegamos aqui es que no consigo campos nulos
'Y ejecuto el comando (Puedes colocar cualquiera)
'Abrir form, consultas, exportar a pdf, etc....
CampoVacio = False
Exit_CampoVacio_Click: 'Tratamiento de errores
    Exit Function
Err_CampoVacio_Click:
    MsgBox Err.Description
    Resume Exit_CampoVacio_Click
        
End Function

CÓDIGOS DE FORMULARIO MOVIMIENTOS DE INVENTARIOS

Option Compare Database
Option Explicit

Private Sub ComandoGUARDAR_Y_SALIR_Click()
On Error GoTo Err:
Dim invDisponible As Integer
    
    'Verificar Campos Vacios en Formulario
    If CampoVacio(Me.Form, 0) = False Then
        
        'Asignar Valores a Controles
        Me.ID_PRODUCTO.Value = DLookup("ID_PRODUCTO", "PRODUCTOS", "ID_PRODUCTO=" & Forms![INVENTARIOS DE PRODUCTO]!ComboBUSCAR_PRODUCTO)
        Me.FECHA_MOV.Value = Date
        Me.HORA_MOV.Value = Time
        
        '========================================================
        'Se ejecuta si el movimiento es una ENTRADA DE INVENTARIO
        '========================================================
        If Me.TIPO_MOV.Value = "ENTRADA" Then
            'Guardar Registro
            DoCmd.RunCommand acCmdSaveRecord
            
            'Refrescar Formulario Principal
            Forms![INVENTARIOS DE PRODUCTO].Refresh
            Forms![INVENTARIOS DE PRODUCTO]![Subformulario RANGOS_INV_PRODUCTO].Requery
            
            'Modificar Inventarios con Ultimo Movimiento registrado, pasamos como argumento el ID del movimiento generado
            If ModificarInventarios(Me.ID_INV_HIST.Value) = True Then
                'Salir
                DoCmd.Close
                Exit Sub
            End If
        End If
        
        '=======================================================
        'Se ejecuta si el movimiento es una SALIDA DE INVENTARIO
        '=======================================================
        If Me.TIPO_MOV.Value = "SALIDA" Then
            
            'Verificar si hay suficiente Inventario
            invDisponible = Nz(DLookup("CANT_DISP", "INVENTARIOS", "ID_PRODUCTO=" & Me.ID_PRODUCTO.Value), 0)
            If Me.CANT_MOV.Value > invDisponible Then
                 MsgBox "No hay suficiente inventario de este producto para dar SALIDA. Elija una Cantidad menor", vbCritical + vbOKOnly
                 Exit Sub
            End If
            
             'Guardar Registro
            Me.DISPONIBLE.Value = False
            DoCmd.RunCommand acCmdSaveRecord
            
            'Refrescar Formulario Principal
            Forms![INVENTARIOS DE PRODUCTO].Refresh
            Forms![INVENTARIOS DE PRODUCTO]![Subformulario RANGOS_INV_PRODUCTO].Requery
            
            'Modificar Inventarios con Ultimo Movimiento registrado, pasamos como argumento el ID del movimiento generado
            If ModificarInventarios(Me.ID_INV_HIST.Value) = True Then
                'Salir
                DoCmd.Close
            End If
            
            'Abrir Reporte de listado de partes
             DoCmd.OpenReport "LISTADO", acViewPreview
        End If
        '---------------------------------------------------------
        
    End If

Exit Sub
Err:
    MsgBox "Un error ha ocurrido: " & Err.Description, vbCritical + vbOKOnly
End Sub

Private Sub ComboBoxID_LOC_AfterUpdate()
On Error GoTo Err:

    'Mostrar Capacidad de Locacion
    Dim capacidad As Integer
    Dim utilizada As Integer
    
    Dim tipoMov As String
    
    tipoMov = Me.TIPO_MOV.Value
    
    If tipoMov = "ENTRADA" Then
            capacidad = DLookup("CAPACIDAD", "LOCACIONES", "ID_LOC=" & Forms![MOVIMIENTOS DE INVENTARIOS]!ComboBoxID_LOC)
            utilizada = DLookup("CAP_UTILIZADA", "LOCACIONES", "ID_LOC=" & Forms![MOVIMIENTOS DE INVENTARIOS]!ComboBoxID_LOC)
            Me.LabelCAPACIDAD.Caption = "Capacidad Disponible: " & capacidad - utilizada
    End If

Exit Sub
Err:
    MsgBox "Un error ha ocurrido: " & Err.Description, vbCritical + vbOKOnly
End Sub

Private Sub Form_Load()
    'Mostrar Nombre el Producto
    Me.LabelPRODUCTO.Caption = DLookup("NOMBRE_PRODUCTO", "PRODUCTOS", "ID_PRODUCTO=" & Forms![INVENTARIOS DE PRODUCTO]!ComboBUSCAR_PRODUCTO)
End Sub


Private Sub Form_Open(Cancel As Integer)
    Me.LabelCAPACIDAD.Caption = ""
End Sub

Private Sub TIPO_MOV_AfterUpdate()

Dim tipoMov As String
    
tipoMov = Me.TIPO_MOV.Value

'ACTIVAR/DESACTIVAR CONTROLES
    If tipoMov = "SALIDA" Then
            Me.LOTE.Enabled = False
            Me.CADUCIDAD.Enabled = False
            Me.ComboBoxID_LOC.Enabled = False
        Else
            Me.LOTE.Enabled = True
            Me.CADUCIDAD.Enabled = True
            Me.ComboBoxID_LOC.Enabled = True
    End If

End Sub

CÓDIGOS DE FORMULARIO INVENTARIOS DE PRODUCTO

Option Compare Database

Private Sub Form_Load()
DoCmd.Maximize
DoCmd.GoToRecord , , acFirst
End Sub

ANTERIOR INDICE SIGUIENTE

Funcion Environ() en Access | Variables de Entorno de Windows

2019-06-26T21:06:00.001-05:00

Todas aquellas ocasiones cuando necesitamos saber algunas condiciones de entorno de nuestro Sistema Operativo desde un Sistema en Access, por ejemplo mostrar el Nombre el Usuario (USERNAME) que esta activo en Windows ó el Nombre de nuestra Computadora (COMPUTERNAME) ó saber si nuestro procesador es 64 bits (PROCESSOR_ARCHITECTURE), lo primero que pensaríamos es que necesitamos incluir alguna API de Windows en nuestro código VBA para ver estos valores...

Pues la verdad NO ES NECESARIO. Ya que Microsoft Access nos provee de una Función llamada Environ() que nos proporciona los valores de estas Variables de Entorno de Windows, sin utilizar código muy complejo.

Las Variables de Entorno que podemos consultar pueden ser como estas:

**EJEMPLOS DE VARIABLES DE ENTORNO**
VARIABLES ENVIRON
LLUSERSPROFILE
APPDATA
AVENGINE
CLIENTNAME
CommonProgramFiles
COMPUTERNAME
ComSpec
FP_NO_HOST_CHECK
HOMEDRIVE
HOMEPATH
INCLUDE
INOCULAN
LIB
LOGONSERVER
NUMBER_OF_PROCESSORS
OS
Path
PATHEXT
PROCESSOR_ARCHITECTURE
PROCESSOR_IDENTIFIER
PROCESSOR_LEVEL
PROCESSOR_REVISION
ProgramFiles
SESSIONNAME
SystemDrive
SystemRoot
TEMP
TMP
USERDOMAIN
USERNAME
USERPROFILE
VS71COMNTOOLS
WecVersionForRosebud.FF0
windir

Veamos un Ejemplo VBA, consultemos el Nombre de nuestra Computadora usando la función Environ()

Option Compare Database
Option Explicit

'MUESTRA EL NOMBRE DEL USUARIO DEL SISTEMA
Private Sub Comando4_Click()
    Dim i As Integer
    Dim stEnviron As String
    For i = 1 To 100
        stEnviron = Environ(i)
        If InStr(stEnviron, "USERNAME") Then
            MsgBox Environ(i)
            Exit For
        End If
    Next
End Sub

'ENLISTA TODAS LAS VARIABLES DE ENTORNO DISPONIBLES EN EL SISTEMA
Private Sub Command0_Click()
    Dim i As Integer
    Dim stEnviron As String
    For i = 1 To 100
        stEnviron = Environ(i)
        If Len(stEnviron) > 0 Then
            Me.List1.AddItem (Environ(i))
        Else
            Exit For
        End If
    Next
End Sub

'MUESTRA EL NOMBRE DE LA COMPUTADORA
Private Sub Command3_Click()
    Dim i As Integer
    Dim stEnviron As String
    For i = 1 To 100
        stEnviron = Environ(i)
        If InStr(stEnviron, "COMPUTERNAME") Then
            MsgBox Environ(i)
            Exit For
        End If
    Next
End Sub

Ver Video Explicacion

Crear Splash Screen en Access | Usando un Timer

2019-06-25T20:05:00.002-05:00

Los Formularios Splash en Access ó Splash Screen como muchos le conocen son utilizados en las Aplicaciones al iniciarse, estas incluyen por lo general información del Sistema, que puede incluir:

Nombre del Sistema
Logotipo de la Empresa
Versión
Año de Publicación
Y alguna especie de animación de progreso, que indique que se esta iniciando el Sistema

Los Controles que Incluye este formulario son los Siguientes:

BoxVISTA
LabelTITULO
Picture (incrustada en Formulario)
LabelVERSION

Las propiedades importantes de este Formulario son:

Emergente: SI
Modal: SI
Estilo de Borde: NINGUNO
Auto Centrado: SI

Este el código VBA de Pantalla de BIENVENIDA

Option Compare Database
Option Explicit
Dim contador As Integer

Private Sub Form_Open(Cancel As Integer)
    fAccessWindow "Hide", False, False
    contador = 0
End Sub


Private Sub Form_Timer()
    contador = contador + 1
    If contador = 100 Then
        DoCmd.Close
        DoCmd.OpenForm "VENTANA DE APLICACION", acNormal
    End If
End Sub

Aquí les dejo el Vídeo de su Funcionamiento

INVENTARIOS, LOCACIONES E HISTORIAL | ENTREGA 9 | Diseño

2019-06-23T12:37:00.002-05:00

Continuando con el Laboratorio de Sistema de Inventario y Compras, ahora en la entrega 9 veremos la parte de diseño, en la siguiente publicación veremos la parte de programación VBA para la funcionalidad del formulario.

Tambien puedes adquirir el Sistema de Inventarios y Compras para este video tutorial para mejor aprendizaje por solo $4.50 dolares

Los objetos que se crean en esta entrega son lo siguientes:

CONSULTA: MOVIMIENTOS DE INVENTARIOS
CONSULTA: RANGOS_INV_PRODUCTO
FORMULARIO: INVENTARIOS DE PRODUCTO
FORMULARIO: MOVIMIENTOS DE INVENTARIOS
SUBFORMULARIO: Subformulario MOVIMIENTOS DE INVENTARIOS
SUBFORMULARIO: Subformulario RANGOS_INV_PRODUCTO

En esta entrega se usan los diferente Tipos de Origen de Datos en los objeto arriba mencionados:

Dynaset
Archivo Snapshot
Dynaset (Actualizaciones incoherentes)

Aquí les deja la descarga que incluye los objetos de esta entrada:
Descargar Aquí

Les explico los detalles en el siguiente Vídeo:

ANTERIOR INDICE SIGUIENTE

INCLUIR GOOGLE MAPS EN ACCESS

2019-06-19T15:06:00.002-05:00

Una de las grandes inquietudes al momento de llevar un registro de direcciones de clientes, proveedores, etc. es la tarea de localizarlos en algún mapa para estimar si es posible entregar un pedido o llevarlo, para esto nos sirve google maps, que como ya sabemos lo accedemos en Internet.

La idea aquí es aprovechar los datos que ya tenemos de nuestros clientes o proveedores, para construir un cadena de búsqueda en el WebBrowser de Access. algo así como esto:

Para pedirle a Google Maps que nos muestre una ubicación, necesitamos indicarlo a través de una cadena de búsqueda que principalmente consta de 2 partes:

URL de Google Maps : "https://www.google.com/maps/search/?api=1&query="
Cadena de Búsqueda : "Sitio Conocido o direccion de busqueda"

Codigo VBA del Ejemplo:

Option Compare Database
Option Explicit

'Variables de Accion
Dim URL As String
Dim mapaURL As String

Private Sub CommandIR_URL_Click()
    mapaURL = "https://www.google.com/maps/search/?api=1&query=" & Me.TextCALLE & "%2C" & _
 Me.TextCALLENUM & "%2C" & Me.TextCOLONIA & _
     "%2C" & Me.TextCIUDAD & "%2C" & Me.TextESTADO & _
 "%2C" & Me.TextPAIS & "%2C" & Me.TextCODIGOPOSTAL
    Me.WebBrowserPERSONAL.Object.Navigate mapaURL
    Me.WebBrowserPERSONAL.Requery

End Sub

Private Sub Form_Open(Cancel As Integer)

    URL = "www.google.com/maps"
    WebBrowserPERSONAL.Object.Navigate URL

End Sub

Observación:

Note que la Cadena de Busqueda es compuesta por los valores de los textboxs que están en el formulario concatenados con "%2C", que es traducida como una coma en los datos de la búsqueda.

Ver Video:

CREAR NAVEGADOR WEB CON ACCESS

2019-06-18T18:44:00.000-05:00

Navegador Web desde Access

Pues bien como ya muchos sabemos Access también tiene con control Web Browser para visualizar paginas web, aunque este control carezca de muchas funcionalidades a las que estamos acostumbrados, cierto es también que nos aporta cierta factibilidad de uso desde un Sistema desarrollado en Access.

Veamos un Ejemplo:

Vamos a desarrollar un visor o navegador web en un formulario de Access.

Estos son los códigos de los controles:

Option Compare Database
Option Explicit

'Variables de Accion
Dim urlANTERIOR As String
Dim urlPOSTERIOR As String
Dim urlACTUAL As String


Private Sub CommandANTERIOR_Click()
    urlPOSTERIOR = urlACTUAL
    Me.TextURL = urlANTERIOR
    Me.WebBrowserPERSONAL.Object.Navigate urlANTERIOR
    Me.WebBrowserPERSONAL.Requery
    Me.CommandPOSTERIOR.Enabled = True
End Sub

Private Sub CommandIR_URL_Click()
    urlANTERIOR = urlACTUAL
    urlACTUAL = Me.TextURL
    Me.WebBrowserPERSONAL.Object.Navigate urlACTUAL
    Me.WebBrowserPERSONAL.Requery
    Me.CommandANTERIOR.Enabled = True
End Sub

Private Sub CommandPOSTERIOR_Click()
    urlANTERIOR = Me.TextURL
    Me.TextURL = urlPOSTERIOR
    Me.WebBrowserPERSONAL.Object.Navigate urlPOSTERIOR
    Me.WebBrowserPERSONAL.Requery
End Sub


Private Sub Form_Open(Cancel As Integer)
    Dim URL As String
    URL = "www.google.com"
    Me.TextURL = URL
    WebBrowserPERSONAL.Object.Navigate URL
    urlACTUAL = URL
End Sub

Aqui el Video de la Explicacion:

Funcion Shell (ejecutar) en Access

2019-06-17T22:11:00.000-05:00

Muchas de las veces hemos deseado Ejecutar un programa externo a nuestro Sistema de Access, pues bien existe una función que permite tal tarea su nombre es Shell , esta función de Access permite ejecutar programas externos con solo indicar algunos parámetros que les indicare a continuación.

Sintaxis:

Shell ( ruta de acceso [, estiloVentana ] )

La sintaxis de la función Shell tiene los siguientes argumentos:

Ruta del Acceso:

Obligatorio. Variant (Cadena). Nombre de ejecutar el programa y los argumentos requeridos o modificadores línea de comandos; puede incluir el directorio o la carpeta y la unidad. En Macintosh, puede usar la función MacID para especificar la firma de la aplicación en lugar de su nombre. En el ejemplo siguiente se utiliza la firma de Microsoft Word: Shell MacID("MSWD")

WindowStyle:

Opcional. Variant (Entero) correspondiente al estilo de la ventana en la que se ejecutará el programa. Si se omite estiloVentana , el programa se inicia minimizado con el foco. En el sistema Macintosh (System 7.0 o posterior), estiloVentana determina únicamente si la aplicación obtiene el foco cuando se ejecuta.

La windowstyle argumento con nombre tiene estos valores:

Constante	Valor	Descripción
vbHide	0	Ventana está oculta y el foco pasa a la ventana oculta. La constante vbHide no es aplicable a las plataformas Macintosh.
vbNormalFocus	1	Ventana tiene el foco y se restaura a su tamaño y posición originales.
vbMinimizedFocus	2	Ventana se muestra como un icono con el foco.
vbMaximizedFocus	3	Ventana está maximizada con el foco.
vbNormalNoFocus	4	Ventana se restaura a su tamaño y posición más recientes. La ventana activa permanece activa.
vbMinimizedNoFocus	6	Ventana se muestra como un icono. La ventana activa permanece activa.

Comentarios:

Si la función Shell ejecuta correctamente el archivo, devuelve el identificador de tarea del programa iniciado. Identificador de la tarea es un número exclusivo que identifica el programa. Si la función Shell no puede iniciar el programa especificado, se produce un error.

En Macintosh, vbNormalFocus, vbMinimizedFocusy vbMaximizedFocus todos colocar la aplicación en primer plano; vbHide, vbNoFocusy vbMinimizeFocus todos colocar la aplicación en segundo plano.

Ejemplo:

Este ejemplo usa la función Shell para ejecutar una aplicación especificada por el usuario. En MacIntosh, el nombre de unidad predeterminado es "HD" y partes de la ruta de acceso están separadas por coma. Asimismo, deberá especificar carpetas de Macintosh en lugar de \Windows.

CODIGO VBA

'Abre la aplicacion de calculadora de windows
'Especificando 1 como segundo argumento
'Abre la aplicacion en medida normal
'nos da el enfoque
Dim RetVal as Variant
' Ejecutar las Calculadora de Windows
RetVal = Shell("C:\WINDOWS\SYSTEM32\CALC.EXE", 1)
'C:\WINDOWS\SYSTEM32\NOTEPAD.EXE
'C:\WINDOWS\SYSTEM32\MSPAINT.EXE

Ver el siguiente Vídeo

Cambiar propiedades a TextBox en Access

2019-06-15T11:39:00.000-05:00

En esta Vídeo Practica protegeremos nuestros controles TextBox a través de la propiedad ENABLE o HABILITADO usando Código VBA y Macros en Access.

Les invito a ver el siguiente Video: