[Resolvido]Formulário de Permissões

Bom dia

Este exemplo é do Plínio Mabesi.

Estava a tentar aplicar nele a função de ocultar e mostrar tabelas.

Na estrutura do form no comando 87 está a função, mas queria aplica-la como as outras funções do Exemplo

A password para gravar as alterações é "2012"

Entrar com a tecla Shift premida

Obrigado

Assis

Ábaixo o DB modificado.

Só lembrando para tomar cuidado com a Desativação do Shift.
Terá que fazer um formulário para abrir no inicio do BD para que o usuário possa liberar tecla Shift quando ela estiver desativada.
Abraços

Olá Kiel

Obrigado pela ajuda.

Só tem um senão:

Se as tabelas estão ocultas a caixa do Formulario permissão devia estar nula ao abrir o form

Se as tabelas Não estão ocultas a caixa do Formulario permissão devia estar Marcada ao abrir o form

Assis

No Evento Ao carregar do formulário:

Código:


 
    Dim objProp As New classePropriedades
    If CurrentDb.TableDefs("Teste").Properties("Attributes").Value = dbHiddenObject Then
      Me.CaixaOcultarTabelas = 0
    Else
      Me.CaixaOcultarTabelas = -1
    End If
    CaixaJanelaBD.Value = objProp.mostrarJanelaBD
    CaixaBarraStatus.Value = objProp.mostrarBarraStatus
    CaixaPermitirMenuCompleto.Value = objProp.permitirMenuCompleto
    CaixaPermitirMenuAtalho.Value = objProp.permitirMenuAtalho
    CaixaPermitirAlteracaoBarra.Value = objProp.permitirAlteracaoBarra
    CaixaPermitirBarraInterna.Value = objProp.permitirBarraInterna
    CaixaPermitirPararCodigo.Value = objProp.permitirPararCodigo
    CaixaPermitirTeclaEspecial.Value = objProp.permitirTeclasEspeciais
    CaixaPermitirTeclaShift.Value = objProp.permitirTeclaShift


Repeti as outras linhas para você saber onde colocar o codigo que verifica o estado das tabelas.

Como pode perceber, só precisamos do nome de uma tabela, para verificar se ela está oculta ou não.

Abraços

Valeu amigo

Obrigado

Bom post não ?

Com certeza!!

Boa sorte!!