Access VBA: Bei Fehler immer die Zeile für Fehler Auftreten gehen

Question

Ich bekam eine Permission denied Fehler beim Versuch, eine Abfrage zu exportieren. Der Grund dafür ist, dass manchmal ein Benutzer die Datei geöffnet lässt. So entschied ich mich, einige Fehlerbehandlung zu versuchen und es so zu machen, dass, wenn der Permission Denied Fehler auftritt, dann sollte es ein MsgBox anzeigen, was zu tun ist. Wenn kein Fehler für die Berechtigung verweigert wird, sollte er einfach fortfahren und nicht die MsgBox anzeigen. Es wird jedoch immer die MsgBox angezeigt.

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

ich es herausgefunden, aber ich bin offen jeden critiquing, um zu hören, diese Lösung zu verbessern.

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 

Alles, was ich tun musste, war eine If Anweisung an die Err_Msg Zeilen hinzufügen, wenn die Bedingung auf dem genauen Fehler beruhte ich umgehen wollte.