Funciones F1 a F12
Gracias por tomarte de tu tiempo para ayudarme. Quisiera a travez de access el programar las funciones osea cuando oprima F1 Abra una Forma o reporte etc..?Como lo hago en access? Gracias...
Milton
Milton
1 Respuesta
Respuesta de pcburner
1
Prueba esto,
' Como detectar el uso de Ctrl + F2, F3, or F4'
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim intCtrlDown As Integer
intCtrlDown = (Shift And acCtrlMask) > 0
Select Case
KeyCode Case vbKeyF2
If intCtrlDown Then
MsgBox " Ctrl+F2"
KeyCode = 0
End If
Case vbKeyF3
If intCtrlDown Then
MsgBox "Ctrl+F3"
KeyCode = 0
End If
Case vbKeyF4
If intCtrlDown Then
MsgBox "Ctrl+F4"
KeyCode = 0
End If
End Select
End Sub
' Como detectar el uso de Alt + F2, F3, or F4'
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim intAltDown As Integerint
AltDown = (Shift And acAltMask) > 0
Select Case KeyCode
Case vbKeyF2
If intAltDown Then
MsgBox "Alt+F2"
KeyCode = 0
End If
Case vbKeyF3
If intAltDown Then
MsgBox "Alt+F3"
KeyCode = 0
End If
Case vbKeyF4
If intAltDown Then
MsgBox "YAlt+F4"
KeyCode = 0
End If
End Select
End Sub
Solo tienes que sustituir el msgbox por el codigo a ejecutar.
Salu2
PcBurner
' Como detectar el uso de Ctrl + F2, F3, or F4'
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim intCtrlDown As Integer
intCtrlDown = (Shift And acCtrlMask) > 0
Select Case
KeyCode Case vbKeyF2
If intCtrlDown Then
MsgBox " Ctrl+F2"
KeyCode = 0
End If
Case vbKeyF3
If intCtrlDown Then
MsgBox "Ctrl+F3"
KeyCode = 0
End If
Case vbKeyF4
If intCtrlDown Then
MsgBox "Ctrl+F4"
KeyCode = 0
End If
End Select
End Sub
' Como detectar el uso de Alt + F2, F3, or F4'
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim intAltDown As Integerint
AltDown = (Shift And acAltMask) > 0
Select Case KeyCode
Case vbKeyF2
If intAltDown Then
MsgBox "Alt+F2"
KeyCode = 0
End If
Case vbKeyF3
If intAltDown Then
MsgBox "Alt+F3"
KeyCode = 0
End If
Case vbKeyF4
If intAltDown Then
MsgBox "YAlt+F4"
KeyCode = 0
End If
End Select
End Sub
Solo tienes que sustituir el msgbox por el codigo a ejecutar.
Salu2
PcBurner
gracias, pero? ?Donde escribo todo esto?
Otra vez,
Vale, crea un formulario de prueba, editalo con el editor de vba, pega el siguiente codigo en el editor,
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF2
MsgBox " F2"
KeyCode = 0
Case vbKeyF3
MsgBox "F3"
KeyCode = 0
Case vbKeyF4
MsgBox "F4"
KeyCode = 0
End Select
End Sub
Al pulsar las teclas de funcion veras que te devuelve los msgbox.
Lo que quieras que hagan esas teclas de funcion tendra que ser escrito sustituyendo la linea de msgbox.
Salu2
PCBurner
Vale, crea un formulario de prueba, editalo con el editor de vba, pega el siguiente codigo en el editor,
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF2
MsgBox " F2"
KeyCode = 0
Case vbKeyF3
MsgBox "F3"
KeyCode = 0
Case vbKeyF4
MsgBox "F4"
KeyCode = 0
End Select
End Sub
Al pulsar las teclas de funcion veras que te devuelve los msgbox.
Lo que quieras que hagan esas teclas de funcion tendra que ser escrito sustituyendo la linea de msgbox.
Salu2
PCBurner
