[Access] pulsanti di spostamento access 2003

Question

ciao a tutti i pulsanti di access di spostamento predefiniti li ho tolti perchè non mi piacevano.ne ho fatto degli altri che funzionano ma mi servirebbe che quando tieni premuto il pulsante avanti andasse avanti da solo.come posso fare?

Answer 1

Ciao happyhacker95.

ti invio del codice che ho scritto e provato in access 2007, ma credo che non abbia alcun problema a funzionare anche nel 2003.

Option Compare Database Option Explicit

Dim PigiaAncora As Boolean

Private Sub Successivo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim InizioTempo As Single Const IntervalloRipetizione As Single = 0.1 ' in secondi

PigiaAncora = True                          ' imposto l'esecuzione del ciclo

Do While PigiaAncora
    InizioTempo = timer
    DoCmd.GoToRecord , , acNext
    Do While (timer - InizioTempo) < IntervalloRipetizione
        DoEvents
    Loop
Loop

End Sub

Private Sub Successivo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) PigiaAncora = False End Sub

Si tratta di sfruttare gli eventi di MouseUp e MouseDown del tuo pulsante personalizzato (nel mio esempio chiamato Successivo per scorrere in avanti).

In pratica al click sul pulsante parte un ciclo di gotorecord che va avanti in maniera indefinita fino a che la variabile PigiaAncora è a True. PigiaAncora diventa false nel momento in cui si alza il pulsante del mouse (evento MouseUp). Evidentmente PigiaAncora deve essere a livello di modulo per poter essere condivisa dalle diverse routine.

Due cose importanti da notare:

1. è importante regolare la velocità di ripetizione. Ogni ciclo di loop aspetta il tempo impostato in IntervalloRipetizione
2. fondamentale l'istruzione Doevents, altrimenti il sistema, tutto preso dal fare il loop non fa avvenire l'evento di MouseUp

Devi aggiungere la gestione degli errori quando si arriva in cima o in fondo all'elenco.

Ciao. Edoardo

Answer 2

be scusa ma allora come fa il pulsante predefinito avanti a spostarsi con la pressione del mouse

Ciao,

probabilmente ti riferisci a una versione di access inferiore alla 2007 perchè in access 2007 i pulsanti predefiniti di spostamento non eseguono la ripetizione.

Comunque non so come fa, direi che le possibilità che ha il team di sviluppo di Access per modificare i comportamenti di questi oggetti sono maggiori rispetto a quelle di chi come noi utilizza access.

:-)

Giorgio Rancati

Answer 3

be scusa ma allora come fa il pulsante predefinito avanti a spostarsi con la pressione del mouse

Answer 4

Ciao,

la proprietà "Ripetizione Automatica" del pulsante di comando permette la ripetizione dell'evento click finchè il pulsante rimane premuto.

Questo meccanismo però non funziona se l'evento click esegue del codice o una macro per spostarsi tra i records della maschera.

Per maggiori info vedi:

---

No AutoRepeat with GoToRecord/Next and DoMenuItem

http://support.microsoft.com/default.aspx/kb/95645/

---

L'unico modo per far funzionare la ripetizione dopo aver attivato la proprietà "Ripetizione Automatica" è quella di premere il pulsante con la barra spaziatrice della tastiera o con il tasto Enter.

Ciao

Giorgio Rancati