Navigation buttons provide an efficient interface for browsing records in Microsoft Access forms without relying on continuous form views. This approach synchronizes a detail form with a list subform, enabling precise record selection through programmable controls.

Step 1: Control Placement

Add four command buttons to your detail form. Configure their properties as follows:

• Name: cmdFirst, Caption: "First"
• Name: cmdPrevious, Caption: "Previous"
• Name: cmdNext, Caption: "Next"
• Name: cmdLast, Caption: "Last"

Apply suitable icons through the Picture property for improved usability.

Step 2: Data Loading Refactor

Modify the form's Load event to delegate data retrieval to a dedicated function:

Private Sub Form_Load()
    On Error GoTo ErrorHandler
    
    If Not Me.DataEntry Then
        LoadRecordData Me.OpenArgs
    End If
    
    Exit Sub
    
ErrorHandler:
    MsgBox Err.Description, vbCritical
    Exit Sub
End Sub

Private Function LoadRecordData(itemID As Long)
    On Error GoTo ErrorHandler
    
    Dim conn As Object ' ADODB.Connection
    Dim recSet As Object ' ADODB.Recordset
    Dim sqlCmd As String
    
    Set conn = CurrentProject.Connection
    Set recSet = CreateObject("ADODB.Recordset")
    sqlCmd = "SELECT * FROM Items WHERE ItemID = " & Nz(itemID, 0)
    
    recSet.Open sqlCmd, conn
    
    If Not recSet.EOF Then
        Me!ItemID = recSet!ItemID
        Me!ItemCode = recSet!ItemCode
        Me!ItemDescription = recSet!ItemDescription
        Me!ItemCategory = recSet!ItemCategory
        Me!ItemDetails = recSet!ItemDetails
        Me!MeasureUnit = recSet!MeasureUnit
        Me!StatusFlag = recSet!StatusFlag
        Me!Comments = recSet!Comments
    End If
    
    recSet.Close
    
    Exit Function
    
ErrorHandler:
    MsgBox Err.Description, vbCritical
    Exit Function
End Function

Step 3: Navigation Implementation

Add the following code to each button's Click event:

' Navigate to first record
Private Sub cmdFirst_Click()
    On Error Resume Next
    
    Dim targetRS As Object
    Set targetRS = Forms!frmMain!subformList.Form.Recordset
    
    targetRS.MoveFirst
    LoadRecordData Nz(Forms!frmMain!subformList!ItemID, 0)
End Sub

' Navigate to last record
Private Sub cmdLast_Click()
    On Error Resume Next
    
    Dim targetRS As Object
    Set targetRS = Forms!frmMain!subformList.Form.Recordset
    
    targetRS.MoveLast
    LoadRecordData Nz(Forms!frmMain!subformList!ItemID, 0)
End Sub

' Navigate to next record
Private Sub cmdNext_Click()
    On Error Resume Next
    
    Dim targetRS As Object
    Set targetRS = Forms!frmMain!subformList.Form.Recordset
    
    If targetRS.EOF Then Exit Sub
    
    targetRS.MoveNext
    
    If Not targetRS.EOF Then
        LoadRecordData Nz(Forms!frmMain!subformList!ItemID, 0)
    Else
        targetRS.MoveLast
    End If
End Sub

' Navigate to previous record
Private Sub cmdPrevious_Click()
    On Error Resume Next
    
    Dim targetRS As Object
    Set targetRS = Forms!frmMain!subformList.Form.Recordset
    
    If targetRS.BOF Then Exit Sub
    
    targetRS.MovePrevious
    
    If Not targetRS.BOF Then
        LoadRecordData Nz(Forms!frmMain!subformList!ItemID, 0)
    Else
        targetRS.MoveFirst
    End If
End Sub

Step 4: Validation

Execute the form and verify that:

• Clicking First jumps to the initial record
• Clicking Last jumps to the final record
• Next and Previous move sequentially through records
• Bound controls update correct without errors
• Boundary conditinos (BOF/EOF) are handled gracefully

The navigasion system is now fully operational and provides an intuitive interface for record browsing.