[Resolvido]Desabilitar Shift

No meu banco de dados da erro no dbBoolean, ja testei em outro banco de dados e funciona, só nesse que não o que será? Obrigado.



Private Sub Bloqueia_Click()
'Trava a tecla shift (veja módulo Shift)
AlterarPropriedade "AllowBypassKey", dbBoolean, False
'Oculta objetos marcados como ocultos na janela banco de dados
Application.SetOption "Mostrar Objetos Ocultos", False
End Sub

Pessoal acho que era uns _ no nome de uns formulários que tava dando pau.