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

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




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

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.

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.

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.

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

Muito obrigado novamente e tenha uma boa noite!

O Fórum agradece o Retorno.