Recent Articles

Instalação personalizada do Firebird pelo Inno Setup

Para quem utiliza o Firebird como repositório de dados já sentiu a dificuldade de ora instalar versão apenas cliente, ora instalar servidor completo. No código abaixo apresento um código do Inno Setup de fácil uso. Outros parâmetros de instalação pode ser visto aqui. Neste caso o Firebird é instalado em um diretório escolhido por mim. […]

VBA–Percorrer todos os objetos de um formulário

  Private Sub LimpaCampos() Dim ctl As control ‘—- Irá percorrer todos os controles do formulário —————————————— For Each ctl In Controls    If ctl.ControlType = acTextBox Then ctl = ""    If ctl.ControlType = acTextBox Then ctl.ForeColor = RGB(255, 0, 0)    If ctl.ControlType = acLabel Then ctl.ForeColor = RGB(200, 0, 0) Next End […]

Conheça o Firebird

Para quem deseja segurança com banco de dados o Firebird é uma ótima opção. Assista o vídeo abaixo e tire suas conclusões. Recomendo.

Firebird no VirtualBox

Um problema encontrado hoje pela maioria dos desenvolvedores de softwares é o ambiente do computador dos usuários de seus sistemas. Além de um grande número softwares instalados é cada vez mais comum instalações entrarem em conflitos por causa de versões. Caso recente em um de nossos clientes que foi instalado um programa de uma determinada […]

Liberar porta do Firebird no Windows 7

Para quem usa o Firebird como banco de dados e o Windows 7 como servidor, de dados tem dificuldade para liberar a porta 3050, 3051, etc. para que as estações possam acessar. Siga os passos: Botao Iniciar Painel de Controle Firewall do Windows Configurações Avançadas Do lado esquerdo selecione Regras de Segurança e Conexão Do […]

Criar consultas com DAO

Quando desenvolvemos com MS-Access podemos utilizar consultas gravadas com parâmetros fixos que em muito nos auxiliam na programação. Mas quando os critérios da consulta precisam ser alterados, tendo como base a informação de uma caixa de combinação, de seleção, lista ou um campo texto, na maioria das vezes colocamos na consulta, no campo de critérios […]

Exemplo de Código: Looping, barra de progressão e DAO recordset

O código abaixo é o exemplo de uma função que utiliza: Função que torna verdadeiro ou falso Controle de Erros Recordset com DAO Loop Barra de Progressão do Access Private Function AlteraBanco(sPath As String) As Boolean 'faz alterações de campos no banco de dados conforme tabela AlteraBD On Error GoTo Fim Dim db As DAO.Database […]

Criar campos em outro arquivo access

Nota: solução aplicada apenas no caso em que o banco de dados do cliente é Access. Outros bancos como MySql, Firebird, SqlServer e outros esta solução não se aplica. Quando você trabalha com sistemas e necessita fazer atualizações é normal que o banco de dados seja alterado, ou seja, na maioria das vezes novos campos […]

Converte Número Hexadecimal para Decimal

A função abaixo, bem simples, converte números hexadecimais em números decimais: Public Function ConverteHexaParaDecimal(sNumeroHexaDecimal As String) As Double '————————————————————————————- 'Esta função converte um número hexadecimal em um número decimal 'Como utilizar: 'Copie e cole a função em módulo qualquer 'Chame a função da seguinte forma: 'Me.txtNumero = ConverteHexaParaDecimal(NumeroHexaDecimal) '————————————————————————————- On Error GoTo Fim ConverteHexaParaDecimal = […]

Impressoras Zebra

Esta impressora conecta-se ao computador através de cabo USB. Fizemos inúmeras tentativas para conseguirmos imprimir diretamente do Access utilizando fontes True Type de código de barras. A solução veio apenas após muitas pesquisas nos mais diversos fóruns. Abaixo expomos a solução encontrada. 01. Cadastre-se no site do fabricante e baixe o programa Zebra Designer versão […]