Acess VBA エラーが発生したら処理を抜ける

Private Sub 新規追加_Click()

    Set DB = CurrentDb()
    Set D3 = DB.OpenRecordset("T_工程名称_W_2")
    j = D3.RecordCount
      
    If j = 0 Then
    
        MsgBox ("レコードを入力してください")
        DB.Close
'             Me.Requery
'        Me.Repaint
        'Me.工程名称出力.Requery
        Exit Sub
    End If
    
        DoCmd.OpenQuery "Q_T_工程名称_W_2_Add", acViewNormal, acEdit
        
'____________LogUpDate________________________

        Dim Status As String
        Dim UserName As String
        
        Status = "新規追加"
        UserName = Environ("USERNAME")
        
        Call LogUp(Status, UserName)

'______________________________________________
        
        
        
    
        SQLcmd = "DELETE T_工程名称_W.* FROM T_工程名称_W;"
    
        DB.Execute SQLcmd
        
                
        SQL1 = "SELECT M_工程名称.* "
        SQL1 = SQL1 & "FROM M_工程名称 ;"
    
    
        Set D1 = DB.OpenRecordset(SQL1, dbOpenDynaset)
        Set D2 = DB.OpenRecordset("T_工程名称_W")
        
    
        Do Until D1.EOF = True
            D2.AddNew
            For ix0 = 0 To 1
                D2.Fields(ix0) = D1.Fields(ix0)
            Next ix0
            D2.Update
            D1.MoveNext
        Loop
    
        D1.Close
        DB.Close
            Me.Requery
        Me.Repaint
        Me.工程名称出力.Requery
        
        Call クリアボタン_Click
          
    
End Sub