1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
Private Sub find_cp_Click() On Error GoTo Err_find_cp_Click Screen.PreviousControl.SetFocus DoCmd.RunCommand acCmdFind Exit_find_cp_Click: Exit Sub Err_find_cp_Click: MsgBox Err.Description Resume Exit_find_cp_Click End Sub