Una famiglia di sistemi di gestione per database relazionali di Microsoft progettati per semplificare l'uso.
Buongiorno
Sul Sito Comune ho trovato questo codice e risulta tutto funzionante, ma non riesco a cambiare la combinazione dei tasti. Vorrei che mi apparisse il messaggio quando premo CTRL+CANC invece di CTRL+F10 come indicato fra i punti esclamativi . Qualcuno può darmi una dritta.
grazie
Private Sub RagioneSocialeCliente_KeyDown(KeyCode As Integer, Shift As Integer)
Dim TastoShift As Integer, TastoAlt As Integer, TastoCtrl As Integer
TastoShift = (Shift And acShiftMask) > 0
TastoAlt = (Shift And acAltMask) > 0
TastoCtrl = (Shift And acCtrlMask) > 0
If TastoShift And TastoAlt And TastoCtrl Then
MsgBox "SHIFT + ALT +CTRL"
End If
If TastoCtrl And TstoDel Then
MsgBox "SHIFT + ALT +CTRL canc"
End If
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
If TastoCtrl And KeyCode = vbKeyF2 Then
MsgBox " CTRL + F10"
End If
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
If TastoCtrl And KeyCode = vbKeyY Then
MsgBox "CTRL + canc"
End If
End sub