Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.
KeyCode combination
I use the following code to run cmdGoToNext_Click when F10 is pressed:
--------------------------
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF10 And cmdGoToNext.Visible = True Then
cmdGoToNext_Click
End If
End Sub
--------------------------
What should the code be to use Ctrl & Right Arrow together instead of F10?
Thanks.
--------------------------
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF10 And cmdGoToNext.Visible = True Then
cmdGoToNext_Click
End If
End Sub
--------------------------
What should the code be to use Ctrl & Right Arrow together instead of F10?
Thanks.
Asked:
3
2-
2
1 Solution
more properly it is
If KeyCode = vbKeyRight And CBool(Shift And vbCtrlMask) Then
MsgBox "YES"
End If
If KeyCode = vbKeyRight And CBool(Shift And vbCtrlMask) Then
MsgBox "YES"
End If
deighton:
Both your solutions don't seem to work. When I use the first solution I get an error message, and the second just does an ordinary move right (to next field).
My code is:
--------------------------
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeyLeft And CBool(Shift And vbCtrlMask)) And (cmdGoToNext.Visible = True) Then
cmdGoToNext_Click
End If
End Sub
Private Sub cmdGoToNext_Click()
Check_Allocations
If StopCodeExecution = True Then
StopCodeExecution = False
Exit Sub
Else
DoCmd.GoToRecord acDataForm, "frmDonations", acNext
End If
End Sub
__________________________
Can you help? Thanks.
Both your solutions don't seem to work. When I use the first solution I get an error message, and the second just does an ordinary move right (to next field).
My code is:
--------------------------
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeyLeft And CBool(Shift And vbCtrlMask)) And (cmdGoToNext.Visible = True) Then
cmdGoToNext_Click
End If
End Sub
Private Sub cmdGoToNext_Click()
Check_Allocations
If StopCodeExecution = True Then
StopCodeExecution = False
Exit Sub
Else
DoCmd.GoToRecord acDataForm, "frmDonations", acNext
End If
End Sub
__________________________
Can you help? Thanks.
sorry dude, I guess that the arrow key still carries out its function regardless. I don't know how to stop that behaviour.
Feel free to delete the question and repost it if you want
Feel free to delete the question and repost it if you want
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim intCtrlDown As Integer
intCtrlDown = (Shift And acCtrlMask) > 0
If KeyCode = vbKeyRight And intCtrlDown = True And cmdGoToNext.Visible = True Then
call cmdGoToNext_Click
End If
End Sub
Jim.
Dim intCtrlDown As Integer
intCtrlDown = (Shift And acCtrlMask) > 0
If KeyCode = vbKeyRight And intCtrlDown = True And cmdGoToNext.Visible = True Then
call cmdGoToNext_Click
End If
End Sub
Jim.
deighton: Thanks for that.
Jim: It works! Thanks again. BTW, can use a boolean type for intCtrlDown?
Jim: It works! Thanks again. BTW, can use a boolean type for intCtrlDown?
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
Featured Post
Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.
Tackle projects and never again get stuck behind a technical roadblock.
Join Now
If (KeyCode = 39 and shift = 2) And cmdGoToNext.Visible = True Then
cmdGoToNext_Click
End If
End Sub