From 9bb017b306460b4828d5e057a84fe9c86d290f1a Mon Sep 17 00:00:00 2001 From: joyfullservice Date: Tue, 12 Dec 2023 14:05:27 -0600 Subject: [PATCH] Trap any XML import errors --- Version Control.accda.src/modules/clsDbTableData.cls | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Version Control.accda.src/modules/clsDbTableData.cls b/Version Control.accda.src/modules/clsDbTableData.cls index 3b67d853..4f767d42 100644 --- a/Version Control.accda.src/modules/clsDbTableData.cls +++ b/Version Control.accda.src/modules/clsDbTableData.cls @@ -369,6 +369,8 @@ Private Sub IDbComponent_Import(strFile As String) Dim strTempFile As String Dim strTable As String + If DebugMode(True) Then On Error GoTo 0 Else On Error Resume Next + ' Make sure table exists before importing data to it. strTable = GetObjectNameFromFileName(strFile) @@ -391,6 +393,9 @@ Private Sub IDbComponent_Import(strFile As String) Application.ImportXML strFile, acAppendData End If + ' Trap any XML import errors + CatchAny eelError, "Error importing XML data from '" & strFile & "'", ModuleName(Me) & ".Import" + Case etdTabDelimited ImportTableDataTDF strFile End Select