Recientemente un gran amigo Colombiano me ha solicitado le ayude con un código para poder leer una bascula o balanza
Como soy enemigo a muerte de las ocx o dll (esto siempre casca junto a Access VBA), salvo que sean echas con el mismo MSAccess como un complemento, así SI
Bueno, recurriendo a varios ejemplos en códigos realizados bajo otros lenguajes de programación, he podido recopilar alguno de ellos y atacando las Api's necesarias podemos leer el puerto serial.
Y en vista de las muchas preguntas que hacen los foreros recurrente al tema y que ha casi todos se les orienta bajar algún complemento externo (OCX, DLL) hasta del mismos VB6.
He decidido colgar este ejemplo ilustrativo con tutorial y todo.
Ahora bien, este código esta pensado para un nivel "avanzado de VBA" y por tanto no he escrito ayuda detallada de los procedimientos, debes ser cuidadoso al modificar el mismo y saber usarlo para sus propias aplicaciones (he tratado en lo posible de hacerlo, lo mas prolijo que he podido)
POR FAVOR PRIMERO QUE NADA LEA EL ARCHIVO TUTORIAL PDF (incluido en el zip)
NOTA: para que entendamos bien este procedimiento, hagamos lo siguiente para las pruebas correspondientes
En el ZIP hay (3) tres archivos mas
Primero un archivo llamado vspd.exe este EXE es quien va a crearnos los puertos virtuales en nuestra PC
Segundo un archivo llamado BalSim.exe este EXE es quien va a simular ser una balanza o bascula electronica
Tercero mi archivo BD PuertoCOM.accdb esta app es la que por medio de las Api's va a recorrer los puertos abiertos en nuestra PC, los testea para saber cual pertenece en efecto a una bascula o balanza, ya reconocido el puerto lo abre y nos lee el peso de la balanza o bascula.
Si ya tienes instalada una Bascula o Balanza electronica, no es necesario instalar o ejecutar los (2) dos primeros archivos, solo basta ejecutar el mio PuertoCOM.accdb