Code.GeekInterview.com
 
 

MS Access Code Base

 • Generate Invoice Number Series
 • Increment and Decrement Date Value using hot Keys + / -
 • Navigation made easy
 • Recover Tables Data from Corrupt MS Access Database
 • Show Print Preview Option before printing
 
Code Samples MS Access
 

Navigation made easy


Code ResourceAuthor: Shivanna  

Difficulty Level:

Published: 25th May 2007   Read: 2264 times  

Filed in: MS Access
Add Comment


 

 

Sponsored Links


 

 

Whenever we create forms for data tables it becomes necessary to provide navigation buttons.  Though MS-Access provides built-in navigation buttons, Developers would like to provide standardised, user-friendly button type navigation features in their forms.  The Function FrmNavigate aims to standardise such a feature and thus makes it easier to reuse the code whereever record navigation is required.

Create 4 Buttons - First, Previous, Next and Last For each onclick property in Properties window call the function as shown below

Button        Property            Value
---------------------------------------------------
First              OnClick       =FrmNavigate("First")
Previous      OnClick       =FrmNavigate("Prev")
Next              OnClick       =FrmNavigate("Next")
Last              OnClick       =FrmNavigate("Last")

 

 


Sample Code
  1.  
  2. Public Function FrmNavigate(NavigateTo As String)
  3. On Error Resume Next
  4.     Select Case NavigateTo
  5.         Case "First"
  6.             If ActiveForm.CurrentRecord = 1 Then
  7.                 MsgBox "First Record.", vbExclamation, "User Alert"
  8.             Else
  9.                 DoCmd.RunCommand acCmdRecordsGoToFirst
  10.             End If
  11.         Case "Prev"
  12.             If ActiveForm.CurrentRecord = 1 Then
  13.                 MsgBox "First Record.", vbExclamation, "User Alert"
  14.             Else
  15.                 DoCmd.RunCommand acCmdRecordsGoToPrevious
  16.             End If
  17.         Case "Next"
  18.             If ActiveForm.CurrentRecord = ActiveForm.RecordsetClone.RecordCount Then
  19.                 MsgBox "Last Record.", vbExclamation, "User Alert"
  20.             Else
  21.                 DoCmd.RunCommand acCmdRecordsGoToNext
  22.             End If
  23.         Case "Last"
  24.             If ActiveForm.CurrentRecord = ActiveForm.RecordsetClone.RecordCount Then
  25.                 MsgBox "Last Record.", vbExclamation, "User Alert"
  26.             Else
  27.                 DoCmd.RunCommand acCmdRecordsGoToLast
  28.             End If
  29.     End Select
  30.     ActiveForm.AllowEdits = False
  31. End Function
  32.  
Copyright GeekInterview.com




Next Article: Increment and Decrement Date Value using hot Keys + / -


 

Latest Code Samples

 ♦ Show Print Preview Option before printing
 ♦ Recover Tables Data from Corrupt MS Access Database
 ♦ Generate Invoice Number Series
 ♦ Navigation made easy
 ♦ Increment and Decrement Date Value using hot Keys + / -
 

Popular Code Samples

 ♦ Generate Invoice Number Series
 ♦ Show Print Preview Option before printing
 ♦ Increment and Decrement Date Value using hot Keys + / -
 ♦ Recover Tables Data from Corrupt MS Access Database
 ♦ Navigation made easy
 

Related Code Samples

 

Post Your Comment:

Members Please Login
Your Name:*
e-mail ID:(required for notification)*
Image Verification: 
 
 Subscribe    



Popular Coders

# Coder NameHits
1. Lokesh M11277
2. Shivanna6111
3. Rajani4929

Active Coders

# Coder NameCodes
1. Shivanna2
2. Lokesh M2
3. Rajani1

Refined Tags