We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
COURSE of the MONTH
12 days, 3 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
KeyCode combination
Posted on 2002-04-19
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.
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
3
2-
2
7 Comments
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = 39 and shift = 2) And cmdGoToNext.Visible = True Then
cmdGoToNext_Click
End If
End Sub
If (KeyCode = 39 and shift = 2) And cmdGoToNext.Visible = True Then
cmdGoToNext_Click
End If
End Sub
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
Active today
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?
Featured Post
Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
The Windows Phone Theme Colours is a tight, powerful, and well balanced palette.
This tiny Access application makes it a snap to select and pick a value. And it doubles as an intro to implementing WithEvents, one of Access' hidden gems.
Traditionally, the method to display pictures in Access forms and reports is to first download them from URLs to a folder, record the path in a table and then let the form or report pull the pictures from that folder.
But why not let Windows retr…
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.
With Microsoft Access, learn how to start a database in different ways and produce different start-up actions allowing you to use a single database to perform multiple tasks.
Specify a start-up form through options:
Specify an Autoexec macro:
Us…
Suggested Courses
Course of the Month12 days, 3 hours left to enroll
752 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.