By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
445,705 Members | 1,829 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 445,705 IT Pros & Developers. It's quick & easy.

Determine last key pressed by user

P: 7
Hi All,

This is really basic but I'm having trouble finding a straight forward way to do this. I have an Access application where the for is in spreadsheet mode. When a user leaves a control there is a series of calculations and the parent and child forms are refreshed. The cursor goes back up to the first control in the first record after refreshed and I bring it back to the original record using a bookmark.

My problem is that I need to determine where to put the cursor depending on the keystroke pressed. For example, if the user presses the down arrow key, I want the key to go to a certain control. If the user presses the tab key I want it to go to the next control in the record.

Can anyone help. Here is an example of the current code where I need to build this in.

Private Sub Labor_hours_LostFocus()

Dim varBookmark As Variant

varBookmark = Me.Bookmark

DoCmd.SetWarnings False

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Select Case Me.[Record Type]

Case 3
DoCmd.OpenQuery "Update Task Record-Template", , acEdit
DoCmd.OpenQuery "Delete calc record", , acEdit
DoCmd.OpenQuery "calculate template tasks 2-category", , acEdit
DoCmd.OpenQuery "Update Category Record-template", , acEdit

DoCmd.OpenQuery "Delete calc record", , acEdit
DoCmd.OpenQuery "calculate template tasks 2-phase", , acEdit
DoCmd.OpenQuery "Update Phase Record-template", , acEdit


Me.Requery

Me.Bookmark = varBookmark

If Forms![main switchboard]![Form Status] = True Then
DoCmd.GoToControl "Labor UM" 'GOTO THE NEXT FIELD
Else
Forms![main switchboard]![Form Status].Value = True
End If

Case Else
'do nothing


End Select

End Sub


Thanks Much!
Sep 10 '07 #1
Share this Question
Share on Google+
3 Replies


Scott Price
Expert 100+
P: 1,384
Hi All,

This is really basic but I'm having trouble finding a straight forward way to do this. I have an Access application where the for is in spreadsheet mode. When a user leaves a control there is a series of calculations and the parent and child forms are refreshed. The cursor goes back up to the first control in the first record after refreshed and I bring it back to the original record using a bookmark.

My problem is that I need to determine where to put the cursor depending on the keystroke pressed. For example, if the user presses the down arrow key, I want the key to go to a certain control. If the user presses the tab key I want it to go to the next control in the record.

Can anyone help. Here is an example of the current code where I need to build this in.

Expand|Select|Wrap|Line Numbers
  1. Private Sub Labor_hours_LostFocus()
  2.  
  3. Dim varBookmark As Variant
  4.  
  5. varBookmark = Me.Bookmark
  6.  
  7. DoCmd.SetWarnings False
  8.  
  9. DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
  10.  
  11. Select Case Me.[Record Type]
  12.  
  13. Case 3
  14. DoCmd.OpenQuery "Update Task Record-Template", , acEdit
  15. DoCmd.OpenQuery "Delete calc record", , acEdit
  16. DoCmd.OpenQuery "calculate template tasks 2-category", , acEdit
  17. DoCmd.OpenQuery "Update Category Record-template", , acEdit
  18.  
  19. DoCmd.OpenQuery "Delete calc record", , acEdit
  20. DoCmd.OpenQuery "calculate template tasks 2-phase", , acEdit
  21. DoCmd.OpenQuery "Update Phase Record-template", , acEdit
  22.  
  23.  
  24. Me.Requery
  25.  
  26. Me.Bookmark = varBookmark
  27.  
  28. If Forms![main switchboard]![Form Status] = True Then
  29. DoCmd.GoToControl "Labor UM"   'GOTO THE NEXT FIELD
  30. Else
  31. Forms![main switchboard]![Form Status].Value = True
  32. End If
  33.  
  34. Case Else
  35. 'do nothing
  36.  
  37.  
  38. End Select
  39.  
  40. End Sub

Thanks Much!

It will probably be more visual than basic by the time you get done :-) Here's a link to a thread with a similar question: http://www.thescripts.com/forum/thread704885.html

The constants that you will need to use are: vbKeyTab for the tab key, and 40 for the down arrow key... Here's another posting with some additional information: http://www.thescripts.com/forum/thread658216.html

Regards,
Scott
Sep 10 '07 #2

ADezii
Expert 5K+
P: 8,669
Hi All,

This is really basic but I'm having trouble finding a straight forward way to do this. I have an Access application where the for is in spreadsheet mode. When a user leaves a control there is a series of calculations and the parent and child forms are refreshed. The cursor goes back up to the first control in the first record after refreshed and I bring it back to the original record using a bookmark.

My problem is that I need to determine where to put the cursor depending on the keystroke pressed. For example, if the user presses the down arrow key, I want the key to go to a certain control. If the user presses the tab key I want it to go to the next control in the record.

Can anyone help. Here is an example of the current code where I need to build this in.

Private Sub Labor_hours_LostFocus()

Dim varBookmark As Variant

varBookmark = Me.Bookmark

DoCmd.SetWarnings False

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Select Case Me.[Record Type]

Case 3
DoCmd.OpenQuery "Update Task Record-Template", , acEdit
DoCmd.OpenQuery "Delete calc record", , acEdit
DoCmd.OpenQuery "calculate template tasks 2-category", , acEdit
DoCmd.OpenQuery "Update Category Record-template", , acEdit

DoCmd.OpenQuery "Delete calc record", , acEdit
DoCmd.OpenQuery "calculate template tasks 2-phase", , acEdit
DoCmd.OpenQuery "Update Phase Record-template", , acEdit


Me.Requery

Me.Bookmark = varBookmark

If Forms![main switchboard]![Form Status] = True Then
DoCmd.GoToControl "Labor UM" 'GOTO THE NEXT FIELD
Else
Forms![main switchboard]![Form Status].Value = True
End If

Case Else
'do nothing


End Select

End Sub


Thanks Much!
To accomplish what you are requesting, you must capture the User's Keystrokes at the Form Level. To do this:
  1. Set the KeyPreview Property of the Form to Yes.
  2. Place similar code in the Form's KeyDown() Event. The sample code snippet will capture most of the Navigation Keys:
    Expand|Select|Wrap|Line Numbers
    1. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    2. Const vbKeyEnter = 13
    3.  
    4.   Select Case KeyCode
    5.     Case vbKeyHome
    6.       'Home Key presseed
    7.     Case vbKeyEnd
    8.       'End Key pressed
    9.     Case vbKeyPageUp
    10.       'etc.
    11.     Case vbKeyPageDown
    12.       'etc.
    13.     Case vbKeyUp
    14.       'etc.
    15.     Case vbKeyDown
    16.       'etc.
    17.     Case vbKeyLeft
    18.       'etc.
    19.     Case vbKeyRight
    20.       'etc.
    21.     Case vbKeyTab
    22.       'etc.
    23.     Case vbKeyEnter
    24.       'etc.
    25.   End Select
    26. End Sub
Sep 11 '07 #3

P: 7
I have just been directed to work on another part of the program first so I won't get to this for a couple of days but it looks like this code is exactly what I'm looking for. I will respond as to how it works then. This is a tremendous help and this forum is a great resource!
Sep 11 '07 #4

Post your reply

Sign in to post your reply or Sign up for a free account.