Private Sub cmdCreateReplica_Click()
On Error GoTo cmdCreateReplica_Click_Error
[b] DoCmd.RunCommand acCmdCreateReplica
[/b]Exit_cmdCreateReplica_Click:
Exit Sub
cmdCreateReplica_Click_Error:
Select Case Err.Number
Case 0
Case 2046 Or 2501
Resume Next
Case Else
MsgBox Err.Number & ": " & Err.Description
End Select
Resume Exit_cmdCreateReplica_Click
End Sub