Access VBA：Onエラーが常にエラー発生の対象となる行に移動する

Question

クエリをエクスポートしようとしたときにエラーが発生しました。その理由は、ユーザーがファイルを開いたままにしておくことがあるためです。だから私はいくつかのエラー処理を試みて、Permission Deniedエラーが発生した場合は、何をするかを説明するMsgBoxを表示するようにしました。パーミッションが拒否されたエラーがない場合は、そのまま続行してMsgBoxを表示しないでください。ただし、常にMsgBoxと表示されています。

VBA：

Private Sub Command360_Click() 

    Dim myQueryName As String 
    Dim myExportFileName As String 


     myQueryName = "qry_A" 
     myExportFileName = "J:\blah\Spreadsheet_" & Me![Combo353].Value & ".xlsx" 
     If Len(myExportFileName) > 0 Then 
      On Error GoTo Err_Msg 
      Kill myExportFileName 
     End If 
     DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, myQueryName, myExportFileName 
     Application.FollowHyperlink myExportFileName 


Err_Msg: MsgBox "You must close the spreadsheet in order to export.", vbOKOnly 

End Sub 

Answer 1

私はそれを考え出したが、私はこのソリューションを向上させるために、任意の批評を聞きに開いています。

Err_Msg: If (Err.Number = 70) Then MsgBox "Error: (" & Err.Number & ")" & Err.Description & ". You must close the spreadsheet in order to export.", vbOKOnly Else Resume Next 

私が行うために必要なすべての条件は私が処理したかった正確なエラーに基づいていたErr_MsgラインにIf文を追加しました。