Microsoft Access vem com a suíte Microsoft Office Productivity . Ao executar o software , se você pressionar a tecla " Shift" , você pode ignorar várias opções de inicialização que seriam úteis . Esta capacidade de evitar essas opções podem impedir o progresso em seu projeto, desperdiçando um tempo precioso . Os usuários podem remover esta opção de modo que eles são necessários para executar as opções de arranque de cada vez. O processo requer um pouco de codificação e é diferente, dependendo se é um projeto do Access ou banco de dados . Instruções
Desativando a tecla Shift para projetos do Access ( adp ).
1
Open Access .
2
Abra o arquivo de projeto , indo para "Arquivo" então
3
Pressione a tecla " ALT " ea tecla " F11 " no teclado "Abrir". . Isto irá abrir o "Editor do Visual Basic ".
4
Clique em "Exibir ", depois " janela imediata ".
5
Digite o seguinte código, fornecido pela Microsoft , no " janela imediata : " . " Enter"
CurrentProject.Properties.Add " AllowBypassKey " , Falso
Hit
6
Feche o editor < . br>
7
Salve seu trabalho e reinicie o Access.
Desativando a tecla Shift para banco de dados Access ( . mdb ou . accdb arquivos )
8
Open Access .
9
Criar um novo módulo , vá para " objetos ", depois " Módulos" na janela "Banco de Dados " .
10
Adicione esta função , desde pela Microsoft, no módulo :
ap_DisableShift Function ( )
'Esta função desativar a mudança na inicialização. Esta ação faz
' os Autoexec propriedades macro e de inicialização para sempre ser executado.
On Error GoTo errDisableShift
Dim db As DAO.Database
Dim sustentar como DAO.Property
Const conPropNotFound = 3270
Set db = CurrentDb ()
" Esta próxima linha desabilita a tecla shift na inicialização.
db.properties ( " AllowBypassKey ") =
Falso
'A função é bem sucedida
Exit Function
errDisableShift : .
' A primeira parte deste rotina de erro cria a " AllowBypassKey
' propriedade, se ela não existe .
Se Err = conPropNotFound Então
Definir prop = db.CreateProperty ( " AllowBypassKey ", _
dbBoolean , False)
db.Properties.Append prop
Resume Next
Else
MsgBox " Função ' ap_DisableShift ' não concluída com êxito. "
Exit Function
End If End Function
11
Adicione esta segunda função imediatamente após o que você inserido na último passo :
ap_EnableShift Function ( )
' . Esta função permite a tecla SHIFT no arranque Esta ação faz
' a macro Autoexec e as propriedades de inicialização para ser ignorada
'se o usuário mantém pressionada a tecla SHIFT quando o usuário abrir o banco de dados.
On Error GoTo errEnableShift
Dim db as DAO.Database
Dim sustentar como DAO.Property
Const conPropNotFound = 3270
Set db = CurrentDb ()
" Esta próxima linha de código desabilita a tecla SHIFT no arranque.
db.properties ( " AllowBypassKey " ) = True
"função bem sucedida função
Exit
errEnableShift :
' A primeira parte deste erro rotina cria a " AllowBypassKey
' propriedade, se ela não existir .
Se Err = conPropNotFound Então
Definir prop = db.CreateProperty ( " AllowBypassKey ", _ < br >
dbBoolean , True)
db.Properties.Append prop
Resume Next
Else
MsgBox " Função ' ap_DisableShift ' não foi concluída com sucesso. "
Exit Function
End If End Function
12
Abra o Editor do Visual Basic pressionando a tecla" ALT " e as teclas " F11 " no teclado novamente.
13
Clique em "Exibir ", depois " janela imediata. "
14
Type " ap_DisableShift " no " janela imediata "para desativar o uso da tecla" Shift " .
