Usando Access

Armazenar valores na lista de propriedades do Banco de Dados

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

O pensamento óbvio para armazenar qualquer tipo de informação nos remete às tabelas, mas quero lhe apresentar uma alternativa interessante: o uso da lista de propriedades do Banco de Dados.  Nesta lista podemos armazenar vários tipos de informações, como por exemplo: senhas; contadores; parâmetros que definem o modo como formulários e relatórios irão se comportar e por aí vai, ficando a critério de sua imaginação e necessidade!  

O Access utiliza a lista de propriedades para configurar o Banco de Dados na inicialização.  O código abaixo exibe as propriedades do seu Banco de Dados, na janela Imediata do VBA.

Faça o login aqui para ter acesso ao código.

Observe uma pequena parte da lista de propriedades:

Podemos alterar as propriedades pelo VBA.  Veja alguns exemplos:

se quisermos que o Access passe a compactar e a Reparar ao fechar o aplicativo, basta alteramos a propriedade Auto Compact para 1:

Currentdb.properties("Auto Compact").value = 1

Se quisermos definir um formulário para iniciar com o aplicativo, fazemos o seguinte:

Currentdb.properties!StartUpForm.value = "frmClientes"

Muitas destas propriedades (Auto Compact, StartUpForm, AppTitle, ...) só são criadas pelo Access, no momento que são configuradas pela Opções do Access, em Banco de Dados Atual.    

Observe, na figura abaixo, a configuração do título do aplicativo.  O Access irá criar a propriedade AppTitle para manter armazenada a informação.

Podemos forçar a criação da propriedade, se ela não estiver presente.   Veja a seguir, um procedimento para alterarmos o título do aplicativo, em tempo de execução! Observe que se a propriedade não existir, gera o erro 3270 e aí, então, criamos a propriedade.

Faça o login aqui para ter acesso ao código.

Para alterar o título, basta executarmos: Call fncNovoTítulo("Usando Access")

Outra propriedade que precisa ser gerada, se quisermos utilizá-la, é a AllowBypassKey, que indica para o Access se a tecla SHIFT deve ou não ser ativada na inicialização do aplicativo.

Faça o login aqui para ter acesso ao código.

Para desativar a tecla SHIFT  na inicialização do Access, basta executarmos: Call fncTeclaShift(false)

Criando as propriedades de uso próprio.

O Access irá ignorar as propriedades que não reconhecer, sem acusar qualquer erro. Com isso, podemos aproveitar para criar as nossas propriedades e manter ali armazenados os valores de nosso interesse!

Criando uma propriedade para armazenar uma senha:

Dim prpNovo As Property
Set prpNovo = CurrentDb.CreateProperty("pwdMaestro", dbText, "")
CurrentDb.Properties.Append prpNovo

Depois de criada a propriedade, podemos usá-la no VBA , como se fosse uma variável:

Currentdb.properties!pwdMaestro.value = "$%2(öÆ}"

senha = Currentdb.properties!pwdMaestro.value

Montei um arquivo exemplo, já com algumas das propriedades devidamente criadas, para você poder experimentar na prática, a configuração e o uso dos valores, em tempo de execução:

Baixe o exemplo:

GravarPropriedades.zip

Bom estudo!

Os dez artigos mais visitados

MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access

Vídeo - Controle personalizado de Acesso de Usuários

Vídeo - Aprenda sobre filtragens

Vídeo - Segurança máxima, usando o OPEN

Uma ajuda para quem está começando um negócio ou um projeto

Integrando o Access com Servidor MySQL - Introdução

Desabilitando a faixa(ribbon) superior do Access

Vídeo - Programação de relatórios - Parte 1

Como carregar o seu menu sem que ele vá para lista de suplementos

Adquira o kit UsandoAccess e aprenda em alta velocidade

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |