Private Sub Command788_Click()
On Error GoTo Command788_Click_Err
' _AXL:<?xml version="1.0" encoding="UTF-16" standalone="no"?>
' <UserInterfaceMacro For="Command787" xmlns="http://schemas.microsoft.com/office/accessservices/2009/11/application" xmlns:a="http://schemas.microsoft.com/office/accessservices/2009/11/forms">
' _AXL:<Statements><Action Name="OnError"/><Action Name="GoToRecord"><Argument Name="Record">Previous</Argument></Action><ConditionalBlock><If><Condition>[MacroError]<>0</Condition><Statements><Action Name="MessageBox"><Argument Name="Message">=[Mac
' _AXL:roError].[Description]</Argument></Action></Statements></If></ConditionalBlock></Statements></UserInterfaceMacro>
On Error Resume Next
DoCmd.GoToRecord , "", acNext
If (MacroError <> 0) Then
Beep
MsgBox MacroError.Description, vbOKOnly, ""
End If
Command788_Click_Exit:
Exit Sub
Command788_Click_Err:
MsgBox Error$
Resume Command788_Click_Exit
End Sub