MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Desbloquear Vista de Estrutura

    avatar
    badkanye
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 34
    Registrado : 20/11/2011

    [Resolvido]Desbloquear Vista de Estrutura Empty [Resolvido]Desbloquear Vista de Estrutura

    Mensagem  badkanye 3/6/2012, 13:56

    Boa tarde,

    Gostaria de saber se existe alguma forma de bloquear a Vista Estrutura dos formulários e relatórios?!

    ao abrir a base de dados e clicar com o botão direito do rato sobre o formulário pode-se aceder à vista estrutura, e é essa situação que gostava de bloquear.

    alguém me pode ajudar?!?!

    obrigado.
    avatar
    Convidad
    Convidado


    [Resolvido]Desbloquear Vista de Estrutura Empty Re: [Resolvido]Desbloquear Vista de Estrutura

    Mensagem  Convidad 3/6/2012, 14:37


    Desabilite as opções em Inicializar.

    Então só poderá ver a estrutura abrindo o arquivo com a tecla Shift pressionada.


    avatar
    badkanye
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 34
    Registrado : 20/11/2011

    [Resolvido]Desbloquear Vista de Estrutura Empty Desbloquear Vista de Estrutura

    Mensagem  badkanye 3/6/2012, 14:45

    Pois o problema é este..será possível não modificar mesmo com a tecla shift?
    avatar
    Convidad
    Convidado


    [Resolvido]Desbloquear Vista de Estrutura Empty Re: [Resolvido]Desbloquear Vista de Estrutura

    Mensagem  Convidad 3/6/2012, 15:29


    É possível, sim. Basta desabilitar a tecla Shift.
    Crie um form fShift com 2 botões: cmdAtiva e cmdDesativa;
    Cole os códigos abaixo no módulo do form;

    Obs: Este form deve ser acessível apena para o programador.
    Para obter isso normalmente usa-se o controle de usuários, ou exigindo uma senha através de uma InputBox.


    Option Compare Database
    Option Explicit

    Private Sub cmdAtiva_Click()
    Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, True
    MsgBox "Tecla Shift ATIVADA!"
    DoCmd.Close acForm, "fShift"
    End Sub

    Private Sub cmdDesativa_Click()
    Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, False
    MsgBox "Tecla Shift DESATIVADA!"
    DoCmd.Close acForm, "fShift"
    End Sub

    Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True

    Change_Bye:
    Exit Function

    Change_Err:
    If Err = conPropNotFoundError Then ' Propriedade não encontrada.
    Set prp = dbs.CreateProperty(strPropName, _
    varPropType, varPropValue)
    dbs.Properties.Append prp
    Resume Next
    Else
    ' Erro desconhecido.
    ChangeProperty = False
    Resume Change_Bye
    End If
    End Function



    Última edição por Norberto Rost em 3/6/2012, 17:27, editado 1 vez(es)
    avatar
    Convidad
    Convidado


    [Resolvido]Desbloquear Vista de Estrutura Empty Re: [Resolvido]Desbloquear Vista de Estrutura

    Mensagem  Convidad 3/6/2012, 16:37

    Cuidado ao Implementar a desabilitação da tecla Shift.

    Antes de fazer isso, faça uma cópia do aplicativo.

    Se algo der errado e não puder recuperar o mdb/accdb, poderá usar o backup.

    Abraços
    avatar
    Convidad
    Convidado


    [Resolvido]Desbloquear Vista de Estrutura Empty Re: [Resolvido]Desbloquear Vista de Estrutura

    Mensagem  Convidad 3/6/2012, 17:19


    Enquanto estava digitando, lembrei de fazer o alerta. Acabei esquecendo.

    Bem observado, Balem!

    Se bem que teria jeito, pois é possível habilitar Shift em um bd a partir de outro.
    Daí esta técnica ser limitada.

    Melhor gerar um mde ou accde.

    avatar
    Convidad
    Convidado


    [Resolvido]Desbloquear Vista de Estrutura Empty Re: [Resolvido]Desbloquear Vista de Estrutura

    Mensagem  Convidad 3/6/2012, 18:05

    Perfeitamente Norberto Exclamation

    Abraços

    Conteúdo patrocinado


    [Resolvido]Desbloquear Vista de Estrutura Empty Re: [Resolvido]Desbloquear Vista de Estrutura

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 07:09