Sistemas prontos e personalizados em Microsoft Access

29/04/2026

Criação de Sistemas em Access mais robustos e profissionais, a partir de planilhas em Excel que o cliente possa ter criado.

12/08/2024

Nova Versão do sistema de exportação de tabelas do Access para MYSQL, está pronta!
Agora sem restrições de numero de tabelas e além disso é possivel selecionar quais as tabelas a serem exportadas.
O sistema gera um arquivo *.SQL , que vai com as instruções para serem importadas direto do MYSQLAdmin ou de outra interface do MYSQL como por exemplo HeidiSQL e outros.
O link para download :
https://drive.google.com/file/d/1RBuoy9TA0k67CP0Q6_rnM7a8CiI1SwXm/view?usp=drive_link

12/08/2024

Nova Versão do sistema de exportação de tabelas do Access para MYSQL, está pronta!
Agora sem restrições de numero de tabelas e além disso é possivel selecionar quais as tabelas a serem exportadas.
O sistema gera um arquivo *.SQL , que vai com as instruções para serem importadas direto do MYSQLAdmin ou de outra interface do MYSQL como por exemplo HeidiSQL e outros.
O link para download :
https://drive.google.com/.../1RF.../view...

26/09/2023

Para quem está querendo migrar seus sistemas Access para a base de dados MYSQL e não quer perder tempo, desenvolvi um exportador que cria um arquivo no padrão de importação do MYSQL (*.sql) , com todas as instruções de criação das tabelas, com as chaves, e os dados de todas as tabelas e também todos os relacionamentos entre elas, já no padrão MYSQL.
A Primeira versão já está pronta. Qualquer duvida, me mande mensagem pelo ZAP.

11/09/2023

11/09/2023

Sistemas personalizados em Access. Financeiro, ERP, estoque, Escritorios, etc.
Conversão de planilhas em Excel para Access.

27/04/2022

Sistema de Loja Basico.

29/11/2021

Função para pegar o nome do computador que está rodando o sistema.

Private Declare Function apiGetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSMachineName() As String
'Returns the computername
Dim lngLen As Long, lngX As Long
Dim strCompName As String
lngLen = 16
strCompName = String$(lngLen, 0)
lngX = apiGetComputerName(strCompName, lngLen)
If lngX 0 Then
fOSMachineName = left$(strCompName, lngLen)
Else
fOSMachineName = ""
End If
End Function