Private Sub レンタル商品_Click() On Error GoTo Err_レンタル商品_Click DoCmd.OpenForm "レンタル商品" Exit_レンタル商品_Click: Exit Sub Err_レンタル商品_Click: MsgBox Err.Description Resume Exit_レンタル商品_Click End Sub