Microsoft Access viene fornito in bundle con la suite di produttività Microsoft Office . Quando si esegue il software , se si preme il tasto "Shift" , è possibile ignorare le varie opzioni di start- up che altrimenti sarebbero utili . Questa capacità di evitare queste opzioni può ostacolare il progresso sul vostro progetto , sprecando tempo prezioso . Gli utenti possono rimuovere questa opzione in modo che essi sono tenuti ad eseguire le opzioni di avvio ogni volta. Il processo richiede un po 'di codifica ed è diverso a seconda se si tratta di un progetto di Access o di database .
Istruzioni Disabilitare il tasto Maiusc per progetti di Access (file . Adp ) economici 1
Open Access .
2
Aprire il file di progetto andando su " File ", poi "Apri".
3 Premere il tasto "ALT" e il tasto " F11 " sulla tastiera . Questo aprirà il " Visual Basic Editor ".
4
Fare clic su " Visualizza ", quindi " Finestra immediata . "
5
digitare il seguente codice , fornito da Microsoft , nella " finestra immediata : " . " Enter" .
CurrentProject.Properties.Add " AllowBypassKey " , False
Hit
6
Chiudere l'editor
Pagina 7
Salvare il lavoro e riavviare Access.
Disabilitare il tasto Maiusc per database di Access ( file con estensione accdb . mdb o . ) economici 8
Open Access .
9
Creare un nuovo modulo andando su " oggetti", poi "Moduli" nella finestra "Database" .
10
Aggiungi questa funzione , a condizione da parte di Microsoft , nel modulo:
funzione ap_DisableShift ( ) per
'Questa funzione disattiva lo spostamento in fase di avvio . Questa azione provoca
' la macro Autoexec e proprietà di avvio da sempre essere eseguiti .
On Error GoTo errDisableShift
Dim db As DAO.Database
Dim prop come DAO.Property
Const conPropNotFound = 3270
Set db = CurrentDb ( ) per
'Questa riga successiva disabilita il tasto shift all'avvio.
db.Properties ( " AllowBypassKey " ) = False
' la funzione riesce
Exit Function
errDisableShift : .
' La prima parte di questo routine di errore genera " proprietà AllowBypassKey
' se non esiste.
Se Err = conPropNotFound Poi
prop = db.CreateProperty ( " il AllowBypassKey " , _
dbBoolean , False ) per
db.Properties.Append prop
Resume Next
Else
MsgBox "Funzione ' ap_DisableShift ' non ha completare con successo . "
Exit Function
End If End Function
11
Aggiungi questa seconda funzione subito dopo quello si è inserito nella ultimo passo :
funzione ap_EnableShift ( ) per
' . Questa funzione consente il tasto SHIFT all'avvio Questa azione provoca
' la macro Autoexec e le proprietà di avvio da escludere
' se l' utente tiene premuto il tasto MAIUSC quando l'utente apre il database .
On Error GoTo errEnableShift
Dim db come DAO.Database
Dim prop come DAO.Property
Const conPropNotFound = 3270
Set db = CurrentDb ( ) per
' Questo prossima riga di codice disabilita il tasto SHIFT all'avvio.
< p> db.Properties ( " AllowBypassKey " ) = 'Funzione di successo
Exit Function
errEnableShift :
' True
La prima parte di questo errore di routine crea " proprietà AllowBypassKey
' se non esiste.
Se Err = conPropNotFound Poi
prop = db.CreateProperty ( " il AllowBypassKey " , _ < br
dbBoolean , True)
db.Properties.Append > prop
Resume Next
Else
MsgBox "Funzione ' ap_DisableShift ' non è stato completato con successo . "
Exit Function
End If End Function
12
Aprire l'editor di Visual Basic premendo il tasto" ALT " e i tasti "F11 " sulla tastiera di nuovo.
13
Fare clic su " Visualizza ", quindi " finestra immediata ".
14
Tipo " ap_DisableShift " nella " finestra Immediata " per disabilitare l'uso del tasto" shift " .
