Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Disabilitare tasti funzione Access 2007

345 views
Skip to first unread message

Anna

unread,
Jul 12, 2012, 11:36:30 AM7/12/12
to
Ciao a tutti!
Ho un vecchio programma nato con Access 2000, in cui avevo associato
alla pressione dei tasti F1, f2, etc.. funzioni diverse!
Ora, in Access 2007, alla pressione del tasto F6 il programma non
esegue più la mia funzione, bensì mostra le etichette dei menù in alto.
Domanda, è possibile disabilitare questa funzione? (Ci ho già provato
in tutti i modi prima di scrivere)
Oppure devo cambiare tasto funzione? (mi auguro di no, devo compiere
questa modifica su + computer)
Intanto, grazie moltissime!

Fair87

unread,
Jul 13, 2012, 4:57:47 AM7/13/12
to
Come hai assegnato la tua funzione al tasto F6?

Anna

unread,
Jul 16, 2012, 6:15:36 AM7/16/12
to
> Come hai assegnato la tua funzione al tasto F6?

Nell'evento "Su Tasto Su" della form, all'interno il codice VBA, che fa
diversi Case (per sapere quale tasto Fx ￜ stato premuto) e richiama la
mia funzione associata.




Fair87

unread,
Jul 16, 2012, 12:28:04 PM7/16/12
to
Il giorno lunedì 16 luglio 2012 12:15:36 UTC+2, Anna ha scritto:
> > Come hai assegnato la tua funzione al tasto F6?
>
> Nell'evento "Su Tasto Su" della form, all'interno il codice VBA, che fa
> diversi Case (per sapere quale tasto Fx è stato premuto) e richiama la
> mia funzione associata.

Hai usato KeyCode = 0 per evitare la propagazione della pressione?

Anna

unread,
Jul 17, 2012, 3:44:12 AM7/17/12
to
> Hai usato KeyCode = 0 per evitare la propagazione della pressione?

Noo!! Spiegati meglio :) Grazie


Fair87

unread,
Jul 17, 2012, 12:23:15 PM7/17/12
to
Il giorno martedì 17 luglio 2012 09:44:12 UTC+2, Anna ha scritto:
> > Hai usato KeyCode = 0 per evitare la propagazione della pressione?
>
> Noo!! Spiegati meglio :) Grazie

Tu avrai una cosa del genere su tasto giu

if keycode=..... then docmd.open.....

Bene. Questo codice non invalida i tasti speciali di access. Se in cima alle istruzioni tu scrivi "KeyCode = 0" essenzialmente stai dicendo ad Access di ignorare il tasto premuto. Poi il tuo codice farà il resto

Anna

unread,
Jul 18, 2012, 8:25:52 AM7/18/12
to
> Tu avrai una cosa del genere su tasto giu
> if keycode=..... then docmd.open.....
> Bene. Questo codice non invalida i tasti speciali di access. Se in cima alle
>istruzioni tu scrivi "KeyCode = 0" essenzialmente stai dicendo ad Access di
>ignorare il tasto premuto. Poi il tuo codice farￜ il resto

Mah, in quale evento lo devo indicare?
Se lo scrivo "Keycode=0" nell'eventi "Su tasto Su" dove ho il resto del mio
codice, ed appunto il case, disabilito anche i tasti che schiaccio io, non puￜ
funzionare cosￜ.
Grazie

Fair87

unread,
Jul 18, 2012, 11:18:02 AM7/18/12
to
Il giorno mercoledì 18 luglio 2012 14:25:52 UTC+2, Anna ha scritto:
> > Tu avrai una cosa del genere su tasto giu
> > if keycode=..... then docmd.open.....
> > Bene. Questo codice non invalida i tasti speciali di access. Se in cima alle
> >istruzioni tu scrivi "KeyCode = 0" essenzialmente stai dicendo ad Access di
> >ignorare il tasto premuto. Poi il tuo codice farà il resto
>
> Mah, in quale evento lo devo indicare?
> Se lo scrivo "Keycode=0" nell'eventi "Su tasto Su" dove ho il resto del mio
> codice, ed appunto il case, disabilito anche i tasti che schiaccio io, non può
> funzionare così.
> Grazie

E chi l'ha detto?!?!?!?
Esempio di routine perfettamente funzionante

Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Err_desc

If (Shift And acAltMask) > 0 And (KeyCode = vbKeyF4) Then
MsgBox "IMPOSSIBILE USARE [ALT+F4] !"
KeyCode = 0
End If

Select Case KeyCode

Case vbKeyEscape
KeyCode = 0
DoCmd.OpenForm "CHIUSURA"
Case vbKeyInsert
KeyCode = 0
Call Menu(5)
Case vbKeyEnd
KeyCode = 0
Call Menu(4)
Case vbKeyHome
KeyCode = 0
Call Menu(1)
Case vbKeyPageUp
KeyCode = 0
Call Menu(2)
Case vbKeyPageDown
KeyCode = 0
Call Menu(3)
Case vbKeyE And (Shift And acAltMask) > 0
KeyCode = 0
PulsCommento_Click
Case Else

End Select

Uscita:
Exit Sub

Err_desc:
GestioneErrori (Err.Number)
Resume Uscita

End Sub
0 new messages