Come disattivare la rotellina del mouse in MS Access 2003

February 25

Come disattivare la rotellina del mouse in MS Access 2003


La rotella di scorrimento del mouse è utile in alcune applicazioni del computer, ma può causare problemi in Microsoft Access. Se si creano applicazioni di database con Access, si potrebbe avere familiarità con il modo in cui la rotella di scorrimento può causare record per scorrere troppo veloce o ciclo prima immissione dei dati è stata completata. Con il rilascio di Access 2007, la rotellina di scorrimento è disabilitata di default nell'applicazione. Nelle versioni precedenti alla Access 2007, tra cui Access 2003, è necessario disattivare manualmente la funzione di rotellina di scorrimento con un modulo o codice VBA collocato in una procedura di evento del mouse. In questo articolo vengono descritti due metodi per raggiungere questo obiettivo.

istruzione

Chiamare un file DLL dal codice manualmente

1 Scarica il database MouseWheelHookA2k campione libero e codice dal sito web Lebans Holdings (vedi Risorse per il link). Estrarre il file in una cartella sul computer.

2 Copiare e incollare il file "MouseHook.DLL" nella cartella con il file MDB di Access.

3 Aprire il database di Access. Trovare e aprire il modulo "StartUp" nella lista dei moduli per il database (Il modulo di partenza potrebbe avere un nome diverso).

4 Fare clic sulla barra degli strumenti "Form Design Strumenti" e creare un "pulsante di comando" ovunque sul modulo.

5 Fare clic con il pulsante di comando e selezionare l'opzione "Proprietà" dal menu a comparsa. Scorrere verso il basso per l'opzione "OnClick" e fare doppio clic sul campo vuoto per aprire il Visual Basic, Applications Edition (VBA) editore.

6 Copiare e incollare il seguente codice nell'editor di VBA:

'Girare la MouseWheel Off

Dim blRet Come booleano

blRet = MouseWheelOFF

7 Chiudere l'editor VBA.

8 Creare un altro "pulsante di comando" su qualsiasi altra forma nel database di girare la rotella di scorrimento indietro prima di uscire il database. Immettere il seguente codice dietro il pulsante di comando nel codice "OnClick":

'Girare la rotellina del mouse su

Dim blRet Come booleano

blRet = MouseWheelON

Importare un modulo nel database di Access

9 Scarica il database basMouseHook campione libero e il codice dal sito EverythingAccess.com (vedi Risorse per il link). Salvare il database in una cartella del computer.

10 Aprire il database in Access. Selezionare l'opzione "File / Importa" e quindi selezionare "Moduli". Passare alla cartella in cui è stato salvato il database basMouseHook e importare il modulo di codice basMouseHook dal database di esempio.

11 Aprire il modulo "StartUp" nella finestra Forms Designer. Pulsante destro del mouse sul form, quindi selezionare l'opzione "Proprietà" dal menu a comparsa.

12 Scorrere verso il basso alla routine evento "SuApertura" e fare doppio clic su di esso per entrare nel editor VBA.

13 Copia e incolla il seguente codice nella routine evento "SuApertura":

Private Sub Form_Open (Cancel As Integer)

Static MouseHook As Object

Set MouseHook = NewMouseHook (Me)

End Sub