Newsgroup: it.comp.appl.access
Titolo: ROTELLINA MOUSE

Salve a tutto il NG
Ho sempre un grosso problema con la rotellina del Mouse, allora mi chiedevo
se qualcuno conosce una funzione che mi permetta di disattivare la rotellina
all'interno del mio programma ACCESS.
Il mio problema è che nelle maschere collegate direttamente alla tabella, o
comunque che hanno come Origine un select su una sola tabella (
Fatture_Vendita - Dettaglio_Fatt_Vendita), se modifico qualcosa e muovo
scausalmente la rotella il record si salva in automatico ed io sono fritto.
Come posso fare????????
Un gigantesco e preventivo ringraziamento
Antonio

 ha scritto nel messaggio
news:4Crra.18737$3M4.5...@news1.tin.it...

La soluzione la trovi in questo link:
http://www.mvps.org/access/api/api0036.htm
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
--------------------------------------------- 

 ha scritto nel messaggio
news:Bdsra.76647$DT4.2...@twister1.libero.it...


Place this code in a new module and compile and Save all Modules.
NOTA: per testare il codice in questo articolo, serve anche il codice
dell’AddressOf
In Access 97, la rotella del mouse Intelli ha l’effetto di scorrere,
sfogliare i records. Spesso può essere necessario trovare quanti
records, in avanti o indietro, l’utente ha spostato usando la rotella.
Con una funzione da richiamare che funziona ogni volta che viene mossa
la rotella, possiamo stabilire quando la rotella è attivata, ed ottenere
il numero di “tick” che la stessa ha fatto.
Salva il file frmMouseWheel.txt sull’hard disk. Poi carica questo file
di testo come nuova form usando il metodo LoadFromText dalla finestra di
Debug in un nuovo database.
Chiama
Application.LoadFromText(acForm,"frmMouseWheel","F:\website\frmMouseWheel.txt")
dove    "f:\website" è il luogo in cui si trova il file di testo
contenente il seguente codice sulla mia macchina.
Metti questo codice in un nuovo modulo e compila e salva tutti i moduli.
SPERO DI ESSERTI STATA UTILE IN QUALKE MODO.
LAU
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:b9ce0a6f7b205c9e559...@mygate.mailgate.org...


 Antonio
prego.... comunque... ehm... sono una ragazza! 
lau


 ha scritto nel messaggio
news:b9ce0a6f7b205c9e559...@mygate.mailgate.org...


5.	Be careful of ByVal or ByRef when passing arguments to the function.   If you don't get this right, nothing's going to work. 
AddressOf non è supportato in Acces/Office97 (né dalle versioni
precedenti). C’è comunque una buona probabilità che sia supportato da
VBA 6 o Office 2000.
In ogni caso, Ken Getz e Michael Kaplan, nel giornale Microsoft Office
and VBA Developer Magazine, hanno pubblicato un metodo non documentato
per prendere l’indirizzo (puntatore) per una procedura in ambito VBA.
Il codice dell’ AddressOf è disponibile al Trigeminal's website. Cerca
di recuperare quella particolare uscita (Maggio 1998) del giornale per
leggere anche il dettagliato articolo che l’accompagna, dal momento che
ci sono alcuni argomenti che dovresti conoscere.
AddressOf, ora un operatore standard in VB 5, può essere utilizzato per
passare l’indirizzo di una funzione definita dall’utente ad una funzione
API. Ciò ci permette di utilizzare molte altre API che richiedono una
funzione da richiamare. Questa a sua volta ci permette di “subclassare”
una form di Access per una maggiore funzionalità. (La “subclassazione” è
una tecnica che ci permette di intercettare messaggi di Windows inviati
ad una form o ad un controllo).
ATTENZIONE:
 
1.	L’AddressOf è COMPLETAMENTE NON SUPPORTATO da Microsoft in Office 97.
Usalo a tuo rischio!
2.	E’ sconsigliato inserire il metodo di debug, perché causa
frequentemente problemi.
3.	Assicurati di aver fatto il backup del tuo lavoro e salvato prima di
lanciare qualsiasi codice. L’utilizzo di questa tecnica aggiunge un
altro livello di instabilità dal momento che ci sono molti modi di fare
le cose nel modo sbagliato. Una volta che riesci a farlo funzionare nel
modo corretto, dovrebbe essere tutto ok.
4.	Accertati di aver inserito On Error Resume Next all’inizio di ogni
funzione. Questo per essere sicuri che gli eventuali errori in una
funzione richiamata non vengano diffusi nel punto in cui essa viene
richiamata.
5.	Attenzione all’utilizzo di ByVal o ByRef nello scrivere una funzione.
Se non lo fai nel modo corretto, non funzionerà nulla.


 ha scritto nel messaggio
news:231817858d543622d42...@mygate.mailgate.org...
