Microsoft Azure is rapidly becoming the norm in dynamic IT environments. This document describes the challenges that organizations face when protecting data in a hybrid cloud IT environment and presents a use case to demonstrate how Acronis Backup protects all data.
Course Of The Month
3 days, 19 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
Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Describes a method of obtaining an object variable to an already running instance of Microsoft Access so that it can be controlled via automation.
This article describes two methods for creating a combo box that can be used to add new items to the row source -- one for simple lookup tables, and one for a more complex row source where the new item needs data for several fields.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…
Suggested Courses
Course of the Month3 days, 19 hours left to enroll
691 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.