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.

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

• Come recuperare un archivio PST 
• Informazioni su Software per pratiche di assistenza sanitaria