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] Bloquear tecla SHIFT - Dúvida/Ajuda

    avatar
    kelvindeth
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 26/04/2013

    [RESOLVIDO] Bloquear tecla SHIFT - Dúvida/Ajuda Empty [RESOLVIDO] Bloquear tecla SHIFT - Dúvida/Ajuda

    Mensagem  kelvindeth 28/4/2013, 01:12

    Boa noite pessoal! Sou novo no fórum, aproveitando quero parabenizar pelo conteúdo desse fórum, me ajudou bastante em algumas coisas, sou iniciante no Access também....

    Gostaria que alguém me ajudasse no código VBA abaixo!
    Código:

    Option Compare Database

    Function AlterarPropriedade(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    'Cortesia: Carlos Moura - www.espaco_access.kit.net
    Dim prp As Property
    Const conPropNotFoundError = 3270
    If DB Is Nothing Then
    Set DB = CurrentDb
    End If
    On Error GoTo Change_Err
    DB.Properties(strPropName) = varPropValue
    AlterarPropriedade = True

    Change_Bye:

    Exit Function
    Change_Err:
    'Propriedade não localizada.
    'cria a propriedade
    If err = conPropNotFoundError Then
    Set prp = DB.CreateProperty(strPropName, _
    varPropType, varPropValue)
    DB.Properties.Append prp
    Resume Next
    Else
    ' Erro desconhecido.
    AlterarPropriedade = False
    Resume Change_Bye
    End If
    End Function


    Sub DefinirPropriedadesDeInicialização()

    'tecla Shift ficara bloqueada
    AlterarPropriedade "AllowBypassKey", dbBoolean, False

    End Sub

    Esse código é para ocultar a tecla SHIFT na inicialização de um BD. A questão é que, quando vou executá-lo ele me retorna o erro na imagem abaixo para a 5ª linha - If DB Is Nothing Then
    [RESOLVIDO] Bloquear tecla SHIFT - Dúvida/Ajuda Semttulodoy



    Alguém pode me ajudar? Grato desde já!


    Última edição por kelvindeth em 29/4/2013, 00:06, editado 1 vez(es)
    avatar
    Convidado
    Convidado


    [RESOLVIDO] Bloquear tecla SHIFT - Dúvida/Ajuda Empty Re: [RESOLVIDO] Bloquear tecla SHIFT - Dúvida/Ajuda

    Mensagem  Convidado 28/4/2013, 04:37

    Boas Kelvin, Seja bem vindo ao Fórum...

    Na sala de repositório de exemplos há o exemplo SysBase que nele tem o que deseja funcionando corretamente.


    Cumprimentos.
    avatar
    kelvindeth
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 26/04/2013

    [RESOLVIDO] Bloquear tecla SHIFT - Dúvida/Ajuda Empty Re: [RESOLVIDO] Bloquear tecla SHIFT - Dúvida/Ajuda

    Mensagem  kelvindeth 28/4/2013, 23:34

    Opa Piloto, agradeço a resposta no tópico, vou verificar depois dou um EDIT aqui, agradeço até então!


    EDIT!
    Boa noite Piloto! Vi o sistema que está fazendo e realmente é incrível, parabéns! Vi o sistema da tecla SHIFT também, tentei colocar no meu sistema mas não funciona, sabe me dizer porque?

    EDIT2!
    Consegui importar PILOTO, agradeço muito pela ajuda, podem trancar a tópico. Apenas uma pergunta sobre o sistema, ele está disponível para modificá-lo e usá-lo? Ou apenas para estudo! Agradeço a compreensão.

    avatar
    Convidado
    Convidado


    [RESOLVIDO] Bloquear tecla SHIFT - Dúvida/Ajuda Empty Re: [RESOLVIDO] Bloquear tecla SHIFT - Dúvida/Ajuda

    Mensagem  Convidado 29/4/2013, 00:20

    Podes utilizá-lo como deseja.. é livre para a finalidade que pretender.

    Ps. Não há necessidade de editar o post para suas respostas. Sempre clique em responder porque se responder em um novo post quem o está auxiliando receberá um e-mail que houve resposta no tópico podendo assim acompanhar o seu andamento.


    O Fórum agradece o Retorno.
    avatar
    kelvindeth
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 26/04/2013

    [RESOLVIDO] Bloquear tecla SHIFT - Dúvida/Ajuda Empty Re: [RESOLVIDO] Bloquear tecla SHIFT - Dúvida/Ajuda

    Mensagem  kelvindeth 29/4/2013, 01:07

    Entendi! não cliquei em responder para não Floodar!

    Muito obrigado novamente e tenha uma boa noite! Smile
    avatar
    Convidado
    Convidado


    [RESOLVIDO] Bloquear tecla SHIFT - Dúvida/Ajuda Empty Re: [RESOLVIDO] Bloquear tecla SHIFT - Dúvida/Ajuda

    Mensagem  Convidado 29/4/2013, 03:09

    O Fórum agradece o Retorno.

    Conteúdo patrocinado


    [RESOLVIDO] Bloquear tecla SHIFT - Dúvida/Ajuda Empty Re: [RESOLVIDO] Bloquear tecla SHIFT - Dúvida/Ajuda

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 23:51