Advanced Search

Return to Snippet

Revision: 38332
at December 31, 2010 03:54 by heislekw
Initial Code 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

On Error GoTo ErrHandler
   Select Case KeyCode
       Case vbKeyDown
           DoCmd.GoToRecord Record:=acNext
           KeyCode = 0
       Case vbKeyUp
           DoCmd.GoToRecord Record:=acPrevious
           KeyCode = 0
       Case Else
           ' Do nothing
   End Select

Egress:
Exit Sub

ErrHandler:
   If Err.Number = 2105 Then
       KeyCode = 0
       DoCmd.Beep
   Else
       MsgBox Err.Description
   End If
   Resume Egress
End Sub
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    
KeyPreview property must be set to Yes

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
Use arrow key to move through records in a continuous form

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    
form

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Visual Basic