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
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