Newsgroup: it.comp.appl.access
Titolo: Disabilitare la rotellina del mouse

Salve: vorrei, come da oggetto, disabilitare la funzionalità della
rotellina del mouse sulle maschere, ho già guardato nell'archivio
del sito comune ma i suggerimenti che ho trovato non sono stati
esaustivi.
Qualcuno sa dirmi come posso fare senza doverla disabilitare a
livello di sistema?
Grazie anticipatamente per la collaborazione.
Ciao
--
david
dav...@libero.it
--

 livello di sistema?
Nome disattivarla non saprei...
io uso l'evento "su corrente", così mi rendo conto se l'utente cambia record
usando la rotellina... e se lo fa lo riporto sul record giusto
Max

 ha scritto nel messaggio
news:hk4V6.14595$a44.1...@news1.tin.it...

Ciao
cosa controlli sull'evento corrente per sapere se l'utente ha cambiato
record usando la rotellina?
Grazie
Ciao

 wrote in message hk4V6.14595$a44.1...@news1.tin.it...

Grazie! :)))))
Leo

 record usando la rotellina?
Mmm... in quella maschera volevo solo impedire che cambiasse record, e
poteva farlo solo con la rotellina visto che gli altri controlli erano
disabilitati.
Se non ricordo male controllavo un campo sulla maschera che era la chiave
della tabella su cui era basata.
Sapevo che valore doveva avere, se cambiava reimpostavo il record giusto.
Max

Nel newsgroup comp.databases.ms-access ho trovato una soluzione
che ritengo non bellissima, ma in ogni caso interessante per
disabilitare
la funzionalità della rotellina del mouse e di altre combinazioni di
tasti 
del tipo CTRL+ENTER o CTRL+PGDN, ecc.
In ogni caso può essere presa come spunto per altri sviluppi.
La ripropongo qui sotto con degli aggiustamenti da me effettuati:
Sulla maschera ho usato due pulsanti chiamati: cmdEdit e cmdSave.
'module level variable
Dim mCurrentRecord As Long
Private Sub cmdEdit_click()
    cmdSave.Enabled = True
    cmdSave.SetFocus
    cmdEdit.Enabled = False
    mCurrentRecord = Me.CurrentRecord
End Sub
Private Sub cmdSave_click()
    cmdEdit.Enabled = True
    cmdEdit.SetFocus
    cmdSave.Enabled = False
End Sub
Private Sub Form_Current()
    If Me.cmdEdit.Enabled = False Then
        DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, mCurrentRecord
    End If
End Sub
Un grazie a Simon 
amigo_...@yahoo.com.au
 cha ha postato questa
soluzione.
Ciao
--
david
davi...@libero.it
--


Io ho rinunciato a disabilitare la rotellina e ho
adottato questo sistema anche se, dati i miei
1 mese di esperienza :))) non so se è efficace
o se ha dei 'buchi'; lo riporto... se puoi
darmi un opinione o evidenziarmi problemi
che questa soluzione può dare...
ti ringrazio fin d'ora!
    Leo
IDCliente               =    indice dei recors
SelezioneCliente     =    casella combinata (per selezionare il cliente desiderato)
cslCodiceCliente    =    casella di testo (riporta il codice cliente)
cslNomeDitta         =    casella di testo (riporta il nome della ditta)
Private Sub Form_Current()
    If Not IsNull(Me.IDCliente) Then
                        ' la rotellina mi cambia il record?
        Me!SelezioneCliente = Me!IDCliente
                        ' si = sistemo le cose.....
        Me!cslCodiceCliente = Me!CodiceCliente
        Me!cslNomeDitta = Me!NomeDitta
    End If
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[IDCliente] = " & Str(Me![SelezioneCliente])
                        ' se IsNull(Me.IDCliente) mi riporta a Me![SelezioneCliente]
    If Not rs.NoMatch Then
                        ' forse non serve!
        Me.Bookmark = rs.Bookmark
    End If
End Sub