Determine last key pressed by user

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!

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!

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