Newsgroup: it.comp.appl.access
Titolo: Evento corrente codice in base a chi l'ha causato

Considerando che non riesco a risolvere il problema dello scroll del
mouse
causato dalla rotellina e avendo provato:
Cycle (Sequenza) su record corrente: non funziona
Consenti Aggiunte a No : non va bene perché non possso più usare la
barra dei
pulsanti di spostamento per aggiungere un nuovo record e comunque rimane
il problema
che se parte lo scroll mi scorre tutto d'un colpo i record
Facendo riferimento a un suggerimento di Megamax e  Leo basati (codice
però non indicato)
sull' evento corrente, volevo chiedere:
1) è proprio con tale evento che io posso controllare se mi sono
spostato da un record ad un altro?
       cioè è l'unico o ve ne sono altri più specifici per il controllo
spostamento tra record?
2) Accertato che: ho uno spostamento da un record ad una altro (sia tra
i record esistenti che verso uno nuovo),
tali spostamenti li devo avere solo se uso gli appositi pulsanti della
barra di spostamento tra i record (quella che access posiziona  in basso
ad ogni form);
Ipotizzo un codice del genere
Sub evento corrente
se mi trovo su un record diverso da quello precedente
allora
se  il passaggio a questo record (che può essere esistente o nuovo)
è dovuto ad un mio click su uno dei pulsanti dell'apposita barra
tutto ok
in caso contrario
riportami al record precedente l'azione che ha causato tale spostamento
(qui ci deve essere però tale accorgimento: visto che nella mia form
quando
passo ad un nuovo record si incrementa il contatore, l'annullamento
dell'azione
dello scroll deve essere preventiva, nel senso che, se mi va al record
nuovo e poi
io lo riporto indietro mi ritrovo il contatore che è scattato, cosa da
evitare)
End sub
chi mi dà un help traducendo in access(97)
(n.b. ogni altro suggerimento per risolvere problema scroll rotellina
è sempre ben accetto, anzi...)

 ha scritto nel messaggio
news:3C353736...@lycos.it...

Prova con
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    '33 - PgUp; 34 - PgDown; 9 - Tab; 18=Alt
    Select Case KeyCode
        Case 33, 34, 9, 18
            KeyCode = 0
        Case Else
End Select
End Sub
Ciao ;-)>

 con acc97
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    '33 - PgUp; 34 - PgDown; 9 - Tab; 18=Alt
    Select Case KeyCode
        Case 33, 34, 9, 18
            KeyCode = 0
        Case Else
End Select
End Sub
Mrok ;-)>
Saluti.
Emanuele.

 End Sub
Scusate entrambi, mi ero dimenticato di dire che ho anche provato tale
codice, che
è valido come codice proprio in riferimento al post precedente del If
Keycode=33
selezionando anteprima tasti a no. Però non funziona e lo scroll continua.
Tra l'altro ho notato che nessun pulsante del mouse crea nessun valore di
keycode
ho fatto tale verifica inserendo una casella di testo con castesto=Keycode e
mentre
per i pulsanti pgsu e giù mi dà i numeri 33 e 34 ed anche per gli altri
tast mi dà i numeri, per il mouse non dà nulla (ho provato anche con
anteprima tasti a si
ma niente). ho provato anche con l'evento mousedown a far scrivere il valore
button
ma non dà nessun valore e per nessun tasto.
solo a titolo di curiosità
9 - Tab; 18=Alt
1) perchè sono stati aggiunti tali valori : per tab ipotizzo che valga nel
caso di sequenza = tutti i record
2) ma per alt?
3) inoltre ma a voi, con tale codice lo scroll che prima dava lo scorrimento
record, poi
    non lo da più?
4) che versione di access avete?
 io uso accesss97 però senza le sr1 sr2 sr3 etc..
(5)sempre che ve ne siano state e io posso vedere se già il mio access ha
dentro qualche sr..?);
 6) può essere anche questo il problema ?
comunque per il momento non vedo altro che del codice sull'evento corrente